Dim oWord As Object
Call BindWord(True)
Dim oDocument As Object
Set oDocument = oWord.ActiveDocument
Call NameList
Public Sub NameList()
On Error Resume Next
Dim RowsCount, ColsCount As Integer
With oDocument
.Paragraphs(.Paragraphs.Count).Range.Font.Name = “宋体”
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 12
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False
.Paragraphs(.Paragraphs.Count).Alignment = 1
.Paragraphs(.Paragraphs.Count).Range.Text = “花名册”
RowsCount = 3
ColsCount = 4
.Tables.Add Range:=.Range(Start:=.Range.End – 1, End:=.Range.End), NumRows:=RowsCount, NumColumns:=ColsCount, DefaultTableBehavior:=1, AutoFitBehavior:=2 ‘wdAutoFitFixed = 0 wdAutoFitContent = 1 wdAutoFitWindow = 2
With .Tables(.Tables.Count)
.Range.Cells(1).Range.Text = “姓名”
.Range.Cells(2).Range.Text = “性别”
.Range.Cells(3).Range.Text = “年龄”
.Range.Cells(4).Range.Text = “职称”
.Range.Cells(5).Range.Text = “张三”
.Range.Cells(6).Range.Text = “男”
.Range.Cells(7).Range.Text = “36”
.Range.Cells(8).Range.Text = “工程师”
.Range.Cells(9).Range.Text = “李四”
.Range.Cells(10).Range.Text = “女”
.Range.Cells(11).Range.Text = “28”
.Range.Cells(12).Range.Text = “预算员”
End With
End With
On Error GoTo 0
End Sub
