在 Word 2010 中对导航窗格进行编程答案

【问题标题】：Program the Navigation Pane in Word 2010在 Word 2010 中对导航窗格进行编程
【发布时间】：2020-07-07 00:58:43
【问题描述】：

我正在尝试找到一种方法来对 Word 2010 中的新导航窗格进行编程，以在用户选择文档中的图片时更改选项卡。我可以使用WindowSelectionChange(ByVal Sel As Selection) 捕获选择更改，但我不知道如何将选项卡从“浏览标题”更改为“浏览页面”，这正是我想要的。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

根据thread 上的 MVP，它不可编程/不可搜索。

【讨论】：

【解决方案2】：

使用 iAccessible 是可能的！

Dim As IAccessible

Set oIA = CommandBars("Navigation")

oIA.Visible = True

然后用accName="Navigation"和accRole=38进行深度递归查找

那么它的索引为 3 的子元素有 accValue=NAVBAR 和 accRole=60

那么 NAVBAR 的子 2 就是你所需要的。

 .accDoDefaultAction CHILDID_SELF

【讨论】：

我尝试在 C# 中执行此操作，但 CommandBar 只有两个孩子，他们都没有自己的孩子。
@Chris。我想知道您是否正在寻找合适的孩子？ FWIW 使用可从wordarticles.com/Shorts/RibbonVBA/RibbonVBADemo.php 下载的 VBA 和以下代码使用 Word 2010 - 您需要稍微解开它 - 我能够切换选项卡，但是（a）我没有深入了解发生了什么还不能调试并且 (b) 不能转换为 C#： Set oIA = CommandBars("Navigation"): oIA.Visible = True: GetListOfChildren(GetListOfChildren(GetAccessible(oIA, 38, "Navigation", False), False).Objects( 2), False).Objects(2).accDoDefaultAction CHILDID_SELF
据我所知，我的代码在做同样的事情。我现在必须放弃这个；如果我重新访问它，我会提出一个新问题并链接到这个问题。