Método Table.ConvertToText (Word)

Convierte una tabla en texto y devuelve un objeto Range que representa el texto delimitado.

Sintaxis

expresión. ConvertToText( _Separator_ , _NestedTables_ )

expresión requerida. Variable que representa un objeto 'Table'.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Separator	Opcional	Variant	El carácter que delimita las columnas convertidas (las marcas de párrafo delimitan las filas convertidas). Puede ser una de estas constantes WdTableFieldSeparator.
NestedTables	Opcional	Variant	True si las tablas anidadas se convierten en texto. Este argumento se omite si Separator no es wdSeparateByParagraphs. El valor predeterminado es True.

Comentarios

Al aplicar el método ConvertToText a un objeto Table, se elimina el objeto. Para mantener una referencia del contenido convertido de la tabla, debe asignar el objeto Range devuelto por el método ConvertToText a una nueva variable de objeto. En el ejemplo siguiente, la primera tabla del documento activo se convierte en texto y, a continuación, el formato de una lista con viñetas.

Dim tableTemp As Table 
Dim rngTemp As Range 
 
Set tableTemp = ActiveDocument.Tables(1) 
Set rngTemp = _ 
 tableTemp.ConvertToText(Separator:=wdSeparateByParagraphs) 
 
rngTemp.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1)

Ejemplo:

En este ejemplo se crea una tabla y, a continuación, se convierte en texto usando tabulaciones como caracteres separadores.

Dim docNew As Document 
Dim tableNew As Table 
Dim intTemp As Integer 
Dim cellLoop As Cell 
Dim rngTemp As Range 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=3) 
 
intTemp = 1 
 
For Each cellLoop In tableNew.Range.Cells 
 cellLoop.Range.InsertAfter "Cell " & intTemp 
 intTemp = intTemp + 1 
Next cellLoop 
 
MsgBox "Click OK to convert table to text." 
Set rngTemp = _ 
 tableNew.ConvertToText(Separator:=wdSeparateByTabs)

En este ejemplo, la tabla que contiene la selección se convierte en texto con espacios entre las columnas.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Tables(1).ConvertToText Separator:=" " 
Else 
 MsgBox "The insertion point is not in a table." 
End If

Consulte también

Objeto Table

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.