根据固定格式替换，并准确在的替换后位置进行换行输入

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

Sub ReplaceAndInsertWithNewLineAtSpecificPosition()
    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.MoveLeft Unit:=wdCharacter, Count:=1  ' 光标移动到替换文本的末尾
            Selection.TypeText Text:=vbCr & insertText  ' 换行并插入新内容
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue
        Loop
    End With
End Sub

在这个示例中，我们在替换的位置后面使用了 `TypeText` 方法，并在插入新内容之前将光标移动到替换文本的末尾，从而精确控制插入位置。同时，我们还在插入新内容之前插入了一个换行符。您同样需要将“查找的文本”替换为您要查找的实际文本，将“替换的文本”替换为要替换的文本，将“新的内容”替换为要插入的文本。然后，在VBA编辑器中运行该程序即可。