Selection.InsertCaption (Word)

Insere uma legenda imediatamente antes ou após a seleção especificada.

InsertCaption (Label, Title, TitleAutoText, Position, ExcludeLabel)

Selection.Collapse Direction:=wdCollapseStart 
Selection.InsertCaption Label:="Figure", _ 
 Title:=": Sales Results", Position:=wdCaptionPositionBelow

Arguments

O seguinte argumento é necessário

Label (String) - O nome da legenda a ser inserido. Pode ser uma cadeia de caracteres ou uma das constantes WdCaptionLabelID . Se o rótulo ainda não tiver sido definido, ocorrerá um erro. Use o método Add com o objeto CaptionLabels para definir o novo rótulos de legenda.

Optional arguments

Os seguintes argumentos são opcionais

Title (String) - A sequência de caracteres a ser inserida imediatamente após o nome na legenda (ignorado se TitleAutoText for especificado).

TitleAutoText (String) - A entrada de AutoTexto cujo conteúdo você deseja inserir imediatamente após o nome na legenda (substitui qualquer texto especificado por Title).

Position (WdCaptionPosition) - Especifica se a legenda será inserida acima ou abaixo da seleção. Pode ser uma das seguintes constantes WdCaptionPosition.

Os valores de retorno possíveis são wdCaptionPositionAbove - O nome da legenda é adicionado acima, wdCaptionPositionBelow - O nome da legenda é adicionado abaixo.

ExcludeLabel (String) - True não inclui o rótulo de texto, como definido no parâmetro Label. False inclui o rótulo especificado.