显示“数据表单”对话框。可在此对话框中添加、删除或更改数据记录。
注意 可在邮件合并主文档、邮件合并数据源或其他含有以表格单元格或分隔符分开的数据的文档中应用此方法。
expression.DataForm
expression 必需。该表达式返回一个 Document 对象。
当活动文档为邮件合并文档时,本示例将显示“数据表单”对话框。
If ActiveDocument.MailMerge.State <> wdNormalDocument Then
ActiveDocument.DataForm
End If
本示例在一个新文档中创建一个表格并显示“数据表单”对话框。
Set aDoc = Documents.Add
With aDoc
.Tables.Add Range:=aDoc.Content, NumRows:=2, NumColumns:=2
.Tables(1).Cell(1, 1).Range.Text = "Name"
.Tables(1).Cell(1, 2).Range.Text = "Age"
.DataForm
End With