Propriedade AutoCaption.CaptionLabel (Word)
Retorna ou define a legenda do rótulo ("Figura", "Table" ou "Equação", por exemplo) da legenda especificada. Leitura/gravação Variant.
Sintaxe
expression. CaptionLabel
Expressão Uma variável que representa um objeto 'AutoCaption'.
Comentários
Essa propriedade pode ser definida como uma cadeia de caracteres ou uma constante Wdcaptionlabelidwdcaptionlabelid.
Exemplo
Este exemplo exibe o nome ("Planilha do Microsoft Excel", por exemplo) e o nome da legenda ("Figura", por exemplo) de cada item que tenha uma legenda adicionada automaticamente quando inserido.
Dim acLoop As AutoCaption
For Each acLoop In AutoCaptions
If acLoop.AutoInsert = True Then MsgBox acLoop.Name _
& vbCr & "Label = " & acLoop.CaptionLabel.Name
Next acLoop
Este exemplo define como "Table" o nome da legenda para tabelas do Word e insere uma nova tabela imediatamente após a seleção.
With AutoCaptions("Microsoft Word Table")
.AutoInsert = True
.CaptionLabel = wdCaptionTable
End With
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _
NumColumns:=3
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.