主题：word 替换只可以替换一次

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("D:\02collectdata\课程文章\wj.doc")
    app.Selection.Find.Text = "^l"
    app.Selection.Find.Replacement.ClearFormatting()
    app.Selection.Find.Replacement.Text = "^p"
    app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
    doc.save
    app.Selection.Find.Text = "^p^p"
    app.Selection.Find.Replacement.ClearFormatting()
    app.Selection.Find.Replacement.Text = "^p"
    app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally