VBA查找和代替 [英] VBA Find & Replace
本文介绍了VBA查找和代替的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在使用Excel VBA从电子表格生成Word文档.我要查找并替换所有双段为单段,这是最后一步的一部分.
I'm using Excel VBA to generate word documents from a spreadsheet. I want to find and replace all double paragraphs with single paragraphs as part of the last step.
基本代码:
Dim objWord
Dim objDoc
Dim objSelection
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Selection
objSelection.TypeText "Test"
objSelection.TypeText (vbCr)
objSelection.TypeText (vbCr)
objWord.Visible = True
查找和替换基本文本作品:
Finding and replacing basic text works:
With objWord.ActiveDocument
Set myRange = .Content
With myRange.Find
.Execute FindText:="test", ReplaceWith:="apple", Replace:=2
End With
End With
查找和替换段落不起作用:
Finding and replacing paragraphs does NOT work:
With objWord.ActiveDocument
Set myRange = .Content
With myRange.Find
.Execute FindText:="^^p", ReplaceWith:="^p", Replace:=2
End With
End With
推荐答案
更改
.Execute FindText:="^^p", ReplaceWith:="^p", Replace:=2
到
.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=2
这篇关于VBA查找和代替的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文