【WPS】【WORD&EXCEL】【VB】实现微软WORD自动更正的效果 ...

1. 代码规范方面

• 添加 Option Explicit：强制要求显式声明所有变量，这样可以避免因变量名拼写错误等情况而出现难以排查的逻辑错误，提高代码的结实性。
  
• 使用 On Error GoTo 举行错误处置惩罚：通过设置错误处置惩罚机制，今世码执行过程中出现错误时，能够跳转到指定的错误处置惩罚代码段（ErrorHandler 标签处），在那里可以举行合适的处置惩罚，好比弹出错误提示消息框告知用户错误信息，同时只管开释已经占用的资源（如关闭 Excel 相干对象），避免因错误导致程序异常退出而留下资源占用等问题。
  

2. 查找替换操作细化方面

• 使用 With 语句设置 Find 对象属性：在举行查找替换操作时，使用 With 语句可以更简洁清晰地对 Find 对象的多个属性举行设置，包罗设置查找文本（.Text）、替换文本（.Replacement.Text）以及其他如查找方向（.Forward）、超出范围处置惩罚方式（.Wrap）、是否查找格式（.Format）以及匹配相干的属性（.MatchCase、.MatchWholeWord、.MatchWildcards 等）。这样代码结构更加清晰，便于理解和后续维护，同时可以方便地根据实际需求调整这些查找替换的具体规则。
  

1. Option Explicit '强制要求显式声明变量，避免因变量名拼写错误等导致的潜在问题
3. Sub ReplaceWithExcelData()
4.     '定义常量，确保替换方式常量正确定义
5.     Const wdReplaceAll = 2
6.     Const wdMatchCase = False '设置查找时不区分大小写，可根据实际需求调整
7.     Const wdMatchWholeWord = False '设置不要求全字匹配，可根据实际需求调整
8.     Const wdMatchWildcards = False '设置不使用通配符匹配，可根据实际需求调整
9.    
10.     Dim xlApp As Object
11.     Dim xlBook As Object
12.     Dim xlSheet As Object
13.     Dim wordRange As Range
14.     Dim i As Long
15.     Dim findText As String
16.     Dim replaceText As String
17.    
18.     On Error GoTo ErrorHandler '设置错误处理，当出现错误时跳转到ErrorHandler标签处执行错误处理代码
19.    
20.     '创建Excel应用程序对象并打开工作簿
21.     Set xlApp = CreateObject("Excel.Application")
22.     xlApp.Visible = False '设置Excel不可见，可根据需求调整为True查看Excel操作情况
23.     Set xlBook = xlApp.Workbooks.Open(ThisDocument.Path & "\1.xlsx") '根据实际路径调整，这里假设同文件夹
24.     Set xlSheet = xlBook.Sheets(1) '假设数据在第一个工作表，如果不是需修改索引
25.    
26.     Set wordRange = ActiveDocument.Content '针对整个文档内容进行查找替换操作，可按需修改范围，比如仅针对选中部分等
27.    
28.     For i = 1 To 1000 '假设你的数据范围是A1:B10，共10行，如果实际更多或更少要相应修改
29.         findText = Trim(xlSheet.Cells(i, 1).Value) '去除两端空格
30.         replaceText = Trim(xlSheet.Cells(i, 2).Value)
31.         
32.         With wordRange.Find '使用With语句简化对Find对象属性的设置
33.            .Text = findText
34.            .Replacement.Text = replaceText
35.            .Forward = True '设置查找方向为向前，一般默认也是向前，可根据需求调整
36.            .Wrap = wdFindContinue '设置查找范围超出文档末尾时的处理方式
37.            .Format = False '不查找格式，只查找文本内容，可根据需求调整
38.            .MatchCase = wdMatchCase '应用不区分大小写的设置
39.            .MatchWholeWord = wdMatchWholeWord '应用不要求全字匹配的设置
40.            .MatchWildcards = wdMatchWildcards '应用不使用通配符匹配的设置
41.            .Execute Replace:=wdReplaceAll
42.         End With
43.     Next i
44.    
45.     '正常执行完后关闭Excel相关对象释放资源
46.     xlBook.Close SaveChanges:=False '关闭Excel文件，不保存更改（如果需要保存更改可设为True）
47.     xlApp.Quit
48.     Set xlSheet = Nothing
49.     Set xlBook = Nothing
50.     Set xlApp = Nothing
51.     Exit Sub '正常退出程序，避免进入错误处理代码块后继续执行后面的代码
52.    
53. ErrorHandler:
54.     MsgBox "程序出现错误，错误信息：" & Err.Description, vbCritical '弹出错误消息框显示错误信息
55.     '如果出现错误，也要尽量关闭Excel相关对象释放资源，避免资源占用
56.     On Error Resume Next '忽略下面代码可能出现的错误，确保资源释放代码执行
57.     xlBook.Close SaveChanges:=False
58.     xlApp.Quit
59.     Set xlSheet = Nothing
60.     Set xlBook = Nothing
61.     Set xlApp = Nothing
62.     On Error GoTo 0 '恢复正常的错误处理机制
63. End Sub

复制代码

3. 测试

• 1.xlsx文件如下：
  
  
  
• 2-副本.docm文件如下：
  
• 
  
  
• 
  
  
• 
  
  

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。