Word) (Table.ConvertToText 方法

将表格转换为文本并返回一个 Range 对象，该对象代表带分隔符的文本。

语法

expression。 ConvertToText( _Separator_ , _NestedTables_ )

expression 是必需的。 一个代表“Table”对象的变量。

参数

名称	必需/可选	数据类型	说明
Separator	可选	Variant	用以分隔被转换的列 (段落标记分隔被转换的行) 的字符。 可以是任何 WdTableFieldSeparator 常数。
NestedTables	可选	Variant	如此 如果嵌套的表格转换为文本。 如果分隔符不是 wdSeparateByParagraphs ，则忽略此参数。 默认值为 True。

备注

ConvertToText 方法应用于 表 对象时，对象将被删除。 要保持对转换后的表内容的引用，您必须指定 Range 对象，该对象由 ConvertToText 方法返回到一个新的对象变量。 在下面的示例中，活动文档中的第一个表格转换成文本，然后设置为项目符号列表格式。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。