Table.ConvertToText 方法 (Word)
會將表格轉換成文字，並傳回代表分隔的文字的 Range 物件。
語法
expression。 ConvertToText( _Separator_ , _NestedTables_ )
需要 expression。 代表 'Table' 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Separator | 選用 | Variant | 用來分隔 (段落標記隔開的已轉換的資料列) 的轉換資料行的字元。 可以是任何 WdTableFieldSeparator 常數。 |
| NestedTables | 選用 | Variant | True 是表示 如果巢狀的表格會轉換為文字。 如果分隔符號不 wdSeparateByParagraphs ，則會忽略這個引數。 預設值為 True。 |
註解
當您將 ConvertToText 方法套用至 Table 物件時，會刪除物件。 若要維護已轉換內容的資料表的參照，您必須指派給新的物件變數 ConvertToText 方法所傳回的 Range 物件。 在下列範例中，將使用中文件的第一個表格會轉換為文字，然後格式化為項目符號清單。
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)
範例
本範例會建立一個表格，然後使用定位點做為分隔字元，將它轉換為文字。
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)
本範例會將含有選取範圍 (其中的欄位之間含有空格) 的表格轉換為文字。
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).ConvertToText Separator:=" "
Else
MsgBox "The insertion point is not in a table."
End If
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。