Option Explicit
Dim MyWord As Object
Dim NewDoc As Object
Private Sub Command1_Click()
Set MyWord = CreateObject("Word.Application")
’MyWord.Visible = True ’显示word
MyWord.Caption = "报告"
Set NewDoc = MyWord.Documents.Add '插入空白页
MyWord.Selection.EndKey Unit:=wdStory '将光标移到文档末尾,在文本后面插入表格
MyWord.Selection.Font.Name = "宋体(中文宋体)" '确定字体
MyWord.Selection.Font.Bold = True '设置某一行字体加粗
MyWord.Selection.Font.Size = 22 '确定字号(三号字)
MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '设置文字居中
MyWord.Selection.TypeText Text:="" & Chr(13) & Chr(10)’换行
MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft '设置文字靠左
MyWord.Selection.Font.Underline = wdUnderlineSingle '为特定文字加下划线
MyWord.Selection.TypeText Text:="打印报表 " & Chr(13) & Chr(10)
MyWord.Selection.Font.Underline = wdUnderlineNone '取消下划线
MyWord.Selection.EndKey Unit:=wdStory '将光标移到文档末尾,在文本后面插入表格
'MyWord.Selection.HomeKey Unit:=wdStory '移动到文件头
'MyWord.Selection.MoveUp Unit:=wdScreen, Count:=2 '向上移动两行
'MyWord.Selection.MoveDown Unit:=wdLine, Count:=5 '向下移动5行
MyWord.Selection.Font.Name = "宋体(中文标题)" '确定字体
MyWord.Selection.Font.Bold = True '设置某一行字体加粗
MyWord.Selection.Font.Size = 14 '确定字号(三号字)
MyWord.Selection.TypeText Text:="标题" & Chr(13) & Chr(10)
MyWord.Selection.EndKey Unit:=wdStory '将光标移到文档末尾,在文本后面插入表格
'selection.TypeText Text:="我的Word表格" '表格的标题名称
Call MyWord.ActiveDocument.Tables.Add(MyWord.Application.Selection.Range, 5, 5, 3, 2) '插入一个5行5列的表格
MyWord.ActiveDocument.Tables(1).Range.Font.Size = 12 '设置表格字体大小
MyWord.ActiveDocument.Tables(1).Columns.Width = 80 '定义所有表格的列宽
’MyWord.ActiveDocument.Tables(1).Columns(i).Width = 80 '定义单列表格的列宽
'MyWord.ActiveDocument.Tables(1).rows.height = 80 '定义所有表格的行高
'MyWord.ActiveDocument.Tables(1).rows(i).height = 80 '定义单行表格的行高
'给单元格赋值
MyWord.ActiveDocument.Tables(1).Cell(1, 1).Range.InsertAfter "1"
’合并单元格
MyWord.ActiveDocument.Tables(1).Cell(2, 1).Select '选中表格的第2行第1列
Call MyWord.Application.Selection.MoveDown(5, 3, 1) '向下移动3格表示从当前行的下一行向下移动3格 ,MyWord.Application.Selection.MoveDown(5, 3, 1)5代表往下移动,4代表往左移动,3代表移动的格数
MyWord.Application.Selection.Cells.Merge '合并4个格子
MyWord.ActiveDocument.Tables(1).Cell(2, 1).Range.InsertAfter "11"
'拆分单元格
'MyWord.ActiveDocument.Tables(1).Cell(1, 3).Select '选中表格的第1行第3列
'Call MyWord.Application.Selection.Cells.Split(1, 2, True) '拆分成1行2列
'MyWord.ActiveDocument.SaveAs "D:\新建文件夹\myword.doc" '另保存最后生成的word文档
’MyWord.Documents.Close False '不保存退出
'MyWord.PrintPreview = True '预览方式
MyWord.PrintOut ' 执行打印
'MyWord.Quit '退出Word
end sub