用VB在WORD中添加页眉，并在页眉中插入图片

[scotfree]

我用VB保存文件到WORD中去（已经实现），希望在每页WORD的页眉上都加入一个LOGO，所以需要添加WORD页眉，并插入一个图片。整个过程WORD不用打开。怎么实现呀。在网上找了好久，没有找到方法呢？

[赵4老师]

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[贝隆]

代码没有，不过给你推荐一本书：http://download.csdn.net/detail/veron_04/1627134

[scotfree]

我用了宏的。但是不知道怎么和VB衔接。
这个是主程序
Private Sub mnuPara_Click()‘点击菜单栏的命令
Dim InitDir As String
Dim fn As Integer
Dim i As Integer
fn = FreeFile
With CommonDialog1
.InitDir = App.Path
.Filter = "word文档（*.doc）|*.doc|所有文件（*.*）|*.*"
.CancelError = True
.Flags = cdlOFNOverwritePrompt Or cdlOFNPathMustExist
On Error GoTo errtrap
.ShowSave
Open .FileName For Output As fn
'Dim i As Long
Call insertpic
end sub
下面的是宏
Sub insertpic()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
CommandBars("AutoShapes").Visible = False
Selection.InlineShapes.AddPicture FileName:=.FileName , LinkToFile:=False, SaveWithDocument:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
程序报错。

[scotfree]

我现在已经把问题解决了。谢谢大家。是这样实现的：
先把文件存入WORD以后关闭，然后在重新调用WORD，需要的定义一个word.application,然后根据上次
关闭时保存的路径，把原来的WORD打开，然后调用宏就可以了。
现在遇到了另外一个问题：
就是我查看保存好的WORD文件，需要点击打开。打开以后出现的是乱码，需要选择要默认的WINDOW编码才可以显示正常。后来再打开，量选择编码的对话框都没有了，直接就显示的是乱码。

[赵4老师]

[Quote=引用 4 楼 的回复:]
我现在已经把问题解决了。谢谢大家。是这样实现的：
先把文件存入WORD以后关闭，然后在重新调用WORD，需要的定义一个word.application,然后根据上次
关闭时保存的路径，把原来的WORD打开，然后调用宏就可以了。
现在遇到了另外一个问题：
就是我查看保存好的WORD文件，需要点击打开。打开以后出现的是乱码，需要选择要默认的WINDOW编码才可以显示正常。后来再打开，量选择编码……
[/Quote]
参考二楼。