我可以在整个文档中使用收缩方法吗？

Question

我对代码一无所知。我在Storyline 3中使用电子学习。有时我会本地化这些电子学习，并使用Articulate中的翻译工具，该工具基本上会导出MS Word文件。有时目标语言较长，因此我需要按整个文档的百分比减小字体大小。通常，我需要至少减少3种不同的字体大小。我希望开发一个可用于多个文档的宏。

我找不到按百分比执行此操作的方法，但是看起来“收缩”或“增长方法”将完成此工作！我在参考页中找到了此代码，但看起来它仅适用于选定的对象。问题在于，导出的MS Word文件位于表格中，故事情节中的每个文本框均被分隔为一个单元格。当我选择整个表格时，它不起作用。

If Selection.Type = wdSelectionNormal Then 
    Selection.Font.Grow
Else
    MsgBox "You need to select some text."
End If

能否请您帮我一下，让我知道整个文档或所选表格是否可行？将不胜感激。预先感谢。

Answer 1

从您的问题中并不清楚Word文档中的表是包含实际的文本框，还是仅包含其中的文本。

如果仅是文本，则Shrink可能有效。我在一个仅包含文本的单个表的文档上对此进行了测试：

ActiveDocument.Range.Font.Shrink