Question

如何查找短语，转到短语所在行的开头，插入分页符，然后再次执行宏。

我尝试了以下内容，但它不会转到＆＃34;代理名称＆＃34;的以下值。随后执行。

Sub mFI()
    ' ' mFI Macro ' '
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    With Selection
        .Find
        .ClearFormatting
        .Forward = True
        .MatchWholeWord = True
        .MatchCase = False
        .Execute FindText:="Agent Name"
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InsertBreak Type:=wdPageBreak, Count:=1
End Sub

Answer 1

假设您提供的代码是正确的，这将对您有所帮助。

Sub mFI()
    ' ' mFI Macro ' '
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    With Selection
        .Find
        .ClearFormatting
        .Forward = True
        .MatchWholeWord = True
        .MatchCase = False
        .Execute FindText:="Agent Name"
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.InsertBreak Type:=wdPageBreak, Count:=1
    With Selection
        .Find
        .ClearFormatting
        .Forward = True
        .MatchWholeWord = True
        .MatchCase = False
        .Execute FindText:="Agent Name"
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
End Sub

Answer 2

如果您想在所有出现的代理商名称中插入分页符，可以尝试。

Sub Demo()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Agent Name"
        .Replacement.Text = "^m^&"
        .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

查找文本，插入分页符并重复

2 个答案: