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?
