我用的你的代码可以啊,
Dim wrd As Object
Dim myRange As Object
Set wrd = CreateObject("Word.Application")
wrd.Visible = True
wrd.Documents.Open "f:\表2.doc"
Set myRange = wrd.Documents("表2.doc").Content
myRange.Find.Execute FindText:="thenumber", ReplaceWith:="112233", _
Replace:=wdReplaceAll我的是window2000,office2000
应用的是Microsoft Word 9.0 Object Library
Dim wrd As Object
Dim myRange As Object
Set wrd = CreateObject("Word.Application")
wrd.Visible = True
wrd.Documents.Open "f:\表2.doc"
Set myRange = wrd.Documents("表2.doc").Content
myRange.Find.Execute FindText:="thenumber", ReplaceWith:="112233", _
Replace:=wdReplaceAll我的是window2000,office2000
应用的是Microsoft Word 9.0 Object Library
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货