KENTTÄKOODIT (kuvien ja taulukoiden lukumäärä)

Tietämätön.

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.

1

255

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Ensitreffit Jenni laukoo viinilasin ääressä suorat sanat Jyrkin aikeista: "Mä sanoin, että älä"

      Voi ei… Mitä luulet: kestääkö Jennin ja Jyrkin avioliitto vai päättyykö eroon? Lue lisää: https://www.suomi24.fi/viihde
      Ensitreffit alttarilla
      27
      2900
    2. Ymmärrän paremmin kuin koskaan

      Roikut kädessäni ja vedät puoleesi. Näen kuitenkin tämän kaiken lävitse ja kaikkien takia minun on tehtävä tämä. Päästän
      Tunteet
      33
      2545
    3. 148
      2274
    4. Hullu liikenteessä?

      Mikä hullu pyörii kylillä jos jahti päällä? Näitä tosin kyllä riittää tällä kylällä.
      Kiuruvesi
      54
      2249
    5. Niina Lahtinen uudessa elämäntilanteessa - Kotiolot ovat muuttuneet merkittävästi: "Nyt on...!"

      Niina, tanssejasi on riemukasta seurata, iso kiitos! Lue Niinan haastattelu: https://www.suomi24.fi/viihde/niina-lahti
      Suomalaiset julkkikset
      24
      1870
    6. Kun Venäjä on tasannut tilit Ukrainan kanssa, onko Suomi seuraava?

      Mitä mieltä olette, onko Suomi seuraava, jonka kanssa Venäjä tasaa tilit? Ja voisiko sitä mitenkään estää? Esimerkiks
      NATO
      391
      1706
    7. Ano Turtiainen saa syytteet kansankiihoituksesta

      Syytteitä on kolme ja niissä on kyse kirjoituksista, jotka hän on kansanedustaja-aikanaan julkaissut Twitter-tilillään
      Maailman menoa
      104
      1652
    8. Pyhäinpäivän aamua

      Oikein hyvää huomenta ja rauhallista päivää. ❄️😊🥱☕❤️
      Ikävä
      311
      1561
    9. Kunta ostaa kivitipun

      Kunnanjohtajan tuleva uusi ostokohde
      Lappajärvi
      135
      1459
    10. Varokaa! Lunta voi sataa kohta!

      Vakava säävaroitus Lumisadevaroitus Satakunta, Uusimaa, Etelä-Karjala, Keski-Suomi, Etelä-Savo, Etelä-Pohjanmaa, Pohjanm
      Maailman menoa
      13
      1446
    Aihe