VB.NET 创建WORD文档

概述    1、添加引用->COM->Microsoft Word 11.0 Object Library     2、Imports Word    ''' <summary> ''' 创建word文档 ''' </summary> ''' <remarks></remarks> Public Sub CreateDoc() Dim do

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 = "" '文件内容 strContext = "你好,我简单的幸福." '行距 docApp.Selection.ParagraphFormat.linespacing = 15 '页眉 With docApp .ActiveWindow.VIEw.Type = Word.WdVIEwType.wdOutlineVIEw .ActiveWindow.VIEw.SeekVIEw = WdSeekVIEw.wdSeekPrimaryheader .ActiveWindow.ActivePane.Selection.InsertAfter("[页眉内容]") .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("[页尾内容]") .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 '填充表格内容 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 = "品牌名称:" .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 '插入图片 Dim strPicPath As String = "http://www.Google.com.hk/intl/zh-CN/images/logo_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 '图片宽度 .Inlineshapes(1).Height = 100 '图片高度 End With '设置图片为四周环绕型 Dim s As Word.Shape s = doc.Application.Activedocument.Inlineshapes(1).ConvertToShape() s.Wrapformat.Type = WDWrapType.wDWrapSquare '添加新行 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 '保存文件 doc.SaveAs("c:/新年第二天.doc") doc.Close() docApp.Quit() End Sub

3 效果预览

总结

以上是内存溢出为你收集整理的VB.NET 创建WORD文档全部内容，希望文章能够帮你解决VB.NET 创建WORD文档所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。