vb.net 操作word 替换字符后的格式问题

[魔力小西瓜]

Dim myDoc As Microsoft.Office.Interop.Word.Document
Dim wrdApp As New Microsoft.Office.Interop.Word.Application
myDoc = wrdApp.Documents.Open(FileName:="C:/Doc1.doc")
Dim myRange As Microsoft.Office.Interop.Word.Range


myRange = myDoc.Range()
myDoc.Range.Text = myRange.Text.Replace("BBBB", "222")

以上代码的功能是读取"C:/Doc1.doc"这个文档,然后替换里面的"BBBB"为"222"
运行后成功实现.但是有个问题,就是替换以后文档的字体大小和颜色等都被统一改成了第一个字符的大小和 颜色
求 解决方案.

[wangnaisheng]

http://www.d9soft.com/article/2006/2-16/Article4598_1.htm

试试

[魔力小西瓜]

引用 1 楼 wangnaisheng 的回复:

http://www.d9soft.com/article/2006/2-16/Article4598_1.htm 试试

没有用啊

[魔力小西瓜]

根据2楼提供的资料,又查了其他资料,经过反复测试 终于解决问题了! 我修改后的代码贡献如下,供后来人参考: Sub word_Replace(ByVal FileName As String, ByVal SearchString As String, ByVal ReplaceString As String) Dim wordApp As Application Dim wordDoc As Document Dim wordArange As Range Dim ReplaceSign As Boolean If Dir(FileName) = "" Then '替换文件不存在 MsgBox("未找到" & FileName & "文件") '提示替换文件不存在信息 ' WordReplace = -2 '返回替换文件不存在的值 Exit Sub '退出函数 End If wordApp = CreateObject("Word.Application") '建立WORD实例 wordDoc = wordApp.Documents.Open(FileName) '打开文件并赋予文件实例 ReplaceSign = True '初始化是否替换成功标志,当替换结束后,会返回False wordApp.Visible = False '关闭word文档的显示 While True wordDoc.Select() wordArange = wordDoc.Range ReplaceSign = wordArange.Find.Execute(SearchString, , , , , , , , , ReplaceString, True) '查找并替换 If ReplaceSign = False Then '当全部替换完成以后 才退出,如果要制作替换n次的话,修改此次代码即可 Exit While End If End While wordApp.Visible = True '弹出word框 wordDoc = Nothing '清除文件实例 wordApp = Nothing '清除WORD实例 End Sub

[掌门人的一天]

楼主，今天搜到你的这段代码了，想请教一下这段代码里面你说的替换n，也就是替换多个位置，代码应该怎么修改呀，麻烦帮忙一下，谢谢了。