Operasi pencetakan dokumen perkataan dalam vb

Selepas vb mencetak dokumen perkataan

VB operasi kod WORD:

Malapkan wrdObject Sebagai Word.Application

Malapkan wrdDoc As Word.Document

Tetapkan wrdObject = CreateObject(＂Word.Application＂)

Tetapkan wrdDoc = wrdObject.Documents.Open(＂d:/hao/one.doc＂)

wrdObject.Visible = Benar

wrdObject.Selection.TypeText "Ini ialah beberapa teks." 'Tulis teks ke dalam perkataan

wrdDoc.PrintOut

'wrdDoc.ClosePrintPreview 'Tutup pratonton cetakan

wrdDoc.Tutup 'Tutup dokumen perkataan

wrdObject.Keluar 'perkataan keluar aplikasi

Set wrdDoc = Tiada apa-apa 'Lepaskan memori

Tetapkan wrdObject = Tiada apa-apa 'Lepaskan memori

Kod anda mungkin keluar terus tanpa menutup dokumen perkataan Kod di atas melaksanakan pencetakan dan kemudian menutupnya

Bagaimana untuk menggunakan VB untuk memanggil dokumen WORD sila masuk. Terima kasih!

Saya tahu, tetapi saya tidak boleh membacanya secara langsung kerana Microsoft belum mengumumkan kaedah penyulitan, jadi saya perlu menghubungi WORD untuk membacanya dan kemudian mendapatkannya

Mula-mula tambahkan Perpustakaan Objek Microsoft Word 11.0 pada rujukan projek

Malapkan teks papan keratan

Malapkan antara muka sistem pemprosesan perkataan Word As Word.Application 'Buat perkataan.objek aplikasi

Malapkan Dokumen Word Sebagai Word.Document

Malapkan teks dokumen Word Sebagai Word.Pilihan 'Tambahkan dokumen dalam sistem pemprosesan perkataan perkataan

Tetapkan antara muka sistem pemprosesan perkataan Word = CreateObject(＂Word.Application＂) 'Pilih objek

Antara muka sistem pemprosesan perkataan perkataan.Visible = Palsu 'Jangan paparkan word.application, iaitu antara muka sistem pemprosesan perkataan perkataan

Tetapkan dokumen Word = Antara muka sistem pemprosesan perkataan perkataan.Dokumen.Buka (laluan fail)

Tetapkan teks dokumen Word = Antara muka sistem pemprosesan perkataan perkataan.Pilihan

Teks dokumen perkataan.WholeStory

Teks dokumen perkataan.Salin

Teks papan klip = Papan klip.GetText(vbCFText) 'Masukkan ke dalam teks1

Teks1.Teks = Teks papan keratan

'Clipboard.SetData Temp

Dokumen perkataan.Tutup 'Tutup dokumen

Antara muka sistem pemprosesan perkataan perkataan.Aplikasi.Berhenti

Tetapkan antara muka sistem pemprosesan perkataan Word = Tiada apa-apa 'Kosongkan pembolehubah

Tetapkan teks dokumen Word = Tiada

'Selesai operasi

Saya mendapat teks melalui papan keratan kerana ia mengekalkan pemformatan (ciptaan asal saya)

Ia juga mungkin untuk mendapatkannya secara terus, tetapi semua format akan hilang, jadi kaedah saya akan menjadi lebih baik

Bagaimana untuk mengeluarkan dokumen perkataan dalam VB

Malapkan WordApp Sebagai Word.Application'takrifkan pembolehubah aplikasi perkataan

Malapkan Doc baru Sebagai Word.Document' mentakrifkan pembolehubah dokumen perkataan

Set WordApp = CreateObject(＂Word.Application＂)'Buat aplikasi perkataan baharu

WordApp.Visible = Benar

Dengan WordApp

Set newDoc = .Documents.Add(App.Path & "Report Sheet Food Water Quality Report.Doc")'Buat dokumen perkataan baharu dalam aplikasi perkataan yang dibuat

Dengan .Pilihan

.GoTo wdGoToBookmark, , , "bh" bh ialah nama tag bagi kedudukan yang sepadan dalam dokumen perkataan

.TypeText PrnBID'Tulis kandungan

.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName ialah nama tag bagi kedudukan yang sepadan dalam dokumen perkataan

.TypeText PrnGNName'Tulis kandungan

Set MyRS = Tiada

Tamat Dengan

' newDoc.SaveAs FileName:=FilePath

Tamat Dengan

' Jika theError = 429 Kemudian WordApp.Quit

Tetapkan WordApp = Tiada

Tetapkan label dalam dokumen perkataan pra-dibuat di mana anda ingin menulis kandungan, kemudian cari label dalam program, dan kemudian tulis datanya

Atas ialah kandungan terperinci Operasi pencetakan dokumen perkataan dalam vb. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!