WORD表格中的回车符与表格外的回车符不一样，如何识别？

413191246se

* 魏老师，请试试：

1. Sub aaaa_FindActiveDocument_Numbers()
   
2.     Dim n&
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = "<[0-9]{1,}[!^1-^127]"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 If .Information(12) Then GoTo skip
    
11.                 n = n + 1
    
12.                 .Font.Color = wdColorRed
    
13. '                .Start = .End
    
14.             End With
    
15. skip:
    
16.         Loop
    
17.     End With
    
18.     MsgBox "n = " & n, 0 + 48
    
19. End Sub

复制代码

weiyingde

413191246se 发表于 2021-3-1 17:46
* 魏老师，请试试：

谢谢，有“<[0-9]{1,}”就可以了。

weiyingde

还是发现有问题。
1.总体、个56体、样
2.本和样78本
3.容90量：我们把
4.所要考察的对,67象的全体
5.叫做总体；把90.组成总体的每一个
6.考察对象叫做55个体；从总
7.体中43取出的一部分个体
8.叫做这23个总体的一个
9.样本；90一个样本包括的
10.个体12数量叫做
11.样本17容量．
也匹配了，还是不能准确匹配每段开头的开头的数字。

weiyingde

匹配了不该匹配的项目，比如上楼的红字的内容。

413191246se

魏老师：你这是假设表格中不存在数字的情况下，添加了一个小数点（如果还不行，就在表格下面加一个空行再用"^13[0-9]{1,}."来查找了！）。“<”不太靠谱！请重新试试：

1. Sub aaaa_FindActiveDocument_Numbers_222()
   
2.     Dim n&
   
3.     With ActiveDocument.Content.Find
   
4.         .Execute "[^13^l]", , , 1, , , , , , "^p", 2
   
5.         .ClearFormatting
   
6.         .Text = "<[0-9]{1,}."
   
7.         .Forward = True
   
8.         .MatchWildcards = True
   
9.         Do While .Execute
   
10.             With .Parent
    
11.                 If .Information(12) Then GoTo skip
    
12.                 n = n + 1
    
13.                 .Font.Color = wdColorRed
    
14. '                .Start = .End
    
15.             End With
    
16. skip:
    
17.         Loop
    
18.     End With
    
19.     MsgBox "n = " & n, 0 + 48
    
20. End Sub

复制代码

weiyingde

413191246se 发表于 2021-3-3 17:18
魏老师：你这是假设表格中不存在数字的情况下，添加了一个小数点（如果还不行，就在表格下面加一个空行再用 ...

还是不行，假若在“67”和“90”之后，加上一“.”(点),仍然匹配了不该匹配的两个数字。

413191246se

魏老师：在我的 Word 2019 中，上面的代码，是正确的，仅匹配段首文字，中间的数字+小数点并未匹配。
要不这样，请在文档中先循环遍历所有表格，将其取消文字环绕，并在每个表格后面加一空行，再行查找。
魏老师，可否将具体的实际情况文档发上来，看看具体情况再决定如何编程呢？

weiyingde

413191246se 发表于 2021-3-4 23:15
魏老师：在我的 Word 2019 中，上面的代码，是正确的，仅匹配段首文字，中间的数字+小数点并未匹配。
要不 ...

我用的是2010，两年前，我也是出现像楼主出现的问题，至今还没有解决。
后来，我用正则代码解决了这个问题，但用word，始终存在问题。