时间戳

首页 > 解决方案 > 我可以对word中的整个文档使用收缩方法吗

vba - 我可以对word中的整个文档使用收缩方法吗

问题描述

我对代码一无所知。我在 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

您能否帮助我，让我知道这是否适用于整个文档或选定的表格？将不胜感激。提前致谢。

标签： vbams-word

解决方案

从您的问题中不清楚 Word 文档中的表格是包含实际的文本框还是仅包含它们包含的文本。

如果只是文字，那么Shrink可能会起作用。我在一个只包含文本的单个表格的文档上对此进行了测试：

ActiveDocument.Range.Font.Shrink

推荐阅读