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
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.