vba - Word 加载项，自定义布局

Question

是否可以创建自定义布局，现有的布局是：

• 打印布局
• 全屏阅读
• 网页布局
• 大纲
• 草稿

这些可以在文档视图组下的视图功能区中找到。

我的目标是在现有的视图功能区中获得我自己的布局按钮（如果可以修改它）或向我的自定义功能区添加新布局。

提前致谢！

Answer 1

该答案将提供有关如何更改任何标准设置view type control并将这些更改与某些文档相关联的信息。这不适用于所有文档，并且不会更改整个 Word 应用程序的控制操作，而是更改一个文档。可以对少数文档和几乎所有 Word 按钮重复操作。

重要的！我没有使用英文版的 Office 应用程序，因此某些描述与您所拥有的不完全匹配。对 Word 2010 进行了尝试和测试。

有以下步骤：

1. 打开新文档 - 一个控制应该根据您的私人期望工作的文档。
2. 转到查看>>宏>>显示宏列表
3. 在“宏”窗口中间下方的组合框中，选择诸如Word 应用程序命令（或Word 宏或类似命令）之类的内容。结果，您将获得许多宏名称的列表。

4. 您需要猜测哪个宏与您要更改的功能区控件相关联。使用常识和逻辑来找到它。有时两个或三个似乎匹配，您可能需要尝试一下。

   A）让我们尝试改变draft/pending/working view ribbon control. 下面是一个圆形的红色：

   

   B）查找宏ViewNormal（但不是ViewDraft）

   C)在列表中选择这个宏

5. 将组合框列表更改回您的文档（同时选择您选择的宏）

6. 按Create button右侧的macro window。您将转到VBA Editor以下代码：

   Sub ViewNormal()
   '
   ' ViewNormal Makro
   ' Zmienia widok edycji na normalny
   '
       If ActiveWindow.View.SplitSpecial = wdPaneNone Then
           ActiveWindow.ActivePane.View.Type = wdNormalView
       Else
           ActiveWindow.View.Type = wdNormalView
       End If
   
   End Sub
   

   此代码负责所选功能区控件的工作。

7. 首先，让我们检查一下我们是否可以控制功能区按钮 -MsgBox "Control taken"在代码末尾添加之前的End sub. 返回 Word App 并按下功能区上的按钮，结果应设置为所选视图和我们的消息框。

8. 现在您需要相应地更改代码以根据需要设置视图。为此使用 VBA。

9. 将文档另存为.Docm，每次按下所选功能区按钮时，所有更改都将应用于文档。