Word 2007 中的目标页眉和页脚内容控件

发布于 2024-09-11 17:22:35 字数 139 浏览 5 评论 0原文

我正在尝试通过 Word Automation 编辑 .docx 标头。如果内容控件放置在文本正文中,则没有问题,但如果内容控件位于页眉或页脚中,我将无法定位它们。有没有办法在页眉或页脚中定位内容控件(使用 Visual Studio 2008 Express)?

I'm trying to edit a .docx header through Word Automation. If the Content Controls are placed in the body of the text there is no problem, but if the content controls are in the header or footer I'm not able to target them. Is there any way of targetting Content Controls in the header or footer (using Visual Studio 2008 Express)?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(2

抹茶夏天i‖ 2024-09-18 17:22:35

Word 在 StoryRange 集合 - 大多数例程在文档本身的主体上运行wdMainTextStory 类型WdStoryType,除非您专门更改故事。

以下是访问标题中控件的方法:

Dim ad as Document
Set ad = ActiveDocument
For Each objCC In ad.Sections(1).Headers(wdHeaderFooterPrimary).Range.ContentControls 
    ''# Do your thing 
Next 

Word has what are called Stories in the StoryRange collection - most routines run on the main body of the document itself of the wdMainTextStory type of WdStoryType, unless you specifically change stories.

Here's a way to get to your controls in the header:

Dim ad as Document
Set ad = ActiveDocument
For Each objCC In ad.Sections(1).Headers(wdHeaderFooterPrimary).Range.ContentControls 
    ''# Do your thing 
Next 
夢归不見 2024-09-18 17:22:35

使用 Word Automation 在标头中定位 ContentControl 的一种方法可以是:

        Dim ContControlCollec As Word.ContentControls
    ContControlCollec = WordDoc.Doc.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.ContentControls

        ContControlCollec.Item(1).Range.Text = Text1
        ContControlCollec.Item(2).Range.Text = Text2

Using Word Automation one way of targetting ContentControls in the header can be:

        Dim ContControlCollec As Word.ContentControls
    ContControlCollec = WordDoc.Doc.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterFirstPage).Range.ContentControls

        ContControlCollec.Item(1).Range.Text = Text1
        ContControlCollec.Item(2).Range.Text = Text2
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文