word中数字的查找比较与替换

重远

想用vba在共用题干下面 72. 或 73. 这样的序号前加入\=

413191246se

略。。。。

重远

谢谢413191246se，辛苦了。早上起来我在上面的样子中测试下没问题。我又用长文档测试，程序会发生未响应。不知道怎么回事。

wdpfox

学品高，人品强，耐心解答，好人平安！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）

yxingsong

    With Selection.Find
        .Text = "([0-9]{1,}.)"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = True
        .MatchByte = True
        .MatchWildcards = True
        .MatchWholeWord = False
        .MatchFuzzy = False
        .Replacement.Text = "=\1"
    End With
    With Selection.Find
        .Style = ""
        .Highlight = wdUndefined
        With .Replacement
            .Style = ""
            .Highlight = wdUndefined
        End With
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.Text = "=\1"
    With Selection.Find
        .Text = "="
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchWholeWord = False
        .MatchFuzzy = False
        .Replacement.Text = "\="
    End With
    With Selection.Find
        .Style = ""
        .Highlight = wdUndefined
        With .Replacement
            .Style = ""
            .Highlight = wdUndefined
        End With
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.Text = "\="

413191246se

楼主，这回再试试，请千万不要删除“B型题”这个段落。

1. Sub aaaa_new()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "共用题干"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 Do
   
10.                     .Move 4
    
11.                     With .Paragraphs(1).Range
    
12.                         If .Text Like "##.*" Or .Text Like "#.*" Then
    
13.                             .Font.ColorIndex = wdPink
    
14.                             .InsertBefore Text:="\="
    
15.                         End If
    
16.                     End With
    
17.                     If .Paragraphs(1).Range Like "B型题?" Then
    
18.                         Selection.HomeKey 6
    
19.                         MsgBox "OK!         ", 0 + 48
    
20.                         End
    
21.                     End If
    
22.                 Loop Until .Paragraphs(1).Range Like "*共用题干*"
    
23.             End With
    
24.         Loop
    
25.     End With
    
26. End Sub

复制代码

重远

谢谢，这次很OK了，正是我想要的效果。我以前看过一点VBA的教程，现在想起来，又想学下，感觉很难学呢。到现在，只是简单的问题能处理下，复杂一点的感觉无从下手了。

重远

重远

yxingsong老师的代码我也试了下，有个地方报带指定名称的项目不存在，不知道怎么回事

413191246se

楼主，如果你对 VBA 编程有兴趣，可以通过多录制宏来由浅入深地学习；还有，免费的微软官方 VBA 帮助文件你可以搜索一下，多看看会有帮助的（在 VBE 编程环境中，将光标放在某个代码处，按 F1 可能会有联机帮助，也可以学习），紧密结合自己的工作需要来编程，编程是有乐趣的。