Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
Set myDoc =wApp.Documents.open("c:\non.doc")
myDoc.TrackRevisions = True
'Documents(1).Activate
myDoc. Tables(1). Cell(2,2).select
wapp.selection.InsertAfter "Hello"
mydoc.saved=true
msgbox("ok")
wApp.quit
end if
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word97"
else
wApp.visible = True
Set myDoc =wApp.Documents.open("c:\non.doc")
myDoc.TrackRevisions = True
'Documents(1).Activate
myDoc. Tables(1). Cell(2,2).select
wapp.selection.InsertAfter "Hello"
mydoc.saved=true
msgbox("ok")
wApp.quit
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货