Método Table.ConvertToText (Word)

Converte uma tabela em texto e retorna um objeto Range que representa o texto delimitado.

Sintaxe

expression. ConvertToText( _Separator_ , _NestedTables_ )

expressão Obrigatório. Uma variável que representa um objeto 'Table'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Separator	Opcional	Variant	O caractere que delimita as colunas convertidas (marcas de parágrafo delimitam as linhas convertidas). Pode ser qualquer constantes WdTableFieldSeparator.
Aninhados	Opcional	Variant	True se tabelas aninhadas são convertidas em texto. Este argumento será ignorado se separador não for wdSeparateByParagraphs. O valor padrão é True.

Comentários

Quando você aplica o método ConvertToText a um objeto Table, o objeto é excluído. Para manter uma referência ao conteúdo convertido da tabela, você deve atribuir o objeto de intervalo retornado pelo método ConvertToText para uma nova variável de objeto. No exemplo a seguir, a primeira tabela no documento ativo é convertida em texto e, em seguida, formatada como uma lista com marcadores.

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)

Exemplo

Este exemplo cria uma tabela e a converte em texto usando guias 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)

Este exemplo converte a tabela que contém a seleção de texto, com espaços entre as colunas.

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

Confira também

Objeto Table

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.