Private Sub Command1_Click()
Dim wordApp As Word.Application, Word As Document
Set wordApp = CreateObject("Word.Application") '加入各服务中心的头一张“合格供方复评记录”代码
Set Word = wordApp.Documents.Open(App.Path & "\11111.doc")
wordApp.Visible = True
'光标移动到第三段的段尾,请求帮助
'Word.SaveAs App.Path & "\11111.doc"
'Word.Close
'Set Word = Nothing
'wordApp.Quit
'Set wordApp = Nothing
End Sub
只有本站会员才能查看附件,请 登录