VB转WORD（VB to WORD）.docVIP

VB转WORD（VB to WORD） VB操作的词搜集整理 1,对其词内容设置字体样式,以及在词中插入表格,以及表格单元格融合与填充。 选项显式 私人潜艇Command1_Click() 昏暗的文件名作为字符串 CD.ShowSave 文件名= CD.filename OutWord文件名 “OK”对话框 终止子 私有函数OutWord(ByVal filePath作为字符串)作为布尔值 昏暗的newDoc Word.Document 设置newDoc = New Word.Document 与newDoc .Paragraphs .Range.Font(.Paragraphs.Count)。Name = 宋体” .Paragraphs .Range.Font(.Paragraphs.Count)。大小= 10.5 .Paragraphs(.Paragraphs.Count)。对齐= wdAlignParagraphRight .Content。InsertAfter”編号:“ vbCrLf .Paragraphs .Range.Font(.Paragraphs.Count)。Name = 宋体” .Paragraphs .Range.Font(.Paragraphs.Count)。大小= 26 .Paragraphs .Range.Font(.Paragraphs.Count)。大胆= True .Paragraphs(.Paragraphs.Count)。对齐= wdAlignParagraphCenter .Content。InsertAfter vbCrLf “XXXXXXXXX報告” vbCrLf vbCrLf vbCrLf vbCrLf vbCrLf .Paragraphs .Range.Font(.Paragraphs.Count)。Name = 宋体” .Paragraphs .Range.Font(.Paragraphs.Count)。大小= 15 .Paragraphs .Range.Font(.Paragraphs.Count)。大胆= False .Paragraphs(.Paragraphs.Count)。对齐= wdAlignParagraphLeft .Content。InsertAfter”项目名称:“ vbCrLf .Content。InsertAfter”应急类型:“ vbCrLf .Content。InsertAfter“预警状态:正常/警界/危机” vbCrLf .Paragraphs(.Paragraphs.Count)。对齐= wdAlignParagraphCenter .Tables。添加范围:= .Range(开始:= .Range。结束- 1，结束:= . range.end)，NumRows:= 1,NumColumns:= 3,DefaultTableBehavior:= wdWord9TableBehavior,AutoFitBehavior:= wdAutoFitFixed 与.Tables(1) 如果。样式 表(格子)“那 。风格= 表(格子)” 如果 。ApplyStyleHeadingRows = True 。ApplyStyleLastRow = True 。ApplyStyleFirstColumn = True 。ApplyStyleLastColumn = True .Columns。宽度= 50 .Rows。身高= 20 结尾 .Paragraphs .Range.Font(.Paragraphs.Count)。Name = 宋体” .Paragraphs .Range.Font(.Paragraphs.Count)。大小= 15 .Paragraphs .Range.Font(.Paragraphs.Count)。大胆= False .Paragraphs(.Paragraphs.Count)。 对齐= wdAlignParagraphLeft .Content。InsertAfter“委托人:“ vbCrLf .Content。InsertAfter“预警机构:“ vbCrLf .Content。InsertAfter”报告负责人:“ vbCrLf .Content。InsertAfter”时间:“ vbCrLf .Paragraphs(.Paragraphs.Count)。对齐= wdAlignParagraphLeft .Tables。添加范围:= .Range(开始:= .Range。结束- 1，结束:= . range.end)，NumRows:= 8,NumColumns:= 2,DefaultTableBehavior:=