本帖最后由 xjy2004 于 2011-04-03 01:29:49 编辑

解决方案 »

  1.   

    按格式执行查找:
    Sub Macro11()
    '
    ' Macro11 Macro
    ' 宏在 2011-4-3 由 MC SYSTEM 录制
    '
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.Find.Execute
    End Sub
      

  2.   

    当Word.Paragraph.Range.InsertParagraphBefore();的时候就要记录这条数据。