25. august 2000 - 08:38Der er
12 kommentarer og 1 løsning
funktion til at tælle karakterer incl. mellemrum i word
Det sker jeg skal vide hvor mange karakterer der er i et program, men word tæller ikke mellemrum med. Kan man gøre noget enkelt hvis de skal tælles med, eks. med en eller anden programtilpasning?
Tak for svar, men jeg kender godt begge måder, og det er ikke helt det jeg søger, selvom jeg får oplysningen. Det er for omstændeligt. Problemet er, at når man sidder og arbejder på noget, som ikke må være for langt, skal man hele tiden checke. Derfor har jeg en makro, der med et tryk giver mig oplysning om antal ord og karakterer - men alas - uden mellemrum.
Den angiver i bunden af min tekst hvor mange ord og karakterer der er.
Makroen, som har en genvejstast (alt+o) går til bunden af dokumentet (ctrl+end), indsætter derefter to felter med dokumentoplysninge - antal ord og antalkarakterer
til frankgrevil+hvorfor bruger rigtige mænd ikke makroer?
Af samme grund som rigtige mænd ikke kører bil med automatgear. :-)
Der findes i de fleste programmer indbyggede faciliteter til stort set alt. Næsten alle de makroer, jeg som Word- og Excel-supporter er stødt på, dublerer indbyggede funktioner, som brugeren blot ikke har haft nysgerrighed eller vedholdenhed til at finde.
Jeg medgiver, at det er sjovt at programmere, men det er efter min mening også sjovt at udforske det, der allerede findes i programmet.
frankgrvil> Jeg kan da ikke se at der er en funktion som gemmer dokumentet under et nyt filnavn, Indstiller printeren, printer dokumenetet ud og lukker det igen .... alså, bare én af de ting jeg ikke har fundet endnu .. ;O)
Ganske rigtigt, men det du snakker om her er jo blot automatisering, hvor et antal trivielle og ofte udførte (?) kommandoer bundtes sammen i en makro.
Dette spørgsmål handler imidlertid om hård VBA-programmering, og det er min påstand, at mange gode kræfter spildes her, fordi brugerne ikke er opmærksomme på de muligheder, der allerede findes i programmet.
Følgende tæller antal karakterer incl mellemrum i det aktive dokument:
Sub tælkarakterer() Dim r As Range Dim k As Long Set r = ActiveDocument.Range k = r.Characters.Count - r.Paragraphs.Count MsgBox ActiveDocument.Name & \" Indeholder \" & k & \" karakterer\" End Sub
Nerøs forslag virkede helt som ønsket og mere elegant end min egen tidligere beskrevne makro. Eneste tilføjelse er, at man skal sætter den anførte programtekst ind i en makro. Men nu bliver jeg mere ambitiøs, for jeg vil også gerne have samme funktion med ord og karakterer uden mellemrum - hvor kan jeg finde \"program koderne\" henne?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.