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
243
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
- 1693070
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1392087Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1092026- 891787
- 831596
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241562- 2271120
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2711089- 681082
- 74958