将VBA与Word FormatFont对话框一起使用以更改内容控件文本名称

问题描述 投票:-1回答:1

我一直在尝试各种方法,以使用户可以轻松地更新合同模板上几个Word Content Controls中的文本字体名称。有一种用于编辑控件文本的表单,该表单可以具有命令按钮来运行该过程。我想让它变得容易,并将用户与内容控件隔离开来;这是一件很精致的事情;)

这是我想做的(我尝试了此代码的许多排列):

Dim dlg As Dialog

' Initialize the dialog

Set dlg = Dialogs(wdDialogFormatFont)

' Open the font dialog

dlg.Show

' Set the contentcontrols' text font name to the chosen one from the font dialog
ThisDocument.ContentControls(1).Range.Font.Name = Dialogs(wdDialogFormatFont).Font.Name
vba ms-word dialog contentcontrol
1个回答
0
投票

代替dlg.Show,请使用dlg.DisplayShow方法结合了DisplayExecute,因此您将无法获得所选的字体来应用。

请参阅VBA reference以获取更多信息。

© www.soinside.com 2019 - 2024. All rights reserved.