locked
FAQs: 如何在VB.NET中使用Word自动化? RRS feed

答案

  • 将对COM组件“Microsoft Word Object Library”的引用添加到你的项目中。

    代码示例: 创建一个新的Word文档,插入一个3X5的表格并用特定数据填充,最后保存。 

    Imports Word = Microsoft.Office.Interop.Word

    Public Class Form1

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            ' 创建Word应用程序

            Dim oWord As Word.Application = CreateObject("Word.Application")

            ' 创建新的Word文档

            Dim oDoc As Word.Document = oWord.Documents.Add()

            oWord.Visible = True

     

            ' 插入一个3X5的表格并用特定数据填充

            Dim r As Integer, c As Integer

            Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)

            oTable.Range.ParagraphFormat.SpaceAfter = 6

            For r = 1 To 3

                For c = 1 To 5

                    oTable.Cell(r, c).Range.Text = "Row" & r & "Col" & c

                Next

            Next

            ' 设定第一行为粗体和斜体

            oTable.Rows.Item(1).Range.Font.Bold = True

            oTable.Rows.Item(1).Range.Font.Italic = True

            ' 保存此Word文档

            oDoc.SaveAs("C:\myfile.doc", True)

            oDoc.Close()

            oWord.Application.Quit()

        End Sub

    End Class

    C:\myfile.doc中的输出结果如下:

    Row1Col1

    Row1Col2

    Row1Col3

    Row1Col4

    Row1Col5

    Row2Col1

    Row2Col2

    Row2Col3

    Row2Col4

    Row2Col5

    Row3Col1

    Row3Col2

    Row3Col3

    Row3Col4

    Row3Col5


    相关帖子:

    http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/6b9bdf3e-aea7-4eb3-a518-56e5108fa202/

     

    知识库: 如何在Visual Basic .NET中自动化Word来创建一个新文档。http://support.microsoft.com/kb/316383/

     


    如果您对我们的论坛在线支持服务有任何的意见或建议,请通过邮件告诉我们。
    MSDN 论坛好帮手 立刻免费下载  MSDN 论坛好帮手
    2011年3月2日 12:37