word文檔在vb中的列印操作

vb列印 word文檔後

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文件後就直接退出了，上述程式碼執行了列印過後就關閉

如何用VB呼叫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中文網其他相關文章！