vb操作word大全.docx

1、对其WORD内容设置字体样式，以及在WORD中插入表格,以及表格单元格融合与填充.Option ExplicitPrivate Sub Command1_Click()Dim filename As StringCD.ShowSavefilename = CD.filenameOutWord filenameMsgBox OKEnd SubPrivate Function OutWord(ByVal filePath As String) As BooleanDim newDoc As Word.DocumentSet newDoc = New Word.DocumentWith 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:=wdAutoFitFixedWith .Tables(1)If .Style 表 (格子) Then.Style = 表 (格子)End If.ApplyStyleHeadingRows = True.ApplyStyleLastRow = True.ApplyStyleFirstColumn = True.ApplyStyleLastColumn = True.Columns.Width = 50.Rows.Height = 20End 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.InsertAfter 时 间： vbCrLf.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft