Макрос VBA Word для вставки разрыва строки в последнюю строку, если есть слово

Question

У меня есть документы, в которых мне нужно изменить содержимое последней строки страницы на следующую страницу, если в ней есть слово. Я пытаюсь установить sh первое слово последней строки каждой страницы как диапазон, чтобы я мог установить sh IF ... Тогда ... Правило, вы знаете, как это сделать? Я также попытался создать макрос, в котором я go перехожу на определенную страницу, затем я перемещаю «x» строк (до последней строки) и копирую содержимое этой строки, чтобы я мог заменить его, вставив разрыв строки, но проблема здесь в том, что y может заменить то, что скопировано в «Ячейке замены», но не в «Ячейке поиска». Есть ли у вас какие-либо предложения?

См.

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=52, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
    .Text Dialog _
        "***Word1   word2***"
    .Replacement.Text Dialog "^p^c"
    .Forward Dialog True
    .Wrap Dialog wdFindAsk
    .Format Dialog False
    .MatchCase Dialog False
    .MatchWholeWord Dialog False
    .MatchWildcards Dialog False
    .MatchSoundsLike Dialog False
    .MatchAllWordForms Dialog False
End With
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text Dialog _
        "word1  word2"
    .Replacement.Text Dialog "^p^c"
    .Forward Dialog True
    .Wrap Dialog wdFindAsk
    .Format Dialog False
    .MatchCase Dialog False
    .MatchWholeWord Dialog False
    .MatchWildcards Dialog False
    .MatchSoundsLike Dialog False
    .MatchAllWordForms Dialog False
End With
Selection.Find.Execute
With Selection
    If .Find.Forward Dialog True Then
        .Collapse Direction:=wdCollapseStart
    Else
        .Collapse Direction:=wdCollapseEnd
    End If
    .Find.Execute Replace:=wdReplaceOne
    If .Find.Forward Dialog True Then
        .Collapse Direction:=wdCollapseEnd
    Else
        .Collapse Direction:=wdCollapseStart
    End If
    .Find.Execute
End With

Конец подпрограммы