Dim app As New MSWord.Application
try
Dim fileName = "d:\123.doc"
Dim doc As Object = app.Documents.Open(fileName)
'设置图片格式的页眉
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.InlineShapes.AddPicture(FileName:="D:\logo.jpg", LinkToFile:= False, SaveWithDocument:=True)
app.ActiveWindow.Selection.TypeText(Text:="文件标题")
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
'app.Quit
End try
呈献的效果是下图中上半部分，我希望调整位置为下半部分图样式，即左靠齐的是“LOGO.JPG”，右靠齐的文字“标题名称”，需要怎么处理：
此主题相关图片如下：20180614501.png
加好友 
发短信
Post By：2018/6/14 20:54:00 [显示全部帖子]
