Hei
Tietääkö kukaan, miten saisin luotua Wordiin sellaiseen kentän, johon tulisi kuvien lukumäärä? Kuvat on numeroitu ja otsikoitu automaattisesti.
Esimerkiksi dokumentin sivumäärällehän on olemassa valmis kenttäkoodi, mutta kuville ei.
KENTTÄKOODIT (kuvien ja taulukoiden lukumäärä)
1
431
Vastaukset
kaikkeahan saa luettua ja kirjoiteltua koodilla. Eri asia sitten miten ne saa päiviteltyä helposti, kun Wordissa ei ole valmiina tapahtumille koodia ja ne pitää sitten itse väsäillä.
Helpoimmalla sun tapauksessahan olisi päässsyt koodaamalla kirjainmerkkiin, mutta kun nyt halusit kenttään niin olkoon menneeksi...
liitä koodit Normal.dot ThisWorkbook moduuliin ja koodit on sitten aina käytössäsi ilman uudelleen kirjoittamista...
Voit tehdä napit helpottamaan elämääsi ja liittää koodit niihin.
Nyt kun ajat koodin Lisää() se lisää kenttäluettelon DocProperty nimen ominaisuuksiin Kuvienlkm.
Eli Kuvienlkm toimii ihan kuten normaalitkin ominaisuudet(löytyy listasta) ja lisää kenttään koodin
{DOCPROPERTY Kuvienlkm \* MERGEFORMAT}
Päivitys ei oikein ole Wordin vahvoja puolia, joten sekin sitten koodilla Päivitä()...
Sub Päivitä()
Dim jutska As Range
Dim kenttä As Field
Dim objCustomProperties As DocumentProperties
Set objCustomProperties = ActiveDocument.CustomDocumentProperties
objCustomProperties.Item("Kuvienlkm").Value = ActiveDocument.InlineShapes.Count
For Each jutska In ActiveDocument.StoryRanges
For Each kenttä In jutska.Fields
kenttä.Update
Next kenttä
Next jutska
Set jutska = Nothing
Set kenttä = Nothing
End Sub
Sub Lisää()
Dim objCustomProperties As DocumentProperties
On Error Resume Next
Set objCustomProperties = ActiveDocument.CustomDocumentProperties
objCustomProperties.Add Name:="Kuvienlkm", Type:=msoPropertyTypeString, Value:=ActiveDocument.InlineShapes.Count, LinkToContent:=False
End Sub
Keep WORDing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu5172618Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu882491Sä olet epävakaa
tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all211581Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä771532Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101470- 691384
Mieti miten paljon yritin
Löytää yhteyttä kanssasi uudelleen sen väärinymmärryksen jälkeen. Koen etten tullut puoleltasi hyvin kohdelluksi mies😔421355- 271288
Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan
Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut2921219Haluatko tietää totuuden?
Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun901153