ls 操作word排版

        '将获得的内容插入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