Range.InsertCaption (Word)
Inserta un título inmediatamente antes o después del intervalo especificado.
InsertCaption (Label, Title, TitleAutoText, Position, ExcludeLabel)
ActiveDocument.Tables(1).Range.InsertCaption _
Label:=wdCaptionTable, _
Position:=wdCaptionPositionBelow
Arguments
Un argumento con nombre
Label (String) - La etiqueta de título que va a insertarse.
Optional arguments
Los siguientes argumentos son opcionales
Title (String) - Cadena que va a insertarse inmediatamente a continuación de la etiqueta del título (si se especifica TitleAutoText, será pasada por alto).
TitleAutoText (String) - Elemento de Autotexto cuyo contenido se desea insertar inmediatamente a continuación de la etiqueta del título (sobrescribe cualquier texto especificado por Title).
Position (WdCaptionPosition) - Especifica si el título se insertará encima o debajo del intervalo.
Posibles valores de retorno son wdCaptionPositionAbove - El rótulo del epígrafe se agrega por encima, wdCaptionPositionBelow - El rótulo del epígrafe se agrega por debajo.
ExcludeLabel (String) - True no incluye la etiqueta de texto, tal como se define en el parámetro Label.