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