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"
运行后成功实现.但是有个问题,就是替换以后文档的字体大小和颜色等都被统一改成了第一个字符的大小和 颜色
求 解决方案.
------解决方案--------------------
http://www.d9soft.com/article/2006/2-16/Article4598_1.htm
试试