这是我第一次编写 VBA。我需要使用我的数据库中的数据生成一个 Word Doc(仅限选定表)。我设法使用 XXX.Selection.TypeText
在文档中创建了带有一些文本的 Word Doc。但是我不知道如何为报告包含页眉和页脚。我尝试了很多方法,但无法得到我想要的结果。
我的问题是,我可以使用/打开预定义的 Word 文档(带有页眉和页脚)并在该预定义的 Word 文档中填充我的数据吗?
谢谢!
最佳答案
看看下面的代码:
这将创建一个新的 Word 文档,包括页眉和页脚内容以及正文内容。
注意: 不要忘记添加对 Microsoft Word 对象的引用
Dim objWord As Word.Application
Dim doc As Word.Document
Dim WordHeaderFooter As HeaderFooter
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = True
Set doc = .Documents.Add
doc.SaveAs CurrentProject.Path & "\TestDoc.doc"
End With
With objWord.Selection
.Font.Name = "Trebuchet MS"
.Font.Size = 16
.TypeText "Here is an example test line, #" & " - Font size is " & .Font.Size
.TypeParagraph
'Add header and footer
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Header"
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Footer"
End With
doc.Save
doc.Activate
vba ms-access ms-word
关于vba - 使用 MS Access 和 VBA 生成 Ms Word 文档,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/24031426/