'将获得的内容插入Word
Set varWordApplication = CreateObject("Word.Application")
Set varWordDocument = varWordApplication.Documents.Open(strTemplateFile)
Call varWordDocument.Activate
k = 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 18
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter (strTitle)
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 18
varWordDocument.Paragraphs(k).Alignment = 1 '加粗
varWordDocument.Paragraphs(k).Range.Bold = True '居中
varWordDocument.Paragraphs(k).Range.InsertAfter("信息录用情况通报")
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "楷体_GB2312"
varWordDocument.Paragraphs(k).Range.Font.Size = 14
varWordDocument.Paragraphs(k).Alignment = 0
varWordDocument.Paragraphs(k).Range.Bold = False
varWordDocument.Paragraphs(k).Range.InsertAfter(strBriefSummary)
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("一、采用各区、县(市)信息条目" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("二、采用市各委、办、局(公司)信息条目" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("市政府办公厅各处室政务信息录用情况通报" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 14
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.InsertAfter("(" + strYear + "年" + strMonth + "月份" + ")")
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
Call varWordDocument.Save()
Call varWordApplication.Quit
Set varWordApplication = CreateObject("Word.Application")
Set varWordDocument = varWordApplication.Documents.Open(strTemplateFile)
Call varWordDocument.Activate
k = 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 18
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter (strTitle)
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 18
varWordDocument.Paragraphs(k).Alignment = 1 '加粗
varWordDocument.Paragraphs(k).Range.Bold = True '居中
varWordDocument.Paragraphs(k).Range.InsertAfter("信息录用情况通报")
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "楷体_GB2312"
varWordDocument.Paragraphs(k).Range.Font.Size = 14
varWordDocument.Paragraphs(k).Alignment = 0
varWordDocument.Paragraphs(k).Range.Bold = False
varWordDocument.Paragraphs(k).Range.InsertAfter(strBriefSummary)
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("一、采用各区、县(市)信息条目" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("二、采用市各委、办、局(公司)信息条目" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 15
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.Bold = True '加粗
varWordDocument.Paragraphs(k).Range.InsertAfter("市政府办公厅各处室政务信息录用情况通报" )
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
k = k + 1
varWordDocument.Paragraphs(k).Range.Font.NameFarEast = "宋体"
varWordDocument.Paragraphs(k).Range.Font.Size = 14
varWordDocument.Paragraphs(k).Alignment = 1 '居中
varWordDocument.Paragraphs(k).Range.InsertAfter("(" + strYear + "年" + strMonth + "月份" + ")")
varWordDocument.Paragraphs(k).Range.InsertParagraphAfter
Call varWordDocument.Save()
Call varWordApplication.Quit