VBでのWord文書の印刷操作

vb が Word 文書を印刷した後

VB操作ワードコード:

wrdObject を Word.Application としてディムする

wrdDoc を Word.Document として暗くする

Set wrdObject = CreateObject("Word.Application")

Set wrdDoc = wrdObject.Documents.Open("d:/hao/one.doc")

wrdObject.Visible = True

wrdObject.Selection.TypeText "これはテキストです。" 'ワードにテキストを書き込みます

wrdDoc.PrintOut

'wrdDoc.ClosePrintPreview '印刷プレビューを閉じる

wrdDoc.Close 'ワード文書を閉じる

wrdObject.Quit 'ワードアプリケーションの終了

Set wrdDoc = Nothing 'メモリを解放します

Set wrdObject = Nothing 'メモリを解放します

コードでは、直接終了する前に Word ドキュメントを閉じていないと推定されます。上記のコードは、印刷後に Word ドキュメントを閉じます。

VB を使用して WORD ドキュメントを呼び出すにはどうすればよいですか? 専門家の方、ぜひお越しください。

それは知っていますが、Microsoft が暗号化方式を発表していないため、直接読むことができないため、WORD を呼び出して読んでから取得する必要があります

まず、Microsoft Word 11.0 オブジェクト ライブラリをプロジェクト参照に追加します

クリップボードのテキストを暗くする

Dim Word ワープロ システム インターフェイス As Word.Application 'word.application オブジェクトを作成します

Word ドキュメントを Word.Document として暗くする

Dim Word ドキュメント テキスト As Word.Selection 'ワード ワープロ システムにドキュメントを追加します

Set Word ワープロ システム インターフェイス = CreateObject("Word.Application") 'オブジェクトの選択

Word ワープロ システム インターフェイス.Visible = False 'ワード ワープロ システム インターフェイスである word.application を表示しません。

Word ドキュメント = Word ワードプロセッサ システム インターフェイス.Documents.Open (ファイル パス) を設定します。

Word ドキュメント テキスト = Word ワード プロセッシング システム インターフェイスを設定します。選択

Word ドキュメントのテキスト。全体ストーリー

Word ドキュメントのテキスト。コピー

クリップボードのテキスト = Clipboard.GetText(vbCFText) 'テキストに入れます1

Text1.Text = クリップボードのテキスト

'Clipboard.SetData Temp

Word document.Close '文書を閉じる

Word ワードプロセッサ システム インターフェイス.Application.Quit

Word ワードプロセッサ システム インターフェイスを設定 = なし '変数をクリア

Word ドキュメントのテキスト = なしを設定します

'操作を完了

フォーマット（私のオリジナルの作成物）が保持されるため、クリップボード経由でテキストを取得します。

直接入手することも可能ですが、形式がすべて失われるため、私の方法の方が良いです

Word文書をVBで出力する方法

Dim WordApp As Word.Application'Word アプリケーション変数を定義します

Dim newDoc As Word.Document'Word ドキュメント変数を定義します

Set WordApp = CreateObject("Word.Application")'新しい Word アプリケーションを作成します

WordApp.Visible = True

WordApp を使用する場合

Set newDoc = .Documents.Add(App.Path & "\Report Sheet\Food and Water Quality Report.Doc")'作成した Word アプリケーションに新しい Word 文書を作成します

.Selectionあり

.GoTo wdGoToBookmark, , , "bh" bh は、Word ドキュメント内の対応する位置のタグ名です。

.TypeText PrnBID'コンテンツの書き込み

.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName は、Word ドキュメント内の対応する位置のタグ名です。

.TypeText PrnGName'内容の書き込み

MyRS = 何も設定しない

で終わる

' newDoc.SaveAs ファイル名:=ファイルパス

で終わる

' エラー = 429 の場合、WordApp.Quit

WordApp = なしを設定します

既成の Word 文書内で内容を書き込む場所にラベルを設定し、プログラム内でラベルを見つけてデータを書き込みます。

以上がVBでのWord文書の印刷操作の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。