Table.ConvertToText-Methode (Word)

Artikel
10/16/2024

Wandelt eine Tabelle in Text um und gibt ein Range-Objekt zurück, das den Text mit Trennzeichen darstellt.

Syntax

Ausdruck. ConvertToText( _Separator_ , _NestedTables_ )

expression Erforderlich. Eine Variable, die ein Table-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Separator	Optional	Variant	Das Zeichen, das die umgewandelten Spalten begrenzt (Absatzmarken begrenzen die umgewandelten Zeilen). Dies kann eine beliebige WdTableFieldSeparator-Konstanten sein.
NestedTables	Optional	Variant	True, wenn geschachtelte Tabellen in Text umgewandelt werden. Dieses Argument wird ignoriert, wenn Separator nicht wdSeparateByParagraphs ist. Der Standardwert ist True.

Hinweise

Wenn Sie die ConvertToText-Methode auf ein Table-Objekt anwenden, wird das Objekt gelöscht. Damit ein Verweis auf den umgewandelten Tabelleninhalt erhalten bleibt, müssen Sie das von der ConvertToText-Methode zurückgegebene Range-Objekt einer neuen Objektvariablen zuweisen. Im folgenden Beispiel wird die erste Tabelle im aktiven Dokument in Text umgewandelt und dann als Aufzählung formatiert.

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)

Beispiel

In diesem Beispiel wird eine Tabelle erstellt und diese dann unter Verwendung von Tabstopps als Trennzeichen in Text umgewandelt.

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)

In diesem Beispiel wird die Tabelle mit der Auswahl in Text umgewandelt, wobei als Trennzeichen zwischen den Spalten Leerzeichen verwendet werden.

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

Siehe auch

Table-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über