根据固定格式替换，并在替换后所在位置换行输入

好的，以下是一个示例程序，可以根据指定的格式查找并替换文本，并在替换的位置后面添加新的内容，并换行。

Sub ReplaceAndInsertWithNewLine()
    Dim findText As String
    Dim replaceText As String
    Dim insertText As String
    
    ' 设置查找、替换和插入的文本
    findText = "查找的文本"
    replaceText = "替换的文本"
    insertText = "新的内容"
    
    ' 开始查找和替换文本
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = findText
        .Replacement.Text = replaceText
        .Execute Replace:=wdReplaceAll, Forward:=True, _
            Wrap:=wdFindContinue
        
        ' 在替换的位置后面插入新内容，并换行
        Do While .Found
            Selection.MoveRight Unit:=wdCharacter, Count:=Len(replaceText)
            Selection.TypeParagraph  ' 换行
            Selection.TypeText Text:=insertText
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue
        Loop
    End With
End Sub

在这个示例中，我们在替换的位置后面使用了 `TypeParagraph` 方法，以插入一个新的段落并换行。您同样需要将“查找的文本”替换为您要查找的实际文本，将“替换的文本”替换为要替换的文本，将“新的内容”替换为要插入的文本。然后，在VBA编辑器中运行该程序即可。