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 Express 编写 VBA 代码。

编辑：确切的错误是： "wdheaderFooterPrimary" 未声明。（第二部分的翻译如下：）根据对象的安全级别，可能无法访问该对象(?)

Answer 1

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

.ActiveDocument.Sections.Item (1) .Footers.Item (1) .Range.text = "Write your own text"

Answer 2

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

Visual Basic 2010 - "function" 未声明

Visual Basic 2010 - "function" not declared

vb.net

visual-studio-2010