Question

如何利用VB6向word模板页眉中的表格写入内容（文本框中的内容）。向正文写入知道，就是向页眉写入弄不好。

Dim MyWord As Word.Application
Dim MyWordBook As Word.Document
Set MyWord = New Word.Application
Set MyWordBook = MyWord.Documents.Add(ModelPath & "D:\temp\record template\abcde.dotx") '打开用户自定义的WORD模版
MyWord.Visible = False '显示状态
MyWordBook.Activate
With MyWordBook
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 30 '设置文字字体大小(其它设置类推) 如果去除.Paragraphs(.Paragraphs.Count)则表示所有行
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter '设置文字居中等
.Content.InsertAfter Text1.Text & vbCrLf '向WORD写入一行文字并回车
.Content.InsertAfter "hello"
.Tables(1).Cell(2, 1).Range.InsertAfter "nameFDSAFDSAFDSA" '在WORD第一个表格的第2行第1列插入文本
.Tables(1).Cell(2, 2).Range.InsertAfter Text1.Text
MyWordBook.SaveAs FileName:="D:\temp\record conserve\ " & Text1.Text & " .doc"
MyWord.Quit
MsgBox "保存成功！"

Answer 1

代码操作先不谈。对于手动修改Word模板页眉你会不。不会找一下帮助。学会。然后用宏录下这个过程。再去看看代码就知道怎么回事了。