求助大神，怎么让word按Excel列出来的那样批量替换

小小学徒@ · 发表于 2019-5-28 16:28

怎么让word中的文字按Excel两列对比出来的一一批量替换。就是把A列的内容批量替换成对应B列的内容。感谢各位大神！

小小学徒@ · 发表于 2019-5-28 16:46

另外，附件中的数字只是举例，实际是有文字+数字的

小花鹿 · 发表于 2019-5-28 16:46

提供一个核心代码，剩下的自己改，加个循环就行：
Sub DelOrRep()
With ActiveDocument.Content.Find
      .Execute "^11", , , 1, , , , 0, , "^p", 2       '软回车变为硬回车
      .Execute "^13", , , 1, , , , 0, , "^p", 2       '有时光标可移到硬回车后面，可用这种方法解决
      .Execute "^p^w", , , 0, , , , 0, , "^p", 2    '删除段前空白
      .Execute "^w^p", , , 0, , , , 0, , "^p", 2    '删除段后空白
      .Execute "^13{1,}", , , 1, , , , 0, , "^p", 2 '删除空行
End With
End Sub

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

[求助] 求助大神，怎么让word按Excel列出来的那样批量替换