vb操作WORD程式碼：
Dim wrdObject As Word.Application
##Dim wrdDoc As Word.Document#Set wrdObject = CreateObject(＂Word.Application＂)Set wrdDoc = wrdObject.Documents.Open(＂d:/hao/one.doc＂)
wrdObject.Visible = True
wrdObject.Selection.TypeText ＂This is some text.＂ '寫入文字到word中
wrdDoc.PrintOut##'wrdDoc.ClosePrintPreview '關閉列印預覽#wrdDoc.Close '關閉word文件
wrdObject.Quit 'word應用程式退出#Set wrdDoc = Nothing '釋放記憶體
Set wrdObject = Nothing '釋放記憶體
你的程式碼估計沒有關閉word文件後就直接退出了，上述程式碼執行了列印過後就關閉
知道，不過不能直接讀取，因為微軟沒有公佈加密方式，所以要呼叫WORD來讀取，然後取得它
先在工程的引用內加上Microsoft Word 11.0 Object Library
Dim 剪切板文字
Dim Word文字處理系統介面 As Word.Application '建立一個word.application物件
Dim Word文檔 As Word.Document
#Dim Word文檔文字 As Word.Selection '在word文字處理系統中新增一個文件
Set Word文字處理系統介面 = CreateObject(＂Word.Application＂) '選擇物件
Word文字處理系統介面.Visible = False '不顯示word.application，即word文字處理系統介面
Set Word文件 = Word文字處理系統介面.Documents.Open（檔案路徑）
Set Word文件文字 = Word文字處理系統介面.Selection
Word文檔文字.WholeStory
##Word文檔文本.Copy
剪切板文字 = Clipboard.GetText(vbCFText) '放到text1中
Text1.Text = 剪切板文字
'Clipboard.SetData Temp
##Word文件.Close '關閉文件
Word文字處理系統介面.Application.Quit
Set Word文字處理系統介面 = Nothing '清空變數
Set Word文件文字 = Nothing
'完成操作
我透過剪切板來獲取文本，因為這樣可以保留格式（本人獨創）
怎麼在VB中輸出word文檔
Dim WordApp As Word.Application'定義word應用程式變數
Dim newDoc As Word.Document'定義word文檔變數
Set WordApp = CreateObject(＂Word.Application＂)'建立新的word應用程式
WordApp.Visible = True
With WordApp
Set newDoc = .Documents.Add(App.Path & ＂\報告單\食品水質報告.Doc＂)'在建立的word應用中新建一個新的word文件
With .Selection
.GoTo wdGoToBookmark, , , ＂bh＂ bh為word文檔中的對應位置的標籤名稱
.TypeText PrnBID'寫內容
.GoTo wdGoToBookmark, , , ＂GoodsName＂ 'GoodsName為word文件中的對應位置的標籤名稱
.TypeText PrnGName'寫內容
Set MyRS = Nothing
End With
' newDoc.SaveAs FileName:=FilePath
End With
' If theError = 429 Then WordApp.Quit
Set WordApp = Nothing### ###在事先做好的word文件中要寫內容的位置設定好標籤，然後在程式中找到標籤，再寫入資料###
以上是word文檔在vb中的列印操作的詳細內容。更多資訊請關注PHP中文網其他相關文章！
