如何替换行首编号和点号

jurdy001

有一个word里面有很多题目，每个题目的首行都有一个编号（1位或2位）和点号，现在需要将其去掉，使每个题目前没有编号和点号。目前想到的方法是替换，理论上用第二种替换方法是很完美的，但是当某个题前面有图片时，这种方法就不能100%奏效，百思不解！
小生想知道实现本目的有没有更好的方法？或者用vba如何实现？烦请大伽指点小生一下。如果只能用vba，烦请配上代码，谢谢！
替换的两种方案：
<[0-9]{1,2}. 替换成 空
^13[0-9]{1,2}. 替换成 ^13

duquancai

用VBA可以完美，手机上网中。

jurdy001

duquancai 发表于 2018-4-18 15:48
用VBA可以完美，手机上网中。

可否烦请老师得空配一段代码？深表谢意！
此外，小生想知道，替换的思路是否确实行不通？

duquancai

这题目有不少的坑！

jurdy001

duquancai 发表于 2018-4-18 16:45
这题目有不少的坑！

嗯嗯嗯，就是的，所以处理起来很棘手。有图片就会出问题，这让人很无语且束手无策。估计只能让vba出马才有完美方案！

duquancai

jurdy001 发表于 2018-4-18 18:01
嗯嗯嗯，就是的，所以处理起来很棘手。有图片就会出问题，这让人很无语且束手无策。估计只能让vba出马才 ...

首先给你指出：不是“行首”而是“段首”！！！

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         Do While .Execute("[0-9]@.", , , -1)
   
4.             With .Parent
   
5.                 If .Paragraphs(1).Range.Text Like .Text & "*" Then
   
6.                     .Text = Empty
   
7.                 End If
   
8.                 .Start = .End
   
9.             End With
   
10.         Loop
    
11.     End With
    
12. End Sub

复制代码

jurdy001

duquancai 发表于 2018-4-18 21:29
首先给你指出：不是“行首”而是“段首”！！！

谢谢老师指正。
代码很好，运行也比较快。看来必须得vba出马，直接替换估计行不通。不知道有没有具体原因，解释为何会出现这种情形，是否跟word替换的内部机理有关？

相见是缘8

duquancai 发表于 2018-4-18 21:29
首先给你指出：不是“行首”而是“段首”！！！

厉害！大神就是大神！

13907933959

duquancai 发表于 2018-4-18 21:29
首先给你指出：不是“行首”而是“段首”！！！

杜前辈好！
您的代码总是高级！如我也只能想到楼主的替换方法。