Word VBA教程:ConvertToTable方法

将区域或选定内容中的文本转换为表格。将表格作为 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

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

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

InitialColumnWidth  Variant 类型,可选。设置初始列宽,以磅为单位。若省略此参数,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

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

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

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

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

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

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

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

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

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

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

WdAutoFitBehavior 可以是下列 WdAutoFitBehavior 常量之一:
wdAutoFitContent
wdAutoFitFixed
wdAutoFitWindow

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

WdDefaultTableBehavior 可以是下列 WdDefaultTableBehavior 常量之一:
wdWord8TableBehavior 禁用“自动调整”,默认值。
wdWord9TableBehavior 启用“自动调整”。

VBA示例

当应用于 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)

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号