使用 VBA 执行操作

Question

我在 MS Word 文件中有一段文本，如下所示：

[[ul]]
•   For the near term, all Cendoc content will be ingested into the NextBook_Cendoc_June2011 database. 
•   You must navigate to and open this database before you can ingest Cendoc XML. 
•   You can locate this database for the first time by selecting the DATABASE option from the blue navigation bar at the top of the screen. Select the “Browse all database/choose a database” option. Select the “NextBook_Cendoc_June2011” link from the menu. 
[[/ul]]

我需要使用 VBA 的如下输出

<list identifier="" list-style="Unordered">
<item identifier=""""><para identifier="">For the near term, all Cendoc content will be ingested into the NextBook_Cendoc_June2011 database.</para></item>
<item identifier=""""><para identifier="">You must navigate to and open this database before you can ingest Cendoc XML.</para></item>
<item identifier=""""><para identifier="">You can locate this database for the first time by selecting the DATABASE option from the blue navigation bar at the top of the screen. Select the “Browse all database/choose a database” option. Select the “NextBook_Cendoc_June2011” link from the menu.</para></item>
</list>

我该怎么办？

Answer 1

好吧，我按照我的建议做了，并为你录制了一个搜索和替换宏，这就是我想出的。

Option Explicit

Sub SearchAndReplace()

    Selection.HomeKey Unit:=wdStory

    With Selection.Find
        .Text = "[[ul]]"
        .Replacement.Text = "<list identifier="""" list-style=""Unordered"">"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    With Selection.Find
        .Text = "•   "
        .Replacement.Text = _
            "<item identifier=""""""""><para identifier="""">"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


    With Selection.Find
        .Text = "[[/ul]]"
        .Replacement.Text = "</list>"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub