Word文字替换和拷贝问题。

irischenxi

想实现如下功能，请大家指教代码有何问题： 在VB中实现Word文档的替换操作和合并，其中A,B分别为两个Word.Document的对象。 '将A中的"#$+K@"全部替换为空字符串，但最后的结果未替换。 With A .Content.Find.ClearFormatting .Content.Find.Replacement.ClearFormatting With .Content.Find .Text = "#$+K@" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Content.Find.Execute Replace:=wdReplaceAll End With '将A中的全部内容拷贝到B中，不覆盖B中原有的内容 ，但最后的结果覆盖了原有内容。 With A .Content.WholeStory .Content.Copy B.Save B.Content.MoveEnd B.Content.PasteAndFormat (wdPasteDefault) End With

守柔

请参考：

Sub Example()
Dim A As Document, B As Document, myRange As Range
Set A = ThisDocument
With A.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="#$+K@", replacewith:="", Replace:=wdReplaceAll
End With
Set B = Documents.Add
B.Content.InsertAfter "123"
Set myRange = B.Content
A.Content.Copy
myRange.Collapse wdCollapseEnd
myRange.PasteAndFormat (wdPasteDefault)
End Sub

irischenxi

非常感谢版主，你的方法很简单！