1、添加引用->COM->Microsoft Word 11.0 Object Library

2、Imports Word

''' <summary> ''' 创建word文档 ''' </summary> ''' <remarks></remarks> Public Sub CreateDoc() Dim docApp As New Word.Application Dim doc As Word.Document Dim miss As Object = System.Reflection.Missing.Value doc = docApp.Documents.Add(miss,miss,miss) Dim strContext As String = "" '<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="/tag/neirong/" target="_blank" class="keywords">内容</a> strContext = "你好,我简单的幸福." '行距 docApp.Selection.ParagraphFormat.LineSpacing = 15 '页眉 With docApp .ActiveWindow.View.Type = Word.WdViewType.wdOutlineView .ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader .ActiveWindow.ActivePane.Selection.InsertAfter("[页眉<a href="/tag/neirong/" target="_blank" class="keywords">内容</a>]") .Selection.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphRight .ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument '跳出页眉设置 End With '页尾 With docApp .ActiveWindow.View.Type = Word.WdViewType.wdOutlineView .ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryFooter .ActiveWindow.ActivePane.Selection.InsertAfter("[页尾<a href="/tag/neirong/" target="_blank" class="keywords">内容</a>]") .Selection.Paragraphs.Alignment = WdParagraphAlignment.wdAlignParagraphRight .ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument End With '表格 Dim table As Word.Table = doc.Tables.Add(docApp.Selection.Range,10,3) '表格样式 With table .Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle .Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle .Columns(1).Width = 100 .Columns(2).Width = 220 .Columns(3).Width = 105 End With '填充表格<a href="/tag/neirong/" target="_blank" class="keywords">内容</a> With table .Cell(1,1).Range.Text = "产品详细信息表" .Cell(1,1).Range.Bold = 2 '粗体 .Cell(1,1).Range.Font.Color = WdColor.wdColorBrown '合并单元格 .Cell(1,1).Merge(.Cell(2,3)) '横向合并 End With With docApp.Selection .Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter '垂直居中 .ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter '水平居中 End With With table .Cell(2,1).Range.Text = "品牌<a href="/tag/mingcheng/" target="_blank" class="keywords">名称</a>:" .Cell(3,1).Range.Text = "史丹奴" End With '纵向合并单元格 table.Cell(3,3).Select() '选中一行 Dim moveUnit As Object = Word.WdUnits.wdLine Dim moveCount As Object = 5 Dim moveExtend As Object = WdMovementType.wdExtend With docApp .Selection.MoveDown(moveUnit,moveCount,moveExtend) .Selection.Cells.Merge() End With '插入<a href="/tag/tupian/" target="_blank" class="keywords">图片</a> Dim strPicPath As String = "http://www.google.com.hk/intl/zh-CN/images/<a href="/tag/logo/" target="_blank" class="keywords">logo</a>_cn.png" Dim linkToFile As Object = False Dim saveWithDoc As Object = True Dim anchor As Object = doc.Application.Selection.Range With doc.Application.ActiveDocument .InlineShapes.AddPicture(strPicPath,linkToFile,saveWithDoc,anchor) .InlineShapes(1).Width = 100 '<a href="/tag/tupian/" target="_blank" class="keywords">图片</a>宽度 .InlineShapes(1).Height = 100 '<a href="/tag/tupian/" target="_blank" class="keywords">图片</a>高度 End With '设置<a href="/tag/tupian/" target="_blank" class="keywords">图片</a>为四周环绕型 Dim s As Word.Shape s = doc.Application.ActiveDocument.InlineShapes(1).ConvertToShape() s.WrapFormat.Type = WdWrapType.wdWrapSquare '<a href="/tag/tianjia/" target="_blank" class="keywords">添加</a>新行 doc.Content.Tables(1).Rows.Add() doc.Paragraphs.Last.Range.Text = strContext doc.Paragraphs.Last.Range.Text = "文档创建时间：" & Format(Now,"yyyy-MM-dd HH:mm:ss") '“落款” doc.Paragraphs.Last.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight Dim f As Object = doc.SaveFormat '保存<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a> doc.SaveAs("c:/新年第二天.doc") doc.Close() docApp.Quit() End Sub

3 效果预览