WORD文档只选择全部表格内的数字部分

hzj2014

WORD文档里面，有很多表格，我只想选择全部表格内的数字部分，非表格的正文则不选择，请问有什么技巧方法实现吗，或者VBA也行。

kqbt

要“全选”可能比较麻烦，先试一下遍历：

1. Sub 查找表格内数值()
   
2.   Dim wRng As Range
   
3.   Set wRng = ActiveDocument.Content
   
4.   With wRng.Find
   
5.     .ClearFormatting
   
6.     .Font.Color = wdColorAutomatic
   
7.     .Replacement.ClearFormatting
   
8.     Do While .Execute("[0-9]{1,}", , , True, , , True)
   
9.       If wRng.Tables.Count > 0 Then
   
10.         wRng.Font.Color = wdColorRed
    
11.       End If
    
12.       wRng.SetRange wRng.End, ActiveDocument.Content.End
    
13.     Loop
    
14.   End With
    
15. End Sub

复制代码

kolama

kqbt 发表于 2015-11-21 11:52
要“全选”可能比较麻烦，先试一下遍历：

这个厉害，VBA的功能太强大了，原来有个问题一次选中全部的表格也是用VBA实现的

追月狼

kqbt 发表于 2015-11-21 11:52
要“全选”可能比较麻烦，先试一下遍历：

请教版主如何把是"-"的条件也加上去，只编历数字与“-”，

kqbt

追月狼 发表于 2017-10-31 15:14
请教版主如何把是"-"的条件也加上去，只编历数字与“-”，

试试"[0-9-]{1,}"