Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open("f:\123.docx")
app.ActiveWindow.View.Type = MSWord.WdViewType.wdOutlineView
app.ActiveWindow.View.SeekView = MSWord.WdSeekView.wdSeekPrimaryHeader
app.ActiveWindow.ActivePane.Selection.InsertAfter( "左边 中间 右边" )
doc.save
doc.close(Nothing,Nothing,Nothing)
'app.Visible = True
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
加好友 
发短信
Post By：2019/1/7 22:28:00 [只看该作者]
