Question

我想根据下拉菜单使用宏帮助来更改标题的标题。

我试图通过下面的代码找到我的word文件中的所有项目，但似乎我的标题中的文本框没有进入ActiveDocument.ContentControls列表。你能不能帮我解决问题。

我的“测试”消息永远不会出现。

For Each oCC In ActiveDocument.ContentControls
    If oCC.Tag = "CB_DOC_TYP" Then
        MsgBox "doc Type"

        For Each oDD In ActiveDocument.ContentControls
            If oDD.Tag = "TB_Header_Titel" Then
                oDD.SetPlaceholderText , , oCC.Title
                MsgBox "test"
            End If
        Next oDD
    End If
End If

Answer 1

标题是文档的不同部分。在致电ActiveDocument.ContentControl时，您会在wdMainTextStory部分默认搜索。要获取标题中的内容控件，请尝试以下参考之一：

ActiveDocument.StoryRanges(wdPrimaryHeaderStory).ContentControls

或

ActiveDocument.StoryRanges(wdEvenPagesHeaderStory).ContentControls

或

ActiveDocument.StoryRanges(wdFirstPageHeaderStory).ContentControls

您还可以通过以下方式遍历所有文档故事范围：

Dim SR As Object
For Each SR In ActiveDocument.StoryRanges

    'your macro here
    '....

Next

如何通过下拉列表更改word文件的标题

1 个答案: