Avatar billede Mads Larsen Nybegynder
28. oktober 2010 - 15:00 Der er 1 kommentar og
1 løsning

Find en Autotext

Hej Eksperter

Jeg er stødt ind i et problem.

Jeg har 2 forskellige autotekster en til "Forside" og en til efterfølgende sider "Side2"

Det jeg gerne vil opnå med VBA kode, er at tjekke om AutoText "Side2" findes på siden.

Noget i retning af:

If side2 = true then
  BlaBla
Else
  BlaBla noget andet
End if

Umiddelbart har jeg ikke kunnet finde en måde at gøre dette på.
Jeg har været ved at tænke på at lave noget i retningen af:

Gem position
Vis sidehoved
Vis feltkoder
Søg på tekst side2
Hvis findes gem i en variable
Skjul feltkoder
Gå tilbage til gemt position

Nogen gode idér ? :-)
Avatar billede Mads Larsen Nybegynder
29. oktober 2010 - 11:42 #1
Det er på en Office XP
Avatar billede Mads Larsen Nybegynder
29. oktober 2010 - 12:45 #2
Denne funktion klarer det fint. Derfor lukker jeg spørgsmålet igen.


Private Function TjekSide2Papir()
    TjekSide2Papir = False
    WordBasic.ViewHeader
    ActiveWindow.View.ShowFieldCodes = True
    WordBasic.EditSelectAll
    If InStr(Selection.Text, "Toptekst side 2") <> 0 Then
        TjekSide2Papir = True
    End If
    ActiveWindow.View.ShowFieldCodes = False
    WordBasic.CloseViewHeaderFooter
End Function
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Tag et kursus i Word og øg effektiviteten

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester