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

259

    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. Et olisi piilossa enää

      Vaan tulisit esiin.
      Ikävä
      65
      2937
    2. Sinä saat minut kuohuksiin

      Pitäisiköhän meidän naida? Mielestäni pitäisi . Tämä värinä ja jännite meidän välillä alkaa olla sietämätöntä. Haluai
      Tunteet
      25
      2073
    3. Minä en ala kenenkään perässä juoksemaan

      Voin jopa rakastaa sinua ja kääntää silti tunteeni pois. Tunteetkin hälvenevät aikanaan, poissa silmistä poissa mielestä
      Ikävä
      67
      1668
    4. Loukkaantunut lapsi on yhä kriittisessä tilassa

      Seinäjoella Pohjan valtatiellä perjantaina sattuneessa liikenneonnettomuudessa loukkaantunut lapsi on yhä kriittisessä t
      Kauhava
      24
      1510
    5. Miten hetki

      Kahden olisi paras
      Ikävä
      28
      1281
    6. Tiedän, että emme yritä mitään

      Jos kohtaamme joskus ja tilaisuus on sopiva, voimme jutella jne. Mutta kumpikaan ei aio tehdä muuta konkreettista asian
      Ikävä
      15
      1241
    7. Näin pitkästä aikaa unta sinusta

      Oltiin yllättäen jossain julkisessa saunassa ja istuttiin vierekkäin, siellä oli muitakin. Pahoittelin jotain itsessäni
      Ikävä
      6
      1186
    8. Mitä, kuka, hä .....

      Mikähän sota keskustassa on kun poliiseja on liikkeellä kuin vilkkilässä kissoja
      Kemi
      28
      1150
    9. Taisit sä sit kuiteski

      Vihjata hieman ettei se kaikki ollutkaan totta ❤️ mutta silti sanoit kyllä vielä uudelleen sen myöhemmin 😔 ei tässä oik
      Ikävä
      10
      1107
    10. Noh joko sä nainen oot lopettanut sen

      miehen kaipailun jota sulla EI ole lupa kaivata. Ja teistä ei koskaan tule mitään. ÄLÄ KOSKAAN SYÖ KUORMASTA JNE! Tutu
      Ikävä
      62
      991
    Aihe