Help me write VBA code for MS OFFICE?

Question

Macros

Gentlemen, help me solve the following problem. We need a macro that would find the desired line in the word file, for example "@here" and insert the contents from the buffer here. Thanks in advance!

Answer 1

Seems to work:

Sub Replace()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@here"
        .Replacement.Text = "^c"
        .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