vb net操作Word
vb操作word详解
vb操作(cāozuò)word详解vb操作(cāozuò)word详解vb操作(cāozuò)word详解Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。
例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格(chuānɡ ɡé)中的选定内容。
在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。
要在Word中自动执行任务，可以使用这些对象的方法和属性。
关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。
在Microsoft Office 97中的对象模型相当丰富(fēngfù)，其中包含了大约180个对象。
要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。
要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。
怎样(zěnyàng)显示Word Visual Basic帮助要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线(zàixiàn)帮助”复选框。
否则，安装程序不会安装Visual Basic帮助。
如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引(suǒyǐn)”一项。
vb操作word全
End WithEnd WithnewDoc.SaveAs filePathnewDoc.CloseEnd Function2、VB程序操作word表格（文字、图片）很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。
到是搜索到了很多问这个问题的记录。
没办法，索性只有自己去尝试了。
下面把一些代码发上来，给需要的朋友一点提示。
打开一个已经存在的wrod文件（这个文件包含了表格）Dim WordAppDim WordSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueSet Word = WordApp.Documents.Open("c:\record.dot")知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容Word.Tables(1).cell(1, 2)="内容"VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。
所以上面那句话的意思就是对整个word 文档中的第一个表格的第一行第二列的内容改变为“内容”。
很简单吧？网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。
试一下就发现这2种都不对。
VB轻松控制Word
VB轻松控制Word今天，我们将制作一个能够控制Word文件的建立和打开的应用程序。
我们可以在文本框中输入文件名，单击“新建”按钮即可新建一个Word文档，或者打开一个Word历史记录文件。
程序运行结果如图1所示。
图1 运行结果技术要点●添加Word库引用●建立Word对象●读取Word历史记录文件实现过程■新建项目打开Visual ，选择“新建项目”，在项目类型窗口中选择“Visual Basic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ControlWord”，然后选择保存路径。
单击“确认”。
■添加引用和控件选择菜单“项目|添加引用”，在弹出的“添加引用”对话框中选择COM选项卡，选中“Microsoft Word 10.0 Object Library”，单击“选择”按钮，即可将Word库加入到当前项目中。
添加时的界面如图2所示。
然后，给窗体上添加两个Label控件和两个Button控件，一个TextBox控件和一个ComboBox控件。
图2 添加Word引用■设置属性对窗体上的控件设置属性，如表所示。
窗体及控件的属性值窗体/控件属性值Form1 Text 轻松控制WordTextBox1 Text 空ComboBox Text 空Button1 Text 新建■添加代码Public Sub New()MyBase.New()'程序启动时，添加Word历史记录文件'This call is required by the Windows Form Designer.InitializeComponent()Dim i As ShortDim tempword As New Word.Application()For i = 1 To tempword.RecentFiles.CountComboBox1.Items.Add(tempword.RecentFiles.Item(i).Name)Next'ComboBox1.Text = ComboBox1.Items.IndexOf(ComboBox1).ToString'combobox1.Items.GetTytempword.Quit()'Add any initialization after the InitializeComponent() callEnd Sub'打开word文件Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim b As New Word.Application()b.Documents.Open(ComboBox1.Text)b.Visible = TrueEnd Sub'新建word文件Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.ClickDim word As New Word.Application()word.NewDocument.Add(TextBox1.Text)word.Visible = TrueEnd Sub■运行程序单击菜单“调试|启动”或单击图标运行程序。
在VBA中操作Word文档的批量处理
在VBA中操作Word文档的批量处理VBA（Visual Basic for Applications）是一种用于编写自定义脚本和宏的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，包括Word、Excel和PowerPoint等。
在VBA中，我们可以利用它丰富的功能和灵活的语法来批量处理Word文档，从而提高工作效率和减少重复性工作。
批量处理Word文档在实际工作中经常会遇到，特别是当我们需要对大量文档进行相同或类似的操作时。
下面，我将分享一些在VBA中操作Word文档的批量处理技巧，希望能对您有所启发。
一、批量插入文本或表格在处理多个Word文档时，我们常常需要向这些文档中插入相同或类似的内容。
使用VBA，我们可以通过以下步骤来实现：1. 打开并激活Word文档。
2. 定位到需要插入内容的位置。
3. 使用VBA的插入文本或插入表格方法，在指定位置插入相应内容。
4. 重复上述步骤，直到所有文档都被处理完毕。
二、批量替换文本有时，我们需要对多个Word文档中的某个特定词语进行替换，这时使用VBA可以大大简化工作流程。
以下是具体步骤：1. 打开并激活Word文档。
2. 使用VBA的查找和替换方法，将需要替换的词语定位并替换为新的内容。
3. 保存并关闭文档。
4. 重复上述步骤，直到所有文档被处理完毕。
三、批量添加页眉和页脚在处理多个Word文档时，有时需要为每个文档添加相同的页眉和页脚。
使用VBA，我们可以通过以下方式实现：1. 打开并激活Word文档。
2. 使用VBA的页眉和页脚方法，将相应的内容添加到文档中，并设置为页眉或页脚。
3. 保存并关闭文档。
4. 重复上述步骤，直到所有文档被处理完毕。
四、批量保存为其他格式有时，我们需要将多个Word文档另存为其他格式，如PDF或纯文本。
使用VBA，我们可以轻松实现这一功能：1. 打开并激活Word文档。
2. 使用VBA的保存为方法，设置保存的文件格式为目标格式。
C# 、VB 在Word中添加条码、二维码
C#/ 在Word中添加条码、二维码本文介绍如何通过C# 和代码实现在Word文档中添加条码和二维码。
代码中将分为在Word正文段落中、页眉页脚中等情况来添加。
使用工具：Free Spire.Office for .NET （免费版）工具简介：这是Spire所有.NET平台下免费产品的集合包，包含Spire.Barcode.dll、Spire.DataExport.dll、Spire.Pdf.dll、Spire.Doc.dll、Spire.DocViewer.Forms.dll 、Spire.PdfViewer.Forms.dll 、Spire.Presentation.dll 、Spire.XLS.dll等dll可用于操作Word/PDF/Excel/PPT等文件。
本文添加条码、二维码需要在VS程序中添加引用Spire.Doc.dll和Spire.Barcode.dll这两个dll 文件。
dll添加引用效果：注意：1. 需要下载安装到本地指定路径，dll文件可在安装路径下的Bin文件夹下获取。
2. 生成的条码、二维码会有水印字样的文字，可通过此方法去除。
代码示例1. 添加条码到WordC#using Spire.Doc;using Spire.Barcode;using System.Drawing;using System.IO;using Spire.Doc.Documents;namespace AddBarcode{class Program{static void Main(string[] args){//调用方法 ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号");//创建Document对象，加载Word文档Document doc = new Document();doc.LoadFromFile("test.docx");//获取第2节Section section = doc.Sections[1];//使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片BarcodeSettings settings = new BarcodeSettings();settings.Type = BarCodeType.Code128;settings.Data = "123456789";settings.Data2D = "123456789";settings.ShowText = false;settings.BarHeight = 4;settings.X = 0.3f;settings.HasBorder = true;settings.BorderWidth = 0.5f;settings.BorderColor = Color.AliceBlue;settings.BackColor = Color.Wheat;BarCodeGenerator barCodeGenerator = new BarCodeGenerator(settings);Image Image = barCodeGenerator.GenerateImage();//Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode图片，可执行此步骤代码//添加条码到正文段落Paragraph paragraph = section.AddParagraph();paragraph.Text = "收货码：";paragraph.AppendPicture(Image);paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;//添加条码图片到Word页脚HeaderFooter footer = section.HeadersFooters.Footer;Paragraph footerpara = footer.AddParagraph();footerpara.Text = "扫码识真伪：";footerpara.AppendPicture(Image);footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left;//保存文档doc.SaveToFile("BarCodeToWord.docx", FileFormat.Docx2013);System.Diagnostics.Process.Start("BarCodeToWord.docx");}}}条码添加效果：Imports Spire.DocImports Spire.BarcodeImports System.DrawingImports System.IOImports Spire.Doc.DocumentsNamespace AddBarcodeClass ProgramPrivate Shared Sub Main(args As String())'调用方法ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号")'创建Document对象，加载Word文档Dim doc As New Document()doc.LoadFromFile("test.docx")'获取第2节Dim section As Section = doc.Sections(1)'使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片Dim settings As New BarcodeSettings()settings.Type = BarCodeType.Code128settings.Data = "123456789"settings.Data2D = "123456789"settings.ShowText = Falsesettings.BarHeight = 4settings.X = 0.3Fsettings.HasBorder = Truesettings.BorderWidth = 0.5Fsettings.BorderColor = Color.AliceBluesettings.BackColor = Color.WheatDim barCodeGenerator As New BarCodeGenerator(settings)Dim Image As Image = barCodeGenerator.GenerateImage()'Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode图片，可执行此步骤代码'添加条码到正文段落Dim paragraph As Paragraph = section.AddParagraph()paragraph.Text = "收货码："paragraph.AppendPicture(Image)paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right'添加条码图片到Word页脚Dim footer As HeaderFooter = section.HeadersFooters.FooterDim footerpara As Paragraph = footer.AddParagraph()footerpara.Text = "扫码识真伪："footerpara.AppendPicture(Image)footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left'保存文档doc.SaveToFile("BarCodeToWord.docx", FileFormat.Docx2013)System.Diagnostics.Process.Start("BarCodeToWord.docx")End SubEnd ClassEnd Namespace2. 添加二维码到WordC#using Spire.Doc;using Spire.Barcode;using System.Drawing;using System.IO;using Spire.Doc.Documents;using System;namespace AddQRCode{class Program{static void Main(string[] args){//调用方法 ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号");//创建Document对象，加载Word文档Document doc = new Document();doc.LoadFromFile("test.docx");//获取第2节Section section = doc.Sections[1];//使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片BarcodeSettings settings = new BarcodeSettings();settings.Type = BarCodeType.QRCode;settings.ImageWidth = 50;settings.ImageHeight = 50;settings.Data = "123456";settings.Data2D = "123456";settings.X =0.7f;settings.LeftMargin = 1;settings.ShowTextOnBottom = true;settings.QRCodeECL = QRCodeECL.Q;settings.QRCodeDataMode = QRCodeDataMode.Numeric;BarCodeGenerator generator = new BarCodeGenerator(settings);Image image = generator.GenerateImage();//image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二维码图片，可执行此步骤代码//添加二维码到正文段落Paragraph paragraph = section.AddParagraph();paragraph.AppendPicture(image);paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;//添加二维码图片到Word页眉HeaderFooter header = section.HeadersFooters.Header;//HeaderFooter footer = section.HeadersFooters.Footer;//获取页脚Paragraph headerpara = header.AddParagraph();headerpara.AppendPicture(image);headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center;//保存文档doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013);System.Diagnostics.Process.Start("QRCodeToHeader.docx");}}}二维码添加效果:Imports Spire.DocImports Spire.BarcodeImports System.DrawingImports System.IOImports Spire.Doc.DocumentsNamespace AddQRCodeClass ProgramPrivate Shared Sub Main(args As String())'调用方法ApplyKey(string key) 移除水印文字Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号")'创建Document对象，加载Word文档Dim doc As New Document()doc.LoadFromFile("test.docx")'获取第2节Dim section As Section = doc.Sections(1)'使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片Dim settings As New BarcodeSettings()settings.Type = BarCodeType.QRCodesettings.ImageWidth = 50settings.ImageHeight = 50settings.Data = "123456"settings.Data2D = "123456"settings.X = 0.7Fsettings.LeftMargin = 1settings.ShowTextOnBottom = Truesettings.QRCodeECL = QRCodeECL.Qsettings.QRCodeDataMode = QRCodeDataMode.NumericDim generator As New BarCodeGenerator(settings)Dim image As Image = generator.GenerateImage()'image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二维码图片，可执行此步骤代码'添加二维码到正文段落Dim paragraph As Paragraph = section.AddParagraph()paragraph.AppendPicture(image)paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right'添加二维码图片到Word页眉Dim header As HeaderFooter = section.HeadersFooters.Header'HeaderFooter footer = section.HeadersFooters.Footer;//获取页脚Dim headerpara As Paragraph = header.AddParagraph()headerpara.AppendPicture(image)headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center'保存文档doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013)System.Diagnostics.Process.Start("QRCodeToHeader.docx")End SubEnd ClassEnd Namespace。
VB操作WORD详解
VB操作WORD详解VB操作Word是一种常见的编程任务，可以用来自动化创建、修改和格式化Word文档。
VB是Visual Basic的简称，是一种简单易学的编程语言，广泛应用于Windows平台上的开发工作。
下面将详细介绍如何使用VB操作Word。
一、引用和初始化Word对象模型在使用VB操作Word之前，需要先引用Word对象模型。
在VB的项目中，点击“项目”菜单，选择“引用”，在弹出的对话框中找到并勾选“Microsoft Word xx.0 Object Library”（这里的xx表示Word的版本号），点击“确定”进行引用。
在VB中操作Word，首先要创建一个Word.Application对象，用来表示Word应用程序实例，在这个实例上进行后续的操作。
可以使用如下代码创建Word应用程序实例：Dim wdApp As Word.ApplicationSet wdApp = New Word.Application二、打开、创建和保存Word文档1. 打开现有的Word文档可以使用如下代码打开一个现有的Word文档：Dim wdDoc As Word.DocumentSet wdDoc = wdApp.Documents.Open("C:\path\to\your\file.docx")2. 创建新的Word文档可以使用如下代码创建一个新的Word文档：Dim wdDoc As Word.DocumentSet wdDoc = wdApp.Documents.Add3. 保存Word文档可以使用如下代码保存一个Word文档：wdDoc.SaveAs "C:\path\to\save\your\file.docx"三、操作Word文档内容1.读取和写入文本内容可以使用如下代码读取和写入文本内容：Dim strText As StringstrText = wdDoc.Range.Text '读取文档内容到字符串变量wdDoc.Range.Text = "Hello, World!" '向文档中写入文本内容2.插入和删除文本内容可以使用如下代码插入和删除文本内容：wdDoc.Range.InsertBefore "Insert Before" '在光标位置之前插入文本wdDoc.Range.InsertAfter "Insert After" '在光标位置之后插入文本wdDoc.Range.Delete '删除光标当前所在位置的文本3.格式化文本内容可以使用如下代码格式化文本内容，如设置字体、大小、颜色等： = "Arial" '设置字体为ArialwdDoc.Range.Font.Size = 12 '设置字体大小为12wdDoc.Range.Font.Color = RGB(255, 0, 0) '设置字体颜色为红色四、操作Word文档样式和格式1.设置段落样式可以使用如下代码设置段落的样式，如对齐方式、缩进等：wdDoc.Range.Paragraphs.Alignment = wdAlignParagraphCenter '设置居中对齐wdDoc.Range.Paragraphs.LeftIndent = 36 '设置左缩进为0.5英寸2.设置页面样式可以使用如下代码设置页面的样式，如边距、纸张大小等：wdDoc.PageSetup.TopMargin = 72 '设置页边距上为1英寸wdDoc.PageSetup.PaperSize = wdPaperA4 '设置纸张大小为A43.插入表格可以使用如下代码插入一个表格到Word文档：Dim wdTable As Word.TableSet wdTable = wdDoc.Tables.Add(wdDoc.Range, 3, 3) '添加3行3列的表格4.格式化表格可以使用如下代码格式化表格，如设置边框、背景颜色等：wdTable.Borders.InsideLineStyle = wdLineStyleSingle '设置内部边框为实线wdTable.Borders.OutsideLineStyle = wdLineStyleDouble '设置外部边框为双线wdTable.Rows(1).Cells(1).Shading.BackgroundPatternColor = RGB(255, 0, 0) '设置第一行第一列的背景颜色为红色五、关闭Word应用程序使用完Word应用程序后，需要关闭它以释放系统资源。
net操作word，权限问题
net操作word，权限问题1.先安装office2.在“DCOM配置”中，为IIS账号配置操作Word（其他Office对象也⼀样）的权限：开始》运⾏》输⼊ dcomcnfg 或者 comexp.msc -32 》确定具体操作：“组件服务（Component Service）”->计算机（Computers）->我的电脑（My Computer）->DCOM配置（DCOM Config）->Microsoft Office Word 97 - 2003 ⽂档，右击“Microsoft Office Word 97 - 2003 ⽂档”，选择“属性”进⾏⼀下两步操作：（1）在【标识（Identity）】选项卡中选中“交互式⽤户（The interactive user）”. ----交互式是当前已登录的⽤户(使⽤⽹站放在本地电脑浏览)，如果你的⽹站是放在服务器⾥的话，那要选择下列⽤户，然后把管理员的账户密码写进去才可以。
（2）在【安全（Security）】选项卡中，分别给前两个组（启动和激活权限，访问权限）选择“⾃定义（customer)”,然后点“编辑”，在弹出的界⾯中添加IIS账号（Server版的操作系统⼀般为NETWORK SERVICES，其他系统（XP）可能会是)，并在下⾯的权限框中，给该⽤户分配所有权限。
（3）为站点应⽤池分配本地账号：具体操作：在IIS中，为站点创建新的应⽤程序池，再改应⽤程序池属性的【标识（identity）】选项卡中，为“预定义账户”选择“本地系统（LocalSystem）”。
如果是IIS7.0中，则按以下步骤操作：为站点创建新的应⽤程序池。
选中该应⽤程序池，⾼级设置->进程模式—>标识：选择localSystem。
如第2步 DCOM配置⾥没有找到 Microsoft Office Word 97 - 2003 ⽂档，请在开始》运⾏》输⼊ mmc -32 》确定，在控制台⾥找到⽂件》添加/删除管理单元》在可⽤的管理单元⾥找到 “组件服务” 》添加，然后在组件服务⾥找到 Microsoft Office Word 97 - 2003 ⽂档跟上⾯第2步⼀样的操作。
VBA中的操作Word文档的技巧
VBA中的操作Word文档的技巧在VBA中操作Word文档是自动化办公的重要一环，通过使用VBA编程语言，我们可以实现对Word文档的自动创建、编辑和格式化等操作。
本文将介绍一些常用的VBA技巧，帮助您更好地操作Word文档。
1. 打开Word文档：在VBA中，使用`Documents.Open`方法可以打开一个Word文档。
您可以指定文档的路径和名称，还可以设置一些可选参数，例如是否以只读模式打开。
2. 创建新的Word文档：通过`Documents.Add`方法可以创建一个新的Word文档。
您可以选择在创建文档时是否要基于现有的模板进行创建，并可以指定模板的路径和名称。
3. 保存Word文档：使用`Document.Save`方法可以保存当前的Word文档，您可以指定路径和名称，还可以选择是否另存为其他格式。
4. 关闭Word文档：通过`Document.Close`方法可以关闭当前的Word文档，同时保存对文档的修改。
您可以使用可选参数来控制是否强制保存。
5. 插入文本：使用`Selection.TypeText`方法可以在当前光标位置插入文本。
您可以通过VBA代码来控制插入的文本内容和格式。
6. 插入图片：通过`InlineShapes.AddPicture`方法可以在当前位置插入图片。
您可以指定图片的路径和名称，并可以设置插入图片的位置和大小。
7. 设置字体样式：可以使用`Selection.Font`属性来设置文本的字体样式，例如字体名称、字号、加粗、斜体等。
8. 设置段落格式：通过`Selection.ParagraphFormat`属性可以设置段落的格式，例如对齐方式、缩进、行间距等。
9. 遍历文档内容：可以通过VBA的循环结构来遍历文档的每个段落、句子、单词或字符，并可以对其进行相应的操作。
10. 替换文本：使用`Selection.Find`和`Selection.Replace`方法可以查找和替换文本。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private oWordApplic As Word.ApplicationPrivate oDocument As Word.DocumentPrivate oRange As Word.RangePrivate oSelection As Word.SelectionPublic Sub Neword()'激活com word接口oWordApplic = New Word.ApplicationoWordApplic.Visible = TrueEnd Sub'设置选定文本Public Sub SetRange(ByVal para As Integer)oRange = oDocument.Paragraphs(para).RangeoRange.Select()End SubPublic Sub SetRange(ByVal para As Integer, ByVal sent As Integer)oRange = oDocument.Paragraphs(para).Range.Sentences(sent)oRange.Select()End SubPublic Sub SetRange(ByVal startpoint As Integer, ByVal endpoint As Integer, ByVal flag As Boolean)If flag = True ThenoRange = oDocument.Range(startpoint, endpoint)oRange.Select()ElseEnd IfEnd Sub'生成空的新文档Public Sub NewDocument()Dim missing = System.Reflection.Missing.ValueDim isVisible As Boolean = TrueoDocument = oWordApplic.Documents.Add(missing, missing, missing, missing)oDocument.Activate()End Sub'使用模板生成新文档Public Sub NewDocWithModel(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueDim isVisible As Boolean = TrueDim strName As StringstrName = FileNameoDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible)oDocument.Activate()End Sub'打开已有文档Public Sub OpenFile(ByVal FileName As String)Dim strName As StringDim isReadOnly As BooleanDim isVisible As BooleanDim missing = System.Reflection.Missing.ValuestrName = FileNameisReadOnly = FalseisVisible = TrueoDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)oDocument.Activate()End SubPublic Sub OpenFile(ByVal FileName As String, ByVal isReadOnly As Boolean) Dim strName As StringDim isVisible As BooleanDim missing = System.Reflection.Missing.ValuestrName = FileNameisVisible = TrueoDocument = oWordApplic.Documents.Open(strName, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)oDocument.Activate()End Sub'退出WordPublic Sub Quit()Dim missing = System.Reflection.Missing.ValueoWordApplic.Quit()System.Runtime.InteropServices.Marshal.ReleaseComObject(oWordApplic)oWordApplic = NothingEnd Sub'关闭所有打开的文档Public Sub CloseAllDocuments()oWordApplic.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)End Sub'关闭当前的文档Public Sub CloseCurrentDocument()oDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges)End Sub'保存当前文档Public Sub Save()TryoDocument.Save()CatchMsgBox(Err.Description)End TryEnd Sub'另存为文档Public Sub SaveAs(ByVal FileName As String)Dim strName As StringDim missing = System.Reflection.Missing.ValuestrName = FileNameoDocument.SaveAs(strName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)End Sub'保存为Html文件Public Sub SaveAsHtml(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueDim strName As StringstrName = FileNameDim format = CInt(Word.WdSaveFormat.wdFormatHTML)oDocument.SaveAs(strName, format, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)End Sub'插入文本Public Sub InsertText(ByVal text As String)oWordApplic.Selection.TypeText(text)End Sub'插入一个空行Public Sub InsertLineBreak()oWordApplic.Selection.TypeParagraph()End Sub'插入指定行数的空行Public Sub InsertLineBreak(ByVal lines As Integer)Dim i As IntegerFor i = 1 To linesoWordApplic.Selection.TypeParagraph()NextEnd Sub'插入表格Public Sub InsertTable(ByRef table As DataTable)Dim oTable As Word.TableDim rowIndex, colIndex, NumRows, NumColumns As IntegerrowIndex = 1colIndex = 0NumRows = table.Rows.Count + 1NumColumns = table.Columns.CountoTable = oDocument.Tables.Add(oWordApplic.Selection.Range(), NumRows, NumColumns)'初始化列Dim Row As DataRowDim Col As DataColumnFor Each Col In table.ColumnscolIndex = colIndex + 1oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)Next'将行添入表格For Each Row In table.RowsrowIndex = rowIndex + 1colIndex = 0For Each Col In table.ColumnscolIndex = colIndex + 1oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) NextNextoTable.AllowAutoFit = TrueoTable.ApplyStyleFirstColumn = TrueoTable.ApplyStyleHeadingRows = TrueEnd Sub'设置对齐Public Sub SetAlignment(ByVal strType As String)Select Case strTypeCase"center"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenterCase"left"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeftCase"right"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRightCase"justify"oWordApplic.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustifyEnd SelectEnd Sub'设置字体Public Sub SetFontStyle(ByVal strFont As String)Select Case strFontCase"bold"oWordApplic.Selection.Font.Bold = 1Case"italic"oWordApplic.Selection.Font.Italic = 1Case"underlined"oWordApplic.Selection.Font.Subscript = 1End SelectEnd Sub'取消字体风格Public Sub DissableStyle()oWordApplic.Selection.Font.Bold = 0oWordApplic.Selection.Font.Italic = 0oWordApplic.Selection.Font.Subscript = 0End Sub'设置字体字号Public Sub SetFontSize(ByVal nSize As Integer)oWordApplic.Selection.Font.Size = nSizeEnd Sub'跳过本页Public Sub InsertPageBreak()Dim pBreak As IntegerpBreak = CInt(Word.WdBreakType.wdPageBreak)oWordApplic.Selection.InsertBreak(pBreak)End Sub'转到书签Public Sub GotoBookMark(ByVal strBookMark As String)Dim missing = System.Reflection.Missing.ValueDim BookMark = CInt(Word.WdGoToItem.wdGoToBookmark)oWordApplic.Selection.GoTo(BookMark, missing, missing, strBookMark) End Sub'判断书签是否存在Public Function BookMarkExist(ByVal strBookMark As String) As BooleanDim Exist As BooleanExist = oDocument.Bookmarks.Exists(strBookMark)Return ExistEnd Function'转到文档结尾Public Sub GotoTheEnd()Dim missing = System.Reflection.Missing.ValueDim unit = Word.WdUnits.wdStoryoWordApplic.Selection.EndKey(unit, missing)End Sub'转到文档开头Public Sub GotoTheBegining()Dim missing = System.Reflection.Missing.ValueDim unit = Word.WdUnits.wdStoryoWordApplic.Selection.HomeKey(unit, missing)End Sub'转到表格Public Sub GotoTheTable(ByVal ntable As Integer)'Dim missing = System.Reflection.Missing.Value'Dim what = Word.WdGoToItem.wdGoToTable'Dim which = Word.WdGoToDirection.wdGoToFirst'Dim count = ntable'oWordApplic.Selection.GoTo(what, which, count, missing)'oWordApplic.Selection.ClearFormatting()'oWordApplic.Selection.Text = ""oRange = oDocument.Tables(ntable).Cell(1, 1).RangeoRange.Select()End Sub'转到表格的某个单元格Public Sub GotoTableCell(ByVal ntable As Integer, ByVal nRow As Integer, ByVal nColumn As Integer)oRange = oDocument.Tables(ntable).Cell(nRow, nColumn).RangeoRange.Select()End Sub'表格中转到右面的单元格Public Sub GotoRightCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveRight(direction, missing, missing) End Sub'表格中转到左面的单元格Public Sub GotoLeftCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveLeft(direction, missing, missing)End Sub'表格中转到下面的单元格Public Sub GotoDownCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveDown(direction, missing, missing)End Sub'表格中转到上面的单元格Public Sub GotoUpCell()Dim missing = System.Reflection.Missing.ValueDim direction = Word.WdUnits.wdCelloWordApplic.Selection.MoveUp(direction, missing, missing)End Sub'插入图片Public Sub InsertPic(ByVal FileName As String)Dim missing = System.Reflection.Missing.ValueoWordApplic.Selection.InlineShapes.AddPicture(FileName, False, True, missing) End Sub。