Indsæt Tekst fra Userform isted for tekst i doc

Optag en makro hvor du laver søg og erstat - så kan du aflure, hvordan det gøres i VBA.

Ja de kan jeg godt se

men det er jo oplysninger fra TextBox i UserForm jeg skal bruger???

Ok.. så det er selve form-håndteringen, du skal have hjælp til.. Hvor langt er du kommet? (har du lavet en form med textbox og "erstat" knap?)

Ja UserForm'en er lavet og Textbox (line_1) er også på plads, klappe som sæter koden igang er også på plads.

Så det "kun" koderne der tager oplysnigerne fra line_1 og insæter den alle de stæder i Word dokument hvor der står F.eks "!line_1" som jeg mangler

Så kan du læse teksten ud med Me.line_1.Text i din button_click event.

Private Sub CommandButton1_Click()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "!line_1"
        .Replacement.Text = Me.line_1.Text
        .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

Hej kvadratrodenaf1

Det virker, men der er et lille problem den tager ikke teksten som står i sidehoved eller i en tekstbokser i Word, og det gør det i mit tilfælde!!!

Lukker