WordVBA中字符串查找替换进阶

duquancai

小花鹿 发表于 2016-11-20 13:33
i.Range.Text
我试了，去掉Text也行，不知有什么区别
是不是i.Range代表段落中的文本，图片，图表，等等 ...

是的   i.Range代表段落中的文本 默认属性就是Text    类比Excelvba中  range("a1") 和range("a1").Value

小花鹿

Sub Word文档中修改格式()
   Dim mt, oRang As Range, n%, m%, act As Range
   Set act = ActiveDocument.Content '把整个文档区域赋值个range对象变量act
   With CreateObject("vbscript.regexp")
      .Pattern = "^第[^条]+条" '这里各显其能输入正则表达式（根据自己的需求）
      .Global = True: .MultiLine = True: '.IgnoreCase = False
      For Each mt In .Execute(act.Text) '整个文档内容作为“目标文本”进行查找
         m = mt.FirstIndex: n = mt.Length
         Set oRang = ActiveDocument.Range(act.Start + m, act.Start + m + n)
         oRang.Bold = True '字符加粗，有一系列的修改格式（根据自己的需求）
      Next
   End With
End Sub
这段代码定位不准确，换成replace(act.text,chr(7),"")就行了

duquancai

小花鹿 发表于 2016-11-21 09:36
Sub Word文档中修改格式()
   Dim mt, oRang As Range, n%, m%, act As Range
   Set act = ActiveDocume ...

如果文档中只由表格和文本部分构成，你这样把chr(7)字符替换后把整个文档作为“目标文本”来查找修改格式，这样没问题，比如这个代码如下（用一个中间字符串变量）：Sub 修改格式或者提取字符()
   Dim mt, oRng As Range, n&, m&, str$
   str = Replace(ActiveDocument.Content, Chr(7), "")
   With CreateObject("vbscript.regexp")
      .Global = True: .IgnoreCase = False: .MultiLine = True
      .Pattern = "重庆" '正则表达式
      For Each mt In .Execute(str)
         m = mt.FirstIndex: n = mt.Length
         Set oRng = ActiveDocument.Range(m, m + n)
         oRng.Font.ColorIndex = 6 '设置格式或者提取字符S=oRng.Text
      Next
   End With
End Sub

如果文档中（除了表格外，有还是没有都无所谓，因为替换了chr(7)字符，表格不会影响了！实际上单元格结束符由chr(13)和chr(7)构成的整体，正则会把单元格“结束符”计算为2个字符，而rangge对象中计算为1个字符）还有“域”对象，也有可能含有其他对象“目录，也是域”、节对象的某些子对象（比如：分隔符等），这时候还是已整个文档为“目标文本”，同样面临定位不准的情况！！！
所以最为理想的还是遍历所有段落（排不排除表格，看具体情况）把每一段作为“目标文本”较为稳妥，只是要牺牲速度作为代价！！！

小花鹿

所以最为理想的还是遍历所有段落（排不排除表格，看具体情况）把每一段作为“目标文本”较为稳妥，只是要牺牲速度作为代价！！！
好的，记住了，我也觉得遍历所有段落比较好，谢谢

duquancai

小花鹿 发表于 2016-11-21 22:50
所以最为理想的还是遍历所有段落（排不排除表格，看具体情况）把每一段作为“目标文本”较为稳妥，只是要牺 ...

正如2楼龚老师所说的那样。龚老师是研究多年的word高手中的高手，我曾经得到他的帮助，在此真诚的感谢龚老师！
在word中使用正则的时候下列三大类型的对象将对正则定位造成影响：
1、word表格类：这个类型已经解决，解决方案：那就是用中间变量替换掉chr(7)字符，把整个文档作为“目标字符串”，这类完全解决。
2、word图形、图片类：这类对象，如果为浮动式将造成正则的定位不准，解决方案：把这类对象全部转换成“嵌入式”，再用正则可以定位准确。
    对于这类对象，谁有敢保证所有的都是嵌入式呢？就算都转为了嵌入式，这将对原文档的结构造成影响，因此如果有这类对象，正则慎用！
3、word域类：这个大类同样会造成正则的定位不准，解决方案：把域全部显示出来（有域大括号那种）或者解除域，再用正则可以定位准确。
      对于这类对象，同样的，正则慎用！
      其余word对象暂未发现会造成正则的定位不准！

小花鹿

duquancai 发表于 2016-11-22 00:51
正如2楼龚老师所说的那样。龚老师是研究多年的word高手中的高手，我曾经得到他的帮助，在此真诚的感谢龚 ...

这样看来，用WORD的查找替换是不是保险一点？

duquancai

小花鹿 发表于 2016-11-22 09:03
这样看来，用WORD的查找替换是不是保险一点？

是的，但是只要具备上述条件，正则也行啊！具体情况得具体分析。尤其是纯文本（当然还有表格也无所谓），这种只含有表格的Word文档还是很多的！！！

小花鹿

还有没有后续？等着呢

小花鹿

问个问题，正则能不能完全替代WORD中的查找替换？

hyc1993

在excel中用vba编辑word文件时，第一次运行替换的代码可以运行，但是第二次运行时显示“Run-time error '462': The remote server machine does not exist or is unavailable”，以下是在Microsoft找到的解释
Visual Basic has established a reference to Word due to a line of code that calls a Word object, method, or property without qualifying it with a Word object variable. Visual Basic does not release this reference until you end the program. This errant reference interferes with automation code when the code is run more than once.
大伙知道怎么解决吗？