Du kan ikke med et enkelt felt tælle tegn i en del af et dokument. Og sider i Word er ikke brugbare til den slags, da en tekst i Word reelt er en lang, fortløbende sag, som ombrydes til sider afhængigt at printer m.m. Men du kan f.eks. løse det med et DocProperty-felt og to bogmærker + en makro:
1. Indsæt et bogmærke (uden at markere tekst) der hvor optælling skal starte – i makroen nedenfor har jeg kaldt det bogmærke ”CountCharactersStart”.
2. Indsæt et andet bogmærke (uden at markere tekst) der hvor optælling skal slutte – i makroen nedenfor har jeg kaldt det bogmærke ”CountCharactersEnd”.
3. Opret en brugerdefineret dokumentegenskab (custom document property) – her kaldt ”CountCharacters” – du kan indledningsvis skrive en vilkårlig værdi (f.eks. XXX).
4. Indsæt et DocProperty-felt på forsiden, som henter værdien af ”CountCharacters”, der hvor antal tegn skal vises. Feltkoden vil være:
{ DOCPROPERTY "CountCharacters" }
Installer følgende makro og kør den, når tallet på forsiden skal opdateres. Makroen tæller tegn mellem de to bogmærker, opdaterer værdien af ”CountCharacters” til det udregnede tal og opdaterer felter, så værdien på forsiden bliver opdateret.
-----------MAKRO START-----------
Sub CountCharactersBetweenBookmarks_InsertInDocPropertyOnFrontPage()
Dim lngCountStart As Long
Dim lngCountEnd As Long
With ActiveDocument
lngCountStart = .Bookmarks("CountCharactersStart").Start
lngCountEnd = .Bookmarks("CountCharactersEnd").Start
.CustomDocumentProperties("CountCharacters").Value = lngCountEnd - lngCountStart
.Range.Fields.Update
End With
End Sub
-----------MAKRO SLUT-----------
Bemærk: Sørg for ikke at slette bogmærkerne og sørg for, at de kun angiver en position og ikke indeholder tekst (hvis du redigerer tekst lige omkring, hvor bogmærkerne er, så tjek, om de fortsat er OK).
Makroen kan udbygges med fejlhåndtering, som tjekker, at bogmærkerne findes osv.
I stedet for bogmærker kunne der også laves en løsning, hvor start og slut for optælling afgrænses af f.eks. sektionsskift – vil kræve anden makro.
Følgende info er skrevet til PC, ikke Mac – men du kan nok omsætte det til Mac:
Åbn dialogboksen Bogmærke/Bookmark: Ctrl+Shift+F5.
Info om custom document properties:
https://www.thedoctools.com/wordtips/gentage-tekst-i-word/Hjælp til at installere makro:
https://www.thedoctools.com/word-macros-tips/general/how-to-install-a-macro/
