VB转WORD.docVIP

VB转WORD VB操作WORD搜集整理 1、对其WORD内容设置字体样式，以及在WORD中插入表格,以及表格单元格融合与填充. Option Explicit Private Sub Command1_Click() Dim filename As String CD.ShowSave filename = CD.filename OutWord filename MsgBox OK End Sub Private Function OutWord(ByVal filePath As String) As Boolean Dim newDoc As Word.Document Set newDoc = New Word.Document With newDoc .Paragraphs(.Paragraphs.Count).Range.Font.Name = 宋体 .Paragraphs(.Paragraphs.Count).Range.Font.Size = 10.5 .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphRight .Content.InsertAfter 編号: vbCrLf .Paragraphs(.Paragraphs.Count).Range.Font.Name = 宋体 .Paragraphs(.Paragraphs.Count).Range.Font.Size = 26 .Paragraphs(.Paragraphs.Count).Range.Font.Bold = True .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter .Content.InsertAfter vbCrLf XXXXXXXXX報告 vbCrLf vbCrLf vbCrLf vbCrLf vbCrLf .Paragraphs(.Paragraphs.Count).Range.Font.Name = 宋体 .Paragraphs(.Paragraphs.Count).Range.Font.Size = 15 .Paragraphs(.Paragraphs.Count).Range.Font.Bold = False .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft .Content.InsertAfter 项目名称: vbCrLf .Content.InsertAfter 应急类型： vbCrLf .Content.InsertAfter 预警状态：正常/警界/危机 vbCrLf .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter .Tables.Add Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=1, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed With .Tables(1) If .Style 表 (格子) Then .Style = 表 (格子) End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Columns.Width = 50 .Rows.Height = 20 End With .Paragraphs(.Paragraphs.Count).Range.Font.Name = 宋体 .Paragraphs(.Paragraphs.Count).Range.Font.Size = 15 .Paragraphs(.Paragraphs.Count).Range.Font.Bold = False .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft .Content.InsertAfter 委 托 人： vbCrLf .Content.InsertAfter 预 警 机 构： vbCrLf .Content.InsertAfter 报告负责人： vbCrLf .Content.I