批量删除word中所有表格里的数字格式前面的空格

jstvic

哪位大神熟悉word vba  ，只想对所有表格中出现的数字 前面的空格批量删除   
每次更新链接 表格格式就会被打乱
求指点

jstvic

1. Sub 单元格数字空格去掉()
   
2.     Dim mWord As Document
   
3.     Dim mTable As Table
   
4.     Dim mCell As Cell
   
5. 
   
6.    
   
7.     Set mWord = ActiveDocument
   
8.    
   
9.     Set mTable = mWord.Tables(1)
   
10.    
    
11.     For Each mCell In mTable.Range.Cells ''遍历表中的每个单元格
    
12.    
    
13.    
    
14.            If IsNumeric(mCell) Then     '找到数字
    
15.             'On Error Resume Next
    
16.             With mCell.Range.Find
    
17.                .Text = " "
    
18.                
    
19.                .Replacement.Text = ""
    
20.                 End With
    
21.             End If
    
22.       
    
23.     Next
    
24.    
    
25.     Set mWord = Nothing
    
26.     Set mTable = Nothing
    
27.     Set mCell = Nothing
    
28. 
    
29.     MsgBox "完成！"
    
30. End Sub
    

复制代码

哪位大神帮忙指定一下 ，这段代码 怎么改才可以运行

chxw68

1. Sub 单元格数字空格去掉()
   
2.     Dim mWord As Document
   
3.     Dim mTable As Table
   
4.     Dim mCell As Cell
   
5.     Dim reg As New RegExp
   
6.     With reg
   
7.         .Global = False
   
8.         .Pattern = "^\s+(-?[\d\.\,]+)\s\x0D\x07$"
   
9.     End With
   
10.    
    
11.     With ThisDocument
    
12.         ss = .Tables(1).Cell(3, 2).Range.Text
    
13.         For i = 1 To Len(ss)
    
14.             ch = Mid(ss, i, 1)
    
15.             Debug.Print ch, Asc(ch)
    
16.         Next
    
17.         For Each mTable In .Tables
    
18.             With mTable
    
19.                 For Each mCell In .Range.Cells
    
20.                     If reg.Test(mCell.Range.Text) Then
    
21.                         mCell.Range.Text = reg.Replace(mCell.Range.Text, "$1")
    
22.                     End If
    
23.                 Next
    
24.             End With
    
25.         Next
    
26.     End With
    
27.     Set mWord = Nothing
    
28.     Set mTable = Nothing
    
29.     Set mCell = Nothing
    
30. 
    
31.     MsgBox "完成！"
    
32. End Sub
    
33. 
    

复制代码

chxw68

修改好了。

jstvic

chxw68 发表于 2023-5-4 21:54
修改好了。

老师 为啥 提示这个

chxw68

jstvic 发表于 2023-5-4 22:13
老师 为啥 提示这个

百度一下正则表达式。

chxw68

修改好了。

cjc209

chxw68 发表于 2023-5-4 22:14
百度一下正则表达式。

最好用后期绑定