Rumah > Artikel > Tutorial perisian > Operasi pencetakan dokumen perkataan dalam vb
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
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
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!