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

413191246se · 发表于 2021-3-1 17:46

* 魏老师，请试试：

Sub aaaa_FindActiveDocument_Numbers()
Dim n&
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "<[0-9]{1,}[!^1-^127]"
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
If .Information(12) Then GoTo skip
n = n + 1
.Font.Color = wdColorRed
' .Start = .End
End With
skip:
Loop
End With
MsgBox "n = " & n, 0 + 48
End Sub

复制代码

weiyingde · 发表于 2021-3-3 14:14

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

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

weiyingde · 发表于 2021-3-3 14:25

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

weiyingde · 发表于 2021-3-3 16:11

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

413191246se · 发表于 2021-3-3 17:18

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

Sub aaaa_FindActiveDocument_Numbers_222()
Dim n&
With ActiveDocument.Content.Find
.Execute "[^13^l]", , , 1, , , , , , "^p", 2
.ClearFormatting
.Text = "<[0-9]{1,}."
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
If .Information(12) Then GoTo skip
n = n + 1
.Font.Color = wdColorRed
' .Start = .End
End With
skip:
Loop
End With
MsgBox "n = " & n, 0 + 48
End Sub

复制代码

weiyingde · 发表于 2021-3-4 19:38

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

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

413191246se · 发表于 2021-3-4 23:15

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

weiyingde · 发表于 2021-3-5 06:41

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

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

		自动登录	找回密码
密码			免费注册

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

评分