四虎国产精品亚洲一区久久特色,久久精品伊人久久精品,亚洲精品无码专区

Edraw Office Viewer component教程（一）：將Microsoft Word嵌入VB.NET并使之自動化

原創|使用教程|編輯：黃竹雯|2017-05-09 15:19:05.000|閱讀 660 次

概述：Edraw office viewer component對于開發人員來說是一個將Microsoft Word文檔嵌入到vb.net應用程序中的簡單可靠的解決方案。本文將逐步介紹如何使用Edraw office viewer component在VB.NET應用程序中嵌入MS Word文件。

# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>

相關鏈接：

Edraw office viewer component對于開發人員來說是一個將Microsoft Word文檔嵌入到vb.net應用程序中的簡單可靠的解決方案。

在VB.Net應用程序中嵌入word文檔的最佳方法是什么？相信大多數人都記得OLE技術，它可以將Excel圖表嵌入到Word文檔中。使用Office XP Primary Interpol Assemblies或嵌入WebBrowser控件并導航到相應的Office文檔等。但是所有這些技術都不支持完整的Microsoft Word功能。也有很多已知的錯誤。

本文將逐步介紹如何使用Edraw office viewer component在VB.NET應用程序中嵌入MS Word文件。如果你沒有officeviewer.ocx文件，請先安裝。

打開Visual Studio并創建一個新的VB.NET應用程序。

右鍵單擊HostOffice解決方案。然后單擊“Add Reference...”的選項。

在彈出的對話框中，從瀏覽選項卡中選擇officeviewer.ocx文件。

或從COM選項卡中選擇Edraw Office Viewer Component。

單擊確定。Edraw Office Viewer Component引用此時已添加到新的vb.net項目中。

切換到Form1的Form設計窗口。

將Edraw Office Viewer Component從“工具箱”面板拖到form1中。

添加以下VB.NET代碼來新建、打開、保存、關閉并打印一個word文檔，如下所示：

Public Class Form1
Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
If Dialog1.ShowDialog() Then
If Dialog1.GetChooseType() = 1 Then
AxEDOffice1.CreateNew("Word.Application")
ElseIf Dialog1.GetChooseType() = 2 Then
AxEDOffice1.CreateNew("Excel.Application")
ElseIf Dialog1.GetChooseType() = 3 Then
AxEDOffice1.CreateNew("PowerPoint.Application")
ElseIf Dialog1.GetChooseType() = 4 Then
AxEDOffice1.CreateNew("Visio.Application")
ElseIf Dialog1.GetChooseType() = 5 Then
AxEDOffice1.CreateNew("MSProject.Application")
End If
End If
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
AxEDOffice1.OpenFileDialog()
End Sub
Private Sub btnSaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveAs.Click
AxEDOffice1.SaveFileDialog()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
AxEDOffice1.CloseDoc()
End Sub
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
AxEDOffice1.PrintDialog()
End Sub
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
AxEDOffice1.PrintPreview()
End Sub
Private Sub btnToolbars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToolbars.Click
If AxEDOffice1.Toolbars = True Then
AxEDOffice1.Toolbars = False
Else
AxEDOffice1.Toolbars = True
End If
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
AxEDOffice1.AboutBox()
End Sub
End Class

打開配置管理器。將Active解決方案平臺更改為x86選項。

然后創建VB.NET項目并開始運行。

The office viewer component支持MS Word 97、Word 2000、Word 2003、Word 2007、Word 2010。它可以在Windows 2000/Xp/Vista/2008/7的32位或64位操作系統上運行。將MS Excel或PowerPoint、Visio、Project嵌入到VB.NET應用程序中,只需要改變Open方法的第二個參數。如下所示:

public void Open（）
{
axEDOffice1.Open（sPath，“Excel.Application”）;
axEDOffice1.Open（sPath，“PowerPoint.Application”）;
axEDOffice1.Open（sPath，“Visio.Application”）;
axEDOffice1.Open（sPath，“MSProject.Application”）;
}

有了word組件，在Visual Basic應用程序中使用COM實現Word自動化就會變得十分簡單。從解決方案資源管理器引用中為Word Object Library 11.0添加引用。在這里我所用Word 2003,所以對象庫的版本是11.0。

下面的示例代碼顯示了如何構建一個最小的文檔,插入一個書簽,并且在隨后用文本更換空書簽。

Imports Microsoft.Office.Interop.Word

Private Sub Automating_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Automating.Click
Dim word = AxEDOffice1.GetApplication()
word.Visible = True
Dim doc As Document = AxEDOffice1.ActiveDocument()
Dim range As Range = doc.Range
range.InsertAfter("Range1" + vbCrLf)
range.Collapse(WdCollapseDirection.wdCollapseEnd)
doc.Bookmarks.Add("MijnBookmark", range)
range.InsertAfter("Range2" + vbCrLf)
Dim bookmark As Bookmark = doc.Bookmarks(1)
range = bookmark.Range
range.Text = "Bookmark" + vbCrLf
range.Font.Color = WdColor.wdColorBlue
End Sub