Word VBA problemer

Jeg havde egentlig forestillet mig, at du definerede dine variable som Public som vist i det tidligere indlæg.

Det jeg tænker på er, at de variable du allerede benytter i dit dokument, bliver defineret som Public og ikke lokalt.

Din UserForm bruger du så til at tildele værdier til dine variable og i forlængelse heraf kører du din gamle kode som også kan læse værdien fra en Public variabel.

Hvordan er koden i dit dokument bygget op?

Jeg har stadig public variable. (Har dog glemt at kopiere dem med ind).

***************************
Module
***************************
Public env As String
Public use As String

Public Sub SeekReplaceVars()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "<environment>"
        With Replacement
            .ClearFormatting
            .Text = "<environment> skal så replaces med det der er indtastet i userformen"
        End With
        .Execute Replace:=wdReplaceAll
    End With
End Sub

******************************

******************************
Userform
******************************
Private Sub cancel_Click()
    Unload Me
    ActiveDocument.Close SaveChanges:=False
End Sub

Private Sub ComboDBAbox_Change()
   
End Sub

Private Sub Environmentbox_Change()

End Sub

Private Sub setvarOk_Click()
    user = Userbox.Text
    environm = Environmentbox.Text
    dba = ComboDBAbox.Text
    Application.Run "SeekReplaceVars"
End Sub

Private Sub UserForm_Initialize()
    With ComboDBAbox
        .AddItem "navn1"
        .AddItem "navn2"
        .AddItem "navn3"
        .AddItem "navn4"
    End With
End Sub
****************************

****************************
thisDocument
****************************

Private Sub Document_Open()
    selectVarform.Show
End Sub
***************************

Hvis jeg forstår det du skriver, skal jeg stadig bruge bookmarks, som du viste mig tidligere. Kan du vise mig et eksempel, hvor man udskifter 2 steder i et dokument? For det kan jeg ikke få til at virke med bookmarks.

F.eks.
**********************
Eksempel
************************

bla bla bla <username>
bla bla bla
Dette er en test <environment> som skal vise om der kan udskiftes 2 variabler af gangen.
<environment>
<username>
*************************

Nu har jeg lavet det om, sådan som du foreslog.

****************************
Public enviro As String
Public user As String

Public Sub SeekReplaceVars()
  ActiveDocument.Bookmarks("Username").Range.Text = user
  ActiveDocument.Bookmarks("Environment").Range.Text = enviro
End Sub
****************************
Private Sub setvarOk_Click()
    user = Userbox.Text
    enviro = Environmentbox.Text
    dba = ComboDBAbox.Text
    Application.Run "SeekReplaceVars"
End Sub
*****************************

Det her kan udskifte 1 forekomst af det jeg vil have udskiftet i dokumentet, da jeg ikke kan få den til at bookmarke flere forskellige steder med det samme bookmark navn.

What to do?

Er det noget a la dette du skal bruge:

I din UserForm-kode (2 tekstbokse, 1 commandbutton) skal der stå således:

Public usr, env As String

Private Sub CommandButton1_Click()
usr = TextBox1.Text
env = TextBox2.Text

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = "<username>"
    With .Replacement
        .ClearFormatting
        .Text = usr
    End With
    .Execute Replace:=wdReplaceAll, _
        Format:=True, MatchCase:=True, _
        MatchWholeWord:=True
End With

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = "<environment>"
    With .Replacement
        .ClearFormatting
        .Text = env
    End With
    .Execute Replace:=wdReplaceAll, _
        Format:=True, MatchCase:=True, _
        MatchWholeWord:=True
End With
End Sub

Skriv <username> og <environment> forskellige steder i et dokument og kør. Husk userform1.show.

Jeg tror ikke der skulle blive problemer med at droppe dine public variabler og istedet udskifte:

  .Text = usr  (hhv  env)

med

  .Text = TextBox1.Text  (hhv TextBox2.Text)

Jeg vil lige kigge på det :)

Har været på ferie, så undskyld jeg ikke har svaret :)

Tusind tak.
Det er lige præcis det jeg skal bruge :)

Vil du sende et svar, så jeg kan komme af med pointene? :)

Ok tak - og god arbejdslyst :))