格式化使用所选内容创建的标题。插入卡普顿（单词VBA）

Question

我想格式化与选择创建的标题。在具有VBA的Word文档中插入标题方法（将标题中的文本居中，更改字体大小和颜色）。

到目前为止我的代码：

For i = 1 To (mInlinShapes.Count) 'looping through my document inlineshapes
    If (mInlinShapes(i).Type = wdInlineShapePicture) Then
            Set Shp = mInlinShapes(i).ConvertToShape
            Shp.Select
            With Selection
                .InsertCaption Label:=wdCaptionFigure, _
                              Title:=" a custom title", _
                              Position:=wdCaptionPositionBelow, _
                              ExcludeLabel:=0

            End With
            Shp.ConvertToInlineShape
    End If
Next i 

如果可能的话，我宁愿避免在所有标题中重复使用格式。有什么想法吗？

Answer 1

这将为您完成以下工作：

For i = 1 To (mInlinShapes.Count) 'looping through my document inlineshapes
    If (mInlinShapes(i).Type = wdInlineShapePicture) Then
            Set Shp = mInlinShapes(i).ConvertToShape
            Shp.Select
            With Selection
                .InsertCaption Label:=wdCaptionFigure, _
                              Title:=" a custom title", _
                              Position:=wdCaptionPositionBelow, _
                              ExcludeLabel:=0

            End With

            With ActiveDocument.Styles("Caption").Font

                .Name = "Times New Roman"
                .Size = 18
                .ColorIndex = wdBrightGreen

            End With

            Shp.ConvertToInlineShape
    End If
Next i

有关更多属性，请访问此处：链接