Question

全部显示

将区域或选定内容中的文本转换为表格。将表格作为 Table 对象返回。

expression.ConvertToTable(Separator, NumRows, NumColumns, InitialColumnWidth, Format, ApplyBorders, ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit, AutoFitBehavior, DefaultTableBehavior)

expression 必需。该表达式返回一个 Range 或 Selection 对象。

Separator Variant 类型，可选。指定用于将文本分隔为单元格的字符。其值可以是一个字符，也可以是下列 WdTableFieldSeparator 常量之一。若省略此参数，将使用 DefaultTableSeparator 属性的值。

WdTableFieldSeparator 可以是下列 WdTableFieldSeparator 常量之一：

wdSeparateByCommas

wdSeparateByDefaultListSeparator

wdSeparateByParagraphs

wdSeparateByTabs

NumRowsVariant 类型，可选。指表格的行数。如省略此参数，Microsoft Word 将根据该区域或所选区域的内容设置行数。

NumColumnsVariant 类型，可选。表格的列数。如省略此参数，Word 将根据该区域或所选区域的内容设置列数。

InitialColumnWidthVariant 类型，可选。设置初始列宽，以磅为单位。若省略此参数，Word 将计算并调整列宽，使表格填满页面。

Format Variant 类型，可选。指定“表格”菜单的“表格自动套用格式”对话框中列出的预定义格式中的一种。可取下列 WdTableFormat 常量之一。

可取下列 WdTableFormat 常量之一：

wdTableFormat3DEffects1

wdTableFormat3DEffects2

wdTableFormat3DEffects3

wdTableFormatClassic1

wdTableFormatClassic2

wdTableFormatClassic3

wdTableFormatClassic4

wdTableFormatColorful1

wdTableFormatColorful2

wdTableFormatColorful3

wdTableFormatColumns1

wdTableFormatColumns2

wdTableFormatColumns3

wdTableFormatColumns4

wdTableFormatColumns5

wdTableFormatContemporary

wdTableFormatElegant

wdTableFormatGrid1

wdTableFormatGrid2

wdTableFormatGrid3

wdTableFormatGrid4

wdTableFormatGrid5

wdTableFormatGrid6

wdTableFormatGrid7

wdTableFormatGrid8

wdTableFormatList1

wdTableFormatList2

wdTableFormatList3

wdTableFormatList4

wdTableFormatList5

wdTableFormatList6

wdTableFormatList7

wdTableFormatList8

wdTableFormatNone

wdTableFormatProfessional

wdTableFormatSimple1

wdTableFormatSimple2

wdTableFormatSimple3

wdTableFormatSubtle1

wdTableFormatSubtle2

wdTableFormatWeb1

wdTableFormatWeb2

wdTableFormatWeb3

ApplyBordersVariant 类型，可选。如果为 True，则应用指定格式的边框属性。

ApplyShadingVariant 类型，可选。如果为 True，则应用指定格式的底纹属性。

ApplyFontVariant 类型，可选。如果为 True，则应用指定格式的字体属性。

ApplyColorVariant 类型，可选。如果为 True，则应用指定格式的颜色属性。

ApplyHeadingRowsVariant 类型，可选。如果为 True，则应用指定格式的标题行属性。

ApplyLastRowVariant 类型，可选。如果为 True，则应用指定格式的最后一行的属性。

ApplyFirstColumnVariant 类型，可选。如果为 True，则应用指定格式的第一列的属性。

ApplyLastColumnVariant 类型，可选。如果为 True，则应用指定格式的最后一列的属性。

AutoFitVariant 类型，可选。如果为 True，则在不改变单元格内文字换行的前提下尽可能缩小表格列宽。

AutoFitBehavior Variant 类型，可选。设置 Word 调整表格的“自动调整”规则。可取下列 WdAutoFitBehavior 常量之一。如果DefaultTableBehavior 为 wdWord8TableBehavior，则此参数被忽略。

WdAutoFitBehavior 可以是下列 WdAutoFitBehavior 常量之一：

wdAutoFitContent

wdAutoFitFixed

wdAutoFitWindow

DefaultTableBehavior Variant 类型，可选。设定一个值以指定 Microsoft Word 是否可以根据单元格中内容的多少自动改变表格中单元格的大小（“自动调整”）。可取下列 WdDefaultTableBehavior 常量之一。

WdDefaultTableBehavior 可以是下列 WdDefaultTableBehavior 常量之一：

wdWord8TableBehavior 禁用“自动调整”，默认值。

wdWord9TableBehavior 启用“自动调整”。

示例

当应用于 Range 对象时。

本示例将活动文档的前三段转换为表格。

Set aDoc = ActiveDocument
Set myRange = aDoc.Range(Start:=aDoc.Paragraphs(1).Range.Start, _
    End:=aDoc.Paragraphs(3).Range.End)
myRange.ConvertToTable Separator:=wdSeparateByParagraphs

当应用于 Selection 对象时。

本示例在插入点插入文本，并将用逗号分隔的文本转换为带格式的表格。

With Selection
    .Collapse
    .InsertBefore "one, two, three"
    .InsertParagraphAfter
    .InsertAfter "one, two, three"
    .InsertParagraphAfter
End With
Set myTable = _
    Selection.ConvertToTable(Separator:=wdSeparateByCommas, _
    Format:=wdTableFormatList8)