Visual Basic 2010 - 未声明"function"

Question

我几天前开始写一个宏。它基本上只包含一个UI，您可以在其中选择一些选项，并根据这些选项为您提供几页word文档。它将从项目的bin/release文件夹中的.exe启动。

我想为每一页添加一个页脚和一个页眉，但我一直没能做到

每当我想使用类似于：中的"wdHeaderFooterPrimary"的功能时

objWord = CreateObject("Word.Application")
objDoc = objWord.Documents.Add
objWord.Visible = True
objWord.Selection.TypeText("")
With objWord.Selection
.Paragraphs.Alignment = 2
.Font.size = 9
.Font.Name = "Arial"
End With
With objWord.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = "Header text"
.Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
End With

它给了我一个错误，在"wdHeader…"下面加了下划线。到目前为止，每当我需要以"wd…"开头的功能时，我总是找到一个变通方法。但现在我好像碰壁了。(我从中获得了一些代码：https://msdn.microsoft.com/en-us/library/office/aa221968(v=office.11).aspx)

有人能向我解释一下如何正确使用它吗？我必须更改设置吗？我正在使用Visual Basic 2010学习版编写VBA代码。

编辑：确切的错误是：未声明"wdheaderFooterPrimary"。(第二部分的翻译如下：)也许基于对象的安全级别(？)无法访问该对象

Answer 1

我最终创建了一个wordtemplate.dot文件，其中包含了我想要的页眉/页脚，并在创建新文件时将其加载到应用程序中。

Answer 2

作为这个问题的明确解决方案，我通过研究发现了这一点，并试图精确地工作，我给出了代码；

.ActiveDocument.Section.Item(1).Footers.Item(1).Range.text="编写自己的文本">