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
211
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
eerikäinen novassa sanoi ei kukaan enää aja manuaalivaihteilla
meillä on 3 autoa talissa ja kaikissa manuaalilaatikot, on meillä vielä tämmöiset vaikka toisin puhutaan.1491591Ilo, joka nousee silmiisi saakka
kun katseemme kohtaavat. Olet energinen, aito, ihana. Välillä tuijotat suoraan silmiini - enkä hämmenny, katson takaisin671586En oikeasti
Tiennyt että sinulla on ollut vaikeuksia ja huonoja aikoja. Olen oikeasti pahoillani, ja olisin myös toiminut eritavoin1311292Jokaisella on omat syntinsä
Minä olisin niin mielelläni sinun. Ehkä joskus viittasitkin siihen. Olet nainen ajatuksissani jatkuvasti ja taidat tietä661276- 421105
- 172948
90-luvulla maa syöksyi lamaan, ja silloinkin oli syypäinä samat tahot kuin nyt
Laman aiheuttajat olivat demarivetoinen virheellinen finanssipolitiikka, sekä ay-liikkeen taipumattomuus tilanteessa mik100890Mä olisin niin iloinen
Jos vielä joskus nähtäis.. Ollaanko tulkittu mies toisiamme väärin?. Kumpikin luuli ettei toinen tykkää, vaikka molemmat60744Olisitko ihminen minulle. Ihan ihminen vain.
Tiedätkö, että saan kyyneleet silmiini, niin syvästi sinua kaipaan. Meidän välillä on jotain todella syvää, kaunista ja42677Vakava varoitus perussuomalaisista!
Keskustan Annika Saarikolta veret seisauttavaa tekstiä, lukekaa uutinen kokonaisuudessaan, tässä siitä maistiainen: ”Ke155656