Avatar billede doktoren001 Juniormester
04. august 2009 - 09:16 Der er 1 kommentar og
1 løsning

VBA i Word nybegynder

Hej,

Jeg er ved at kigge på noget VBA i Word, men er løbet ind i et problem. Jeg har klippet noget herfra Eksperten og startet derfra, men jeg får nu en fejl som jeg ikke ved hvad jeg skal gøre ved.
Min kode ser således ud:

Const f1 = "<installations navn>"
Const f2 = "<installations gadenavn og nr>"
Const f3 = "<installations postnr>"
Const f4 = "<installations by-/stednavn>"

Private Sub CommandButton1_Click()                  'OK
    If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" And Me.TextBox4 <> "" Then
Rem navn - adresse - postnr by
        søgErstatTekst f1, Me.TextBox1
        søgErstatTekst f2, Me.TextBox2
        søgErstatTekst f3, Me.TextBox3
        søgErstatTekst f4, Me.TextBox4
    Else
        MsgBox ("Alle 4 felter skal udfyldes!")
    End If
End Sub
Private Sub CommandButton2_Click()                  'Luk
    CommandButton3_Click                            'ryd teksten
    Unload UserForm1
   
    ActiveDocument.Save
    ActiveDocument.Close
End Sub
Private Sub CommandButton3_Click()                  'Clear
    søgErstatTekst Me.TextBox1, f1
    søgErstatTekst Me.TextBox2, f2
    søgErstatTekst Me.TextBox3, f3
    søgErstatTekst Me.TextBox4, f4

    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
End Sub
Private Sub søgErstatTekst(sTekst, eTekst)
    Application.Browser.Previous
   
    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = sTekst
        .Replacement.Text = eTekst
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub AutoAdresse()

End Sub


Jeg har lige et ekstra spørgsmål. Hvad skal jeg kalde de tekstbokse i word dokumentet, for at jeg får den rigtige tekst ind?
Avatar billede supertekst Ekspert
04. august 2009 - 09:30 #1
Prøv at sende en mail (min adr. under profil) - så kan jeg sende filen til dig - inkl. Userform.
Avatar billede supertekst Ekspert
04. august 2009 - 11:04 #2
Et svar
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
Kurser inden for grundlæggende programmering

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