通过查阅资料，自我实践，经实验通过。

Dim MyWord As Word.ApplicationDim MyWordBook As Word.DocumentSet MyWord = New Word.ApplicationSet MyWordBook = MyWord.Documents.Add(ModelPath & "test.dot") '打开test.dot用户自定义的WORD模版'MyWord = CreateObject("Word.Application")' MyWord.Visible = False' MyWord.Documents.Open ("test.doc")' MyWord.ActiveDocument.Bookmarks.Item("MM").Select' MyWord.Selection.Text = "从资料库取出的相应资料"' MyWord.ActiveDocument.SaveAs ("test1.doc")MyWordBook.ActivateWith MyWordBook' .Paragraphs(.Paragraphs.Count).Range.Font.Size = 30 '设置文字字体大小(其它设置类推) 如果去除.Paragraphs(.Paragraphs.Count)则表示所有行' .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter '设置文字居中等' .Content.InsertAfter "hello" & vbCrLf '向WORD写入一行文字并回车' .Content.InsertAfter "hello"' .Paragraphs(.Paragraphs.Count).Range.Font.Size = 10' .Content.InsertAfter "hello" .Bookmarks("mm").Range.InsertAfter "name" '在WORD指定位置（标签）写入文本，指定位置指WORD标签 .Tables(1).Cell(2,1).Range.InsertAfter "nameFDSAFDSAFDSA" '在WORD第一个表格的第2行第1列插入文本 .Tables(1).Cell(2,2).Range.InsertAfter "MM" .Range(Start:=.Paragraphs(2).Range.Start + 3,End:=.Paragraphs(2).Range.Start + 8).Font.Size = 30 '给选定的文本（第二段开始位置加3至8的字体）设置字体，其它的累推 .Tables(1).Cell(2,1).Range.Font.Size = 20 '给选定的单元格设置字体，其它的累推End WithMyWord.Visible = TrueSet MyWord = NothingSet MyWordBook = Nothing