用VBA设置WORD文档所有字母和数字字体

duquancai

39660519 发表于 2016-9-21 15:56
我原来“T = WORD文件.Characters(A1).Text”判断每一个字节更慢，5分钟才改完一个文件，还有什么好办法 ...

楼上的代码，你自己测试！没有其它办法了！！！

39660519

duquancai 发表于 2016-9-21 15:58
楼上的代码，你自己测试！没有其它办法了！！！

非常感谢老师的帮忙，可以了，不到20秒，比原来5分好太多了，可惜今天没有花花了，改天不上

duquancai

39660519 发表于 2016-9-21 16:31
非常感谢老师的帮忙，可以了，不到20秒，比原来5分好太多了，可惜今天没有花花了，改天不上

为了提高速度，我还是决定采用正则（当然前提条件是Word文档中有表格也适用！），代码如下，请测试！！！

1. Sub shishi()
   
2.     Dim pt$, f$, wd As Object, n&, m&, wdapp As Object
   
3.     Dim oRang As Object, mt, i As Object
   
4.     Application.ScreenUpdating = False
   
5.     Set wdapp = CreateObject("Word.Application")
   
6.     wdapp.Visible = False
   
7.     pt = ThisWorkbook.Path & ""
   
8.     f = Dir(pt & "*.doc*")
   
9.     Do While f <> ""
   
10.         Set wd = wdapp.Documents.Open(pt & f, Visible:=False)
    
11.         With CreateObject("vbscript.regexp")
    
12.             .Pattern = "[a-zA-Z0-9]+"
    
13.             .Global = True: .IgnoreCase = False
    
14.             For Each i In wd.Paragraphs
    
15.                 If Len(i.Range.Text) <> 1 Then
    
16.                     For Each mt In .Execute(i.Range.Text)
    
17.                         m = mt.FirstIndex: n = mt.Length
    
18.                         Set oRang = wd.Range(i.Range.Start + m, i.Range.Start + m + n)
    
19.                         oRang.Font.Name = "Times New Roman"
    
20.                     Next
    
21.                 End If
    
22.             Next
    
23.         End With
    
24.         wd.Close True
    
25.         f = Dir
    
26.     Loop
    
27.     wdapp.Quit
    
28.     MsgBox "操作完毕！"
    
29.     Application.ScreenUpdating = True
    
30. End Sub

复制代码

13907933959

duquancai 发表于 2016-9-22 13:49
为了提高速度，我还是决定采用正则（当然前提条件是Word文档中有表格也适用！），代码如下，请测试！！！

前辈好！
在2003版的Word文档上（文档内有文字、有表格），好象运行不了，提示运行时错误：“424” 要求错误！

39660519

duquancai 发表于 2016-9-22 13:49
为了提高速度，我还是决定采用正则（当然前提条件是Word文档中有表格也适用！），代码如下，请测试！！！

我明白老师的思路了，我试试

39660519

duquancai 发表于 2016-9-22 13:49
为了提高速度，我还是决定采用正则（当然前提条件是Word文档中有表格也适用！），代码如下，请测试！！！

段Paragraphs可以提取表格里面的内容，但一个单元格就是一个段，我的文档里好多表格，循环下来反而比FIND法慢了

westwindgg

如果想针对所有文字 内容进行修改，应该如何改代码吗？就是也包括中文

ammyc

好好学习，天天向上

lutom

牛人真多，学习了。