使用 MS Access 和 VBA 生成 Ms Word 文档答案

【问题标题】：Using MS Access and VBA to generate Ms Word Document使用 MS Access 和 VBA 生成 Ms Word 文档
【发布时间】：2014-07-24 17:58:00
【问题描述】：

这是我第一次编写 VBA。我需要使用我的数据库中的数据（仅限选定的表）生成一个 Word Doc。我设法使用XXX.Selection.TypeText 在文档中创建了包含一些文本的 Word Doc。但是我不知道如何在报告中包含页眉和页脚。我尝试了很多方法，我无法得到我想要的结果。

我的问题是，我可以使用/打开一个预定义的 Word 文档（带有页眉和页脚）并将我的数据填充到该预定义的 Word 文档中吗？

谢谢！

【问题讨论】：

如果您想将数据打印到现成的文档中，您可以尝试设置书签 [msdn.microsoft.com/en-us/library/office/…
您可以使用带有页眉和页脚的模板并更新文本，也可以使用 VBA 从头开始创建页眉和页脚。尝试在 Word 中记录您要执行的操作的宏，然后根据需要对其进行修改并将代码传输到 Access。
我同意 Ollie 的观点——如果你真的想在代码中完成这一切，请在 Word 中记录一个宏并将其移到上面。

标签： vba ms-access ms-word

【解决方案1】：

看看下面的代码：

这将创建一个新的 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

【讨论】：