Option Explicit

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