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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈