Отформатируйте подпись, созданную с помощью Selection. InsertCaption (Word VBA) - PullRequest
Новая
       4

Отформатируйте подпись, созданную с помощью Selection. InsertCaption (Word VBA)

0 голосов
/ 08 июня 2019

Я хотел бы отформатировать заголовок, созданный с помощью метода Selection.InsertCaption, в документе Word с помощью VBA (центрирование текста внутри заголовка, изменение размера и цвета шрифта).

Пока мой код: 

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

Я бы предпочел не повторять все мои подписи, чтобы применить форматирование, если это возможно. Есть идеи?

1 Ответ

1 голос
/ 08 июня 2019

Это должно сделать работу для вас: 

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

Для получения дополнительной информации перейдите сюда: Ссылка

...