Question

我正在尝试使用vbscript格式化插入的图像标题。我尝试了以下但它不起作用。我找不到任何允许字体格式化的InsertCaption方法。在一些论坛上，我确实发现可以从单词设置更改标题样式，但无法找到相同的vb代码，并且在任何情况下都是无效的。我正在尝试以下方面。第一行完美无缺。其余的没有影响。

objselection.InsertCaption "Figure", ": " & Object_Title , "", wdCaptionPositionAbove
objSelection.Font.Color = RGB(107, 143, 122)
objSelection.Font.Name = FontNameCaption
objSelection.Font.Size = FontSizeCaption
objSelection.Font.Style = FontColorCaption

Answer 1

插入的标题不会成为图像或选择的一部分。它只是具有特定格式的另一段。您可以执行以下操作来更改所有标题的格式：

For Each para In ActiveDocument.Paragraphs
  If para.Style = "Caption" Then
    With para.Range
      .Font.Color = RGB(107, 143, 122)
      .Font.Name  = FontNameCaption
      .Font.Size  = FontSizeCaption
      .Font.Style = FontColorCaption
    End With
  End If
Next

然而，更好的方法是修改＆＃34;标题＆＃34;文档模板中的样式，以便您之后不需要修改字幕格式。

在VB / VBscript中插入标题方法

1 个答案: