Modul carian tidak dipasang.
VBA Word bagaimana untuk melakukannya
(Tamat. Bermula di No. 7)
Peristiwa
Peristiwa ialah tindakan yang dikenali oleh objek (contohnya, klik tetikus pada bar menu, tekan kekunci, dokumen baharu dibuka, pengguna menutup aplikasi) yang mana respons boleh diprogramkan. Apabila sesuatu peristiwa berlaku, kaedah itu diaktifkan, i.e. atur cara dan fungsi yang telah ditetapkan yang berkaitan dengan objek mula dilaksanakan.
Pengaktifan kaedah boleh berlaku bukan sahaja akibat tindakan pengguna, tetapi juga apabila peristiwa berlaku, seperti ralat dalam program atau ketibaan masa tertentu, dsb., dalam kes ini kaedah itu dikatakan diaktifkan oleh sistem. Prosedur pengendalian acara boleh diakses daripada editor VBA. Apabila memprogramkan objek, seperti borang, kami mempunyai akses kepada senarai keseluruhan prosedur acara. Pada asasnya, sebab berlakunya peristiwa objek yang berbeza tidak berbeza antara satu sama lain, sebab kejadiannya tetap klik tetikus yang sama, tekan kekunci, perubahan fokus objek, dll., tetapi prosedur untuk memprosesnya dibahagikan mengikut kepada kepunyaan mereka kepada objek itu.
Anda boleh memprogramkan tindak balas kepada klik tetikus pada medan Borang dan Butang Perintah dalam borang ini dengan cara yang berbeza; prosedur untuk memproses acara yang nampaknya sama akan berbeza, kerana akan tergolong dalam objek yang berbeza. Terdapat juga urutan di mana peristiwa berlaku yang mesti diambil kira semasa memprogramkannya. Sebagai contoh, acara Klik didahului oleh acara MouseDown dan acara MouseUp. Tetapi perlu diingatkan bahawa tidak perlu mengambil kira semua peristiwa semasa menulis program anda, anda hanya perlu memilih yang anda perlukan untuk bekerja. Anda boleh melakukannya tanpa pemproses acara pengaturcaraan, tetapi sebaik sahaja anda memutuskan untuk menulis program yang mengandungi borang pengguna, anda akan segera berhadapan dengan keperluan untuk memprogramkan prosedur pemprosesan acara.
Kelas objek
Satu lagi konsep penting dalam pengaturcaraan berorientasikan objek ialah kelas. Kelas ialah templat dari mana objek dicipta semasa pelaksanaan program. Kelas mentakrifkan sifat dan kaedah sesuatu objek. Jika kita mengambil contoh dari kehidupan, maka sebagai kelas objek kita boleh mengambil kelas sekolah, di mana objek itu adalah pelajar, masing-masing mempunyai sifat tersendiri yang unik untuk mereka. Selain itu, setiap objek dalam kelas mempunyai satu atau lebih sifat yang sama, contohnya, umur, yang menentukan sama ada objek tergolong dalam kelas.
Objek yang dicipta daripada kelas dipanggil contoh kelas.
Model Objek Aplikasi
Sebelum anda mula mencipta program automasi untuk bekerja dengan aplikasi, anda perlu membiasakan diri dengan model objek (hierarki kelas) aplikasi. Hierarki kelas mentakrifkan hubungan antara objek dan mengandungi maklumat tentang akses kepada objek lain. VBA menggunakan Pelayar Objek untuk tujuan ini.
Tetingkap melihat objek dipaparkan seperti berikut:
1. Aktifkan tetingkap Visual Basic Editor.
2. Pilih arahan View\View Objects (atau tekan F2).
Tetingkap View Objects akan muncul pada skrin (Gamb. 1).
3. Pilih perpustakaan yang diperlukan daripada senarai perpustakaan yang terletak di sudut kiri atas.
Tetingkap Kelas memaparkan senarai semua kelas dalam perpustakaan yang dipilih.
4. Pilih kelas yang diperlukan dalam senarai Kelas.
Senarai komponen kelas yang dipilih akan muncul di sebelah kanan tetingkap paparan, i.e. sifat, pemalar dan kaedahnya.
5. Pilih baris yang diperlukan dalam senarai komponen.
Maklumat tambahan akan muncul dalam tetingkap bantuan yang terletak di bawah.
Jika anda memerlukan maklumat terperinci tentang komponen kelas, klik butang " tanda soal" pada bar alat.
PENGATURCARAAN DALAM WORD.
Model Objek Perkataan
Dalam aplikasi Word kita perlu bekerja dengan objeknya. Oleh itu, mari kita lihat mereka dengan lebih terperinci.
Dalam Rajah. Rajah 2 menunjukkan model lengkap objek Word. Objek utama, berdiri di bahagian atas piramid hierarki objek, ialah Word itu sendiri, dianggap sebagai aplikasi (Aplikasi), pada peringkat seterusnya set objek (Dokumen, Dialog, Windows, dsb.) dan objek tunggal (cth, Pemilihan) dibentangkan. Setiap daripada mereka juga mengandungi sejumlah besar objek, sifat dan kaedah. Contohnya, objek Dokumen termasuk objek yang dikaitkan dengannya, seperti Perkataan, Perenggan, Penanda Halaman, Aksara, Dokumen, dsb. Objek ini pula mengandungi lebih banyak objek, sifat dan kaedah. Objek yang termasuk objek serupa dipanggil set atau koleksi (Koleksi), ia dibezakan dengan nama yang ditulis dalam bentuk jamak (contohnya, Dokumen, Windows, Perkataan). Menggunakan sifat dan kaedah yang wujud dalam objek Koleksi, anda boleh memilih satu objek tertentu daripadanya untuk diproses. Koleksi yang berbeza boleh mengandungi objek yang sama, contohnya, objek Words kepunyaan koleksi Dokumen, dikaitkan dengan objek Pemilihan dan dengan objek Julat. Objek Words itu sendiri adalah koleksi objek. Hanya kerana objek tergolong dalam koleksi tidak bermakna ia dianggap sebahagian daripada sesuatu yang lain.
Untuk melihat keseluruhan model objek Word, mari gunakan tetingkap Object Viewer dalam editor Visual Basic.
Dalam tetingkap Visual Basic Editor, klik butang Lihat Objek dan pilih Word daripada menu pop timbul senarai Pilih Perpustakaan. Di sebelah kanan tetingkap, di bawah tajuk Kelas, semua set objek Word akan disenaraikan, dan di sebelah kiri - semua sifat dan kaedah objek yang dipilih.
Mari kita beralih kepada penerangan tentang objek utama dan koleksi objek Word, kaedah dan sifatnya, serta contoh penggunaannya.
Objek aplikasi
Seperti yang dinyatakan di atas, objek ini mewakili aplikasi Word. Objek Aplikasi termasuk sifat dan kaedah yang mengembalikan objek peringkat atas.
Sebagai contoh, sifat ActiveDocument mengembalikan objek Dokumen dan harta yang dipanggil Aplikasi digunakan untuk mengembalikan objek Aplikasi. Contoh berikut menunjukkan nama pengguna untuk Word. Nama ini direkodkan dalam menu Alat/Pilihan dalam tab Pengguna. Arahan MsgBox ialah fungsi VBA, yang memaparkan kotak dialog dengan mesej MsgBox Application.UserName (Gamb. 3).
Banyak sifat dan kaedah yang mengembalikan objek antara muka pengguna yang paling biasa—seperti dokumen aktif (sifat ActiveDocument)—boleh digunakan tanpa penentu objek Aplikasi.
Sebagai contoh, bukannya menulis Application.ActiveDocument.PrintOut, anda hanya boleh menulis ActiveDocument.PrintOut. Sifat dan kaedah yang boleh digunakan tanpa penentu objek Aplikasi dianggap "global". Untuk melihat sifat dan kaedah global dalam Pemapar Objek, klik pada baris<глобальные>di bahagian atas senarai dalam blok Kelas.
Objek Aplikasi mempunyai lebih 80 sifat yang mencerminkan semua tetapan aplikasi. Mari kita senaraikan sebahagian daripadanya (Jadual 1).
Bagaimanakah anda boleh menukar sifat objek Aplikasi dalam program semasa melakukan sesuatu? Terdapat beberapa prosedur khas yang boleh digunakan untuk melakukan ini. Prosedur ini mempunyai nama khas dan dilakukan secara automatik semasa beberapa operasi (Jadual 3).
Dengan memasukkan rentetan arahan VBA ke dalam makro ini, anda boleh mempengaruhi objek, contohnya, semasa membuat dokumen baharu, alih keluar bar skrol dan bar status daripada skrin dengan menulis makro berikut dalam modul Normal:
Sub AutoBaharu Awam()
Application.DisplayScrollBars = Palsu
Application.DisplayStatusBar = Palsu
Malah, anda boleh menyimpan makro ini dalam mana-mana templat atau dokumen. Pengecualian ialah makro AutoExec, yang hanya berfungsi daripada templat Normal.dot yang disimpan dalam folder yang ditentukan sebagai folder pelancaran.
Tindakan serupa boleh dilakukan menggunakan prosedur pengendalian acara objek Aplikasi.
Objek Aplikasi mempunyai beberapa peristiwa (Jadual 4).
Untuk memprogramkan respons kepada peristiwa objek Aplikasi, anda mesti melakukan beberapa tindakan terlebih dahulu:
1. Istiharkan pembolehubah objek dalam modul kelas.
2. Catatkan prosedur pemprosesan acara.
3. Mulakan objek yang diisytiharkan daripada modul lain.
Bagaimana untuk mengisytiharkan pembolehubah Objek
Untuk melakukan ini, anda perlu mencipta modul kelas baharu dan mengisytiharkan objek jenis Aplikasi dengan acara. Untuk melakukan ini, pilih baris Modul Kelas daripada menu Sisipkan, dan dalam tetingkap Program untuk modul kelas baharu, masukkan kod berikut (Gamb. 4):
Apl Awam DenganAcara Sebagai Word.Application
Panggil tetingkap sifat dan tukar sifat Nama daripada Kelas1 kepada EventClassModule.
Penerangan Prosedur Acara
Selepas objek baru telah diisytiharkan dengan peristiwa, ia akan muncul dalam tetingkap Program dalam senarai juntai bawah Objek, dan anda boleh menulis prosedur acara untuk objek baharu. (Apabila anda memilih objek baharu dalam senarai Objek, peristiwa yang sah untuknya disenaraikan dalam senarai juntai bawah Prosedur.) Pilih acara daripada senarai juntai bawah Prosedur, dan prosedur kosong ditambahkan pada modul kelas (Rajah 5). Anda boleh menulis kod yang diperlukan untuk mengendalikan acara.
Memulakan Objek yang diisytiharkan
Sebelum prosedur dilaksanakan, adalah perlu untuk menyambungkan objek yang diisytiharkan dalam modul kelas (kami memanggilnya App) ke objek Aplikasi. Ini dilakukan oleh kod berikut dari mana-mana modul.
Malapkan X Sebagai EventClassModule Baharu
Sub Daftar()
Tetapkan X.App = Word.Application
Kini yang tinggal hanyalah untuk melengkapkan prosedur Pendaftaran. Anda boleh menjalankannya dari menu atau memanggilnya dari prosedur modul lain. Objek App dalam modul kelas kemudiannya akan menunjuk ke objek Aplikasi Word, dan prosedur acara dalam modul kelas akan dilaksanakan apabila peristiwa berlaku.
Koleksi objek Dokumen
Dokumen ialah koleksi semua objek Dokumen yang sedang dibuka dalam Word.
Set ini mempunyai sifat, kaedah dan peristiwa tersendiri.
Set Dokumen mempunyai beberapa sifat (Jadual 5).
Anda boleh menggunakan sifat Documents untuk mengembalikan set Dokumen. Contoh berikut menunjukkan nama dokumen terbuka
Untuk Setiap aDoc Dalam Dokumen
aName = aName & aDoc.Name & vbCr "vbCr ialah pemalar yang mentakrifkan watak carriage return (kod 13)
Set Dokumen mempunyai lebih banyak kaedah (Jadual 6).
Kaedah Tambah digunakan untuk mencipta yang baharu dokumen kosong dan menambahkannya pada set Dokumen. Contoh berikut mencipta dokumen baharu berdasarkan templat Normal.dot.
Tambah sintaks kaedah:
ekspresi.Tambah(Templat, Templat Baharu)
ungkapan - ungkapan yang mengembalikan objek Dokumen.
Templat - tidak parameter yang diperlukan. Mengandungi nama templat yang akan digunakan untuk dokumen baharu. Jika parameter diabaikan, Normal.dot digunakan.
NewTemplate ialah parameter pilihan. Jika parameter adalah Benar, dokumen dibuka sebagai templat. Nilai lalai ialah Palsu.
Kaedah Item digunakan untuk memilih item tertentu daripada set. Unsur boleh dikenal pasti dengan nama atau nombornya dalam set.
Sintaks kaedah:
ungkapan.Item(Indeks)
Ungkapan - Ungkapan yang mengembalikan objek Dokumen.
Indeks - nama atau nombor indeks elemen set.
Kaedah Item ialah kaedah lalai untuk set. Oleh itu dua baris kod berikut adalah setara.
Permohonan.Dokumen(1)
Permohonan.Dokumen.Item(1)
Baris berikut juga setara:
Application.Documents("Report.doc")
Application.Documents.Item("Report.doc")
Buka fail dokumen menggunakan kaedah Buka.
Sintaks kaedah Terbuka adalah seperti berikut:
expression.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format)
ungkapan ialah ungkapan yang mengembalikan objek Dokumen.
FileName - parameter "nama fail" yang diperlukan. Parameter ini menentukan laluan ke dokumen. Anda boleh merakam berbilang fail dengan mengasingkan nama fail dengan ruang.
ConfirmConversions ialah parameter pilihan yang boleh menjadi Benar jika anda mahu memaparkan kotak dialog Tukar Fail jika fail itu tidak dalam format Word.
ReadOnly ialah parameter pilihan. Sama dengan Benar jika fail dibuka baca sahaja.
AddToRecentFiles - parameter pilihan; jika sama dengan Benar, fail itu ditambahkan pada senarai fail di bahagian bawah menu Fail.
PasswordDocument ialah parameter pilihan. Mengandungi kata laluan untuk membuka dokumen.
PasswordTemplate ialah parameter pilihan. Mengandungi kata laluan untuk membuka templat.
Kembalikan ialah parameter pilihan. Jika FileName mengandungi nama fail dokumen yang telah dibuka, maka jika parameternya True, dokumen itu dibuka semula tanpa menyimpan perubahan yang dibuat. Jika nilai parameter adalah Palsu, maka dokumen yang sudah terbuka akan diaktifkan.
WritePasswordDocument ialah parameter pilihan. Mengandungi kata laluan yang diperlukan semasa menyimpan perubahan dokumen.
WritePasswordTemplate ialah parameter pilihan. Mengandungi kata laluan untuk menyimpan perubahan templat.
Format ialah parameter pilihan. Mengandungi penukar untuk menukar fail. Boleh ditulis sebagai salah satu pemalar: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText, atau wdOpenFormatUnicodeText. Nilai lalai ialah wdOpenFormatAuto.
Untuk menentukan format fail luaran, gunakan sifat OpenFormat bagi objek FileConverter, yang mengembalikan nilai yang ditulis pada parameter ini.
Kod berikut membuka fail Sales.doc. Nama fail ditunjukkan dalam petikan.
Documents.Open FileName:="C:\My Documents\Sales.doc" " membuka dokumen "Sales.doc"
Contoh berikut merentasi dokumen dalam koleksi Dokumen untuk mencari dokumen dalam koleksi bernama "Report.doc". Jika dokumen ini berada dalam koleksi Dokumen, ia diaktifkan; jika tidak, dokumen dibuka.
Untuk Setiap dokumen Dalam Dokumen
Jika doc.Name = "Report.doc" Kemudian dijumpai = Benar
Jika dijumpai<>Benar Kemudian
Documents.Open FileName:="C:\Documents\Report.doc"
Documents("Report.doc").Aktifkan
Kaedah Tutup digunakan untuk menutup dokumen dan mempunyai sintaks:
expression.Close(SaveChanges, OriginalFormat, RouteDocument)
ungkapan - ungkapan yang mengembalikan objek Dokumen atau Dokumen.
SaveChanges ialah parameter pilihan. Mentakrifkan tindakan yang perlu diambil semasa menyimpan dokumen. Boleh menjadi salah satu pemalar WdSaveOptions berikut:
WdDoNotSaveChanges (jangan simpan perubahan);
WdPromptToSaveChanges (tunjukkan kotak dialog yang meminta anda menyimpan perubahan);
WdSaveChanges (simpan tanpa digesa).
OriginalFormat ialah parameter pilihan. Menentukan format untuk menyimpan dokumen. Boleh menjadi salah satu daripada pemalar wdOriginalFormat berikut: wdOriginalDocumentFormat, wdPromptUser, wdWordDocument.
RouteDocument ialah parameter pilihan. Benar jika dokumen dimajukan kepada penerima seterusnya.
Baris kod berikut menutup dokumen bernama "Report.doc" tanpa menyimpan perubahan. Ia menentukan parameter SaveChanges, yang diberikan nilai "jangan simpan perubahan" oleh pemalar.
Documents("Report.doc").Tutup SaveChanges: = wdDoNotSaveChanges
Kaedah Simpan digunakan untuk menyimpan satu atau semua dokumen. Kaedah ini mempunyai beberapa jenis rakaman, bergantung pada hasil yang dijangkakan.
1. Ungkapan.Simpan.
Rekod dalam jenis ini menyimpan dokumen atau templat yang ditentukan. Jika dokumen atau templat belum disimpan sebelum ini, kotak dialog Simpan Sebagai menggesa pengguna untuk nama fail.
Di sini ungkapan ialah ungkapan yang mengembalikan objek Dokumen atau Templat.
2. Expression.Save(NoPrompt, OriginalFormat).
Entri ini menyimpan semua dokumen dalam set Dokumen. Jika dokumen belum disimpan sebelum ini, kotak dialog Simpan Sebagai menggesa pengguna untuk nama fail. Entri ini juga mengandungi dua parameter pilihan.
Parameter NoPrompt. Jika parameter ini mempunyai nilai Benar, kemudian Word menyimpan semua dokumen secara automatik. Jika nilai parameter adalah Palsu, maka Word menggesa pengguna untuk menyimpan setiap dokumen yang telah diubah.
Parameter OriginalFormat menentukan laluan untuk menyimpan dokumen. Boleh sama dengan salah satu pemalar wdOriginalFormat berikut: wdOriginalDocumentFormat, wdPromptUser atau wdWordDocument.
3. Ungkapan.Simpan(Ulasan)
Entri ini akan menyimpan versi dokumen yang ditentukan dengan ulasan.
Contoh berikut menyimpan dokumen aktif.
ActiveDocument.Simpan
Contoh berikut menyimpan setiap dokumen dalam koleksi Dokumen tanpa menggesa pengguna.
Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat
Jika fail Sales.doc dibuka, kod berikut menyimpan versi fail dengan ulasan ditambahkan padanya.
Untuk Setiap dokumen dalam Dokumen
Jika Instr(1, doc.Name, "Sales.doc", 1) > 0 Kemudian
doc.Versions.Save Comment:="perubahan kecil"
Objek dokumen
Mewakili objek Dokumen, elemen koleksi Dokumen. Tidak seperti set Dokumen, objek Dokumen mempunyai lebih daripada seratus sifat. Pada asasnya, sifat objek Dokumen digunakan untuk mengembalikan objek atau set objek lain untuk berfungsi dengan sifat dan kaedahnya. Dalam dokumen, anda terutamanya perlu bekerja dengan perkataan, perenggan, simbol dan penanda halaman, jadi mari kita lihat beberapa sifat objek Dokumen yang mengembalikan objek ini (Jadual 7).
Untuk menjadi selektif tentang dokumen daripada set, anda boleh menggunakan sifat ActiveDocument bagi objek Aplikasi.
Contoh berikut menggunakan kaedah Aktifkan untuk memulakan dokumen bernama "Dokumen 1." Contoh juga menetapkan orientasi mendatar muka surat dan mencetak dokumen.
Dokumen("Dokumen 1").Aktifkan
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.PrintOut
Sifat Bookmarks mengembalikan set Bookmarks yang mengandungi semua penanda halaman dalam dokumen.
Contoh ini mencari kedudukan mula dan akhir untuk penanda halaman pertama dalam dokumen aktif.
Dengan ActiveDocument.Bookmarks(1)
BookStart = .Mula
Sifat Aksara mengembalikan set Aksara yang mengandungi semua aksara dalam dokumen.
Contoh berikut menunjukkan aksara pertama dalam pemilihan. Jika tiada pilihan, maka aksara pertama selepas kursor dikembalikan.
char = Pemilihan.Watak(1).Teks
MsgBox "watak pertama ialah ... " & char
Contoh lain mengembalikan bilangan aksara dalam ayat pertama (ruang disertakan dalam kiraan).
numchars = ActiveDocument.Ayat(1).Characters.Count
Baca tentang peristiwa dan kaedah objek Dokumen dalam artikel seterusnya.
Malyshev S.A.
|
Pada halaman dokumen Word, anda boleh mengatur kerja dengan program yang agak kompleks, tanpa membuat borang Windows berasingan untuk ini, yang dilancarkan, sebagai contoh, apabila anda membuka dokumen atau apabila anda mengklik butang pada halaman dokumen, tetapi hanya dengan meletakkan medan kemasukan data padanya dan menunjukkan secara pemrograman pada halaman yang sama hasil selepas menukar data.
Walau bagaimanapun, banyak pengiraan matematik lebih mudah dilakukan Sistem Excel Apabila menyimpan maklumat dalam pangkalan data, Access mempunyai keupayaan yang sangat hebat untuk memproses maklumat ini. Apabila bekerja dengan pangkalan data dalam sistem maklumat yang besar, adalah mungkin untuk menjana laporan dengan outputnya dalam Word atau Excel, dan pembangunan program sedemikian hanya boleh dijalankan oleh pakar yang mahir dengan kedua-dua seni bina sistem maklumat. pangkalan data dan bahasa VBA.
Anda boleh mempelajari beberapa prinsip bekerja dengan objek Word jika anda merekodkan urutan tertentu tindakan anda menggunakan alat Makro Rekod Word, yang terdapat pada tab Pembangun pada reben. Tab ini hadir jika Pilihan Perkataan Pada halaman Asas terdapat tanda semak di sebelah tab Tunjukkan Pembangun pada item reben.
Mari lakukan perkara berikut:
1) klik pada butang Rekod makro; butang mahupun kekunci tidak boleh diberikan kepada makro; kami menetapkan tempat teks makro akan disimpan: Makro tersedia untuk dokumen semasa;
2) beralih ke penghujung dokumen dari kedudukan semasa (ia bukan di penghujung) dengan menekan kekunci Ctrl+End;
3) klik Masukkan kunci dan tulis perkataan "Hello!";
4) ulangi operasi langkah 3 sekali lagi;
5) pilih perkataan terakhir dengan menekan Shift+Home dan tekan kekunci Padam;
6) pergi ke permulaan baris pertama "Hello!", tekan Shift+End dan kemudian kekunci Padam;
7) pada tab Pembangun, mula-mula klik butang Hentikan rakaman, kemudian butang Visual Basic;
8) dalam tetingkap editor Visual Basic yang dibuka di sebelah kiri dalam panel Projek, klik dua kali pada bahagian Progect() - Modules - NewMacros dan lihat di sebelah kanan tetingkap dengan teks program dalam VBA, yang ditunjukkan dalam Rajah 5.43.
Apabila menyimpan dokumen yang mengandungi modul perisian, sistem Microsoft Office 2007 mesti memilih jenis fail Word Document dengan sokongan makro, jika tidak, teks program tidak akan disimpan.
Dalam teks makro dalam Rajah 5.43, Pemilihan adalah salah satu objek utama yang mengandungi objek Aplikasi utama - aplikasi Word.
Rajah 5.43. Teks makro dalam VBA |
Apabila menulis teks program, anda boleh menggunakan senarai timbul sifat dan kaedah yang muncul untuk objek standard dalam editor Visual Basic selepas menulis nama objek dan mengklik titik selepasnya (lihat Rajah 5.44), Penerangan penuh sifat dan kaedah objek terdapat dalam sistem bantuan.
Anda juga boleh mendapatkan senarai timbul sifat dan kaedah dengan menekan kombinasi kekunci Ctrl+Space.
Selain itu, apabila menulis teks program untuk prosedur dan fungsi standard, petua alat muncul pada sintaksnya (lihat Rajah 5.45).
MsgBoA(Protr [ShsteLz VbMsgBoxStule = vbOKOPlu], [,lalai] [,xpos] [,ypos])
Hujah:
mesej– ungkapan rentetan dipaparkan sebagai mesej dalam kotak dialog. Mungkin mengandungi berbilang baris. Untuk memisahkan baris, anda boleh menggunakan pemulangan pengangkutan (chr(13)), suapan baris (chr(10)), atau gabungan kekunci ini (chr(13) & chr(10));
tajuk
Lalai– ungkapan rentetan yang dipaparkan dalam medan input sebagai lalai jika pengguna tidak memasukkan rentetan lain. Jika hujah ini ditinggalkan, medan input kelihatan kosong;
Xpos– ungkapan berangka yang menentukan jarak mendatar antara sempadan kiri kotak dialog dan tepi kiri skrin;
Ypos– ungkapan berangka yang menentukan jarak menegak antara sempadan atas kotak dialog dan tepi atas skrin.
Untuk menghantar maklumat ini (nilai yang dimasukkan dalam medan input) kepada program, tetapkan nilai yang dikembalikan oleh fungsi InputBox kepada pembolehubah rentetan (Rajah 75), sebagai contoh:
strA=InputBox("Kerusi mana yang anda suka?","Kereta api Rusia", "Di tepi tingkap")
nasi. 75. Hasil daripada fungsi InputBox
Prosedur MsgBox memaparkan kotak dialog yang mengandungi mesej, menunggu butang ditekan oleh pengguna, dan kemudian mengembalikan Integer yang menunjukkan butang yang ditekan.
Sintaks:
MsgBox(mesej [, butang] [, tajuk] [, help_file, bahagian])
Hujah:
mesej– ungkapan rentetan dipaparkan sebagai mesej dalam kotak dialog;
butang - ungkapan berangka yang mewakili jumlah nilai yang menunjukkan bilangan dan jenis butang yang dipaparkan, jenis ikon yang digunakan, butang utama dan modaliti kotak mesej. Nilai lalai ialah 0. Lihat jadual untuk semua nilai hujah ini. 17, 18;
tajuk– ungkapan rentetan yang dipaparkan dalam bar tajuk kotak dialog. Jika hujah ini ditinggalkan, nama aplikasi diletakkan pada rentetan;
fail bantuan– ungkapan rentetan yang menentukan nama fail bantuan yang mengandungi maklumat bantuan tentang kotak dialog ini. Jika hujah ini dinyatakan, hujah konteks juga mesti ada;
bab - ungkapan berangka yang menentukan nombor bahagian yang sepadan dalam sistem bantuan.
Jadual 17
Catatan. Butang pertama aktif secara lalai.
Jadual 18
Nilai Argumen Butang Prosedur MsgBoxJika terdapat hanya dua butang dalam kotak mesej, pernyataan Jika...maka adalah bagus untuk mengetahui butang yang telah diklik. Sebagai contoh:
Jika MsgBox("Start?", vbYesNo)= vbYes then
Operator untuk tindakan butang ini
Operator untuk tindakan butang lain
Contoh 35 . Cipta program sedemikian rupa sehingga apabila anda melancarkan borang, masukkan nama dalam medan teks dan klik pada butang "Teks Output", kotak dialog muncul meminta kebenaran untuk mengeluarkan teks (Gamb. 76).
nasi. 76. Contoh 35 Borang dalam Paparan Reka Bentuk
Menyenaraikan kerja borang
Butang Sub Perintah Peribadi1_Klik()
Jika MsgBox("Teks Output?", vbYesNo) = vbYes Then
Jika Documents.Count = 0 Kemudian Documents.Add Selection.Text = “Mempelajari cara bekerja dengan teks dalam Dokumen perkataan adalah bahagian penting dalam keupayaan untuk memprogram dalam VBA, „+ TextBox1.Text + “, dan memenuhi keperluan semua pengaturcara!”
Selection.Font.Color = wdColorBlue
Selection.Font.Bold = wdTogol
Selection.Font.Italic = wdTogol
Hasil daripada melancarkan aplikasi (Gamb. 77), ayat berikut akan muncul dalam dokumen Word:
Belajar untuk bekerja dengan teks dalam dokumen Word ialah bahagian penting keupayaan untuk memprogram dalam VBA, Sveta, dan memenuhi keperluan semua pengaturcara!
nasi. 77. Contoh 35 borang dalam mod kerja
Tugas untuk menyatukan bahanContoh 36. Cipta borang yang meniru permainan kepala dan ekor yang paling mudah (Gamb. 78). Pemain menetapkan bendera dan bukannya melemparkan syiling, dan komputer selepas menekan butang Lambungan duit syiling Dilancarkan nombor rawak, sepadan dengan kepala atau ekor. Jika terdapat perlawanan, komputer menang; jika terdapat ketidakpadanan, pemain menang. Semua tindakan disertakan dengan kotak dialog pop timbul.
Teknologi pelaksanaan
1. Buat borang untuk melaksanakan permainan ini.
2. Penerangan mengenai prosedur.
Butang Tos Syiling
Butang Sub Perintah Peribadi1_Klik()
syiling = Int(2 * Rnd)
Jika OptionButton1.Value = True Then
Jika syiling = 0 Maka MsgBox “bernasib baik. Lebih baik mula belajar VBA"
Jika syiling = 1 Maka MsgBox “bertuah. Tahniah, anda telah menang"
Jika OptionButton2.Value = True Then
nasi. 78. Bentuk yang dibangunkan contoh 36 dalam susunan kerja dan kotak dialog yang bertindak balas kepada hasil permainan
Jika syiling = 1 Maka MsgBox “bernasib baik. Lebih baik mula belajar VBA"
Jika syiling = 0 Maka MsgBox “bertuah. Tahniah, anda telah menang"
Butang berhenti permainan
Peribadi Sub PerintahButton2_Click()
Malapkan ima Sebagai String
intA = MsgBox(“Tekan butang!”, vbYesNoCancel +
vbExclamation + vbDefaultButton3, “VBA for dummies!”)
Jika MsgBox("mulakan?", vbYesNoCancel) = vbYes Then
ima = InputBox("masukkan nama anda", "Contoh kotak input")
Jika ima<>"" Kemudian
MsgBox "Hello," & ima, vbInformation, "Contoh Kotak Mesej"
MsgBox "tak tahu, awak terlupa masukkan nama awak" & ima, vbExclamation, "satu lagi contoh kotak mesej" Tamat Jika
Jika MsgBox(“Adakah anda pasti anda fikirkan?”, vbYesNoCancel) = vbNo Then
MsgBox ("ha ha")
Lain: MsgBox “Nah, akhirnya!”
Contoh 37 . Dalam aplikasi permainan yang dibangunkan, sediakan untuk penciptaan tetingkap "Bank", di mana keputusan mata pemain akan dipaparkan apabila permainan dihentikan. Peraturan permainan: apabila pemain menang, satu ditambah kepada jumlah dalam bank; apabila dia kalah, ia ditambahkan pada komputer (ditolak daripada jumlah dalam bank).
Sediakan semua kotak dialog yang diperlukan.
Contoh 38. Simulasikan permainan lengkap kepala dan ekor. Pemain mendepositkan sejumlah wang ke dalam bank. Anda tidak boleh menambah wang ke bank semasa permainan. Permainan ini terdiri daripada urutan langkah yang terhingga priori. Pada langkah seterusnya, pemain memikirkan sama ada kepala atau ekor. Komputer "membelek" syiling. Jika "syiling jatuh pada sisi yang sama" yang ditentukan oleh pemain, maka bank itu bertambah satu, jika tidak, ia berkurangan satu. Permainan berakhir sama ada atas permintaan pemain, atau apabila nilai bank menjadi sifar atau lebih daripada 10,000 rubel. (jumlah tertentu). Pemain mengambil kandungan bank untuk dirinya sendiri. Ia adalah mungkin untuk menyediakan maksimum dan jumlah minimum, yang berada dalam bank sepanjang permainan.
Catatan. Anda boleh mensimulasikan melontar dadu menggunakan fungsi Int(6* Rnd)+1. Peraturan berubah: orang yang melontar paling banyak menang.
Teknologi pelaksanaan
Mari kita pertimbangkan salah satu pilihan untuk menyelesaikan masalah ini. Mari kita rumitkan tugas ini dengan fakta bahawa setiap tetingkap berikutnya dipanggil oleh tindakan yang sepadan.
1. Biarkan kotak dialog pertama muncul apabila anda memulakan aplikasi (Gamb. 79). Apabila anda mengklik pada butang "Mulakan Permainan", kotak dialog muncul meminta nama pemain dan pengesahan untuk memulakan permainan (lihat Rajah 80). Selepas itu borang penyertaan pertaruhan muncul (lihat Rajah 81).
Butang Sub Perintah Peribadi1_Klik()
imya = InputBox("masukkan nama anda", "Pendaftaran", "????")
Jika MsgBox("Mula?", vbYaTidak, "Adakah anda berubah fikiran?") =
Borang ini membuat pemilihan pertaruhan awal dan melancarkan bentuk utama contoh 38.
nasi. 79. Contoh 38 Dialog Pelancaran Permainan
nasi. 80. Mulakan Kotak Dialog Permainan
nasi. 81. Kotak Dialog Pemilihan Bidaan
Butang Baling mensimulasikan pemain melambung syiling, mengira kemenangan dan kerugian pemain, memaparkan nilai yang sepadan dalam tetingkap teks dengan mesej tentang skor permainan (Gamb. 82).
nasi. 82. Bentuk utama contoh 38, mensimulasikan permainan kepala dan ekor
Butang baling
Butang Sub Perintah Peribadi1_Klik()
TextBox1.Value = TextBox1.Value + 1
Jika b = Betulkan(Rnd * 2 + 1) Kemudian
TextBox4.Value = TextBox4.Value + 1
TextBox5.Value = TextBox5.Value + 1
TextBox4.Value = TextBox4.Value – 1
TextBox6.Value = TextBox6.Value + 1
Jika TextBox4.Value< 1 Then
MsgBox (“Anda Kalah!!!”)
Jika Val(TextBox2.Text)< Val(TextBox4.Text) Then
TextBox2.Value = Val(TextBox4.Teks)
Jika Val(TextBox3.Text) > Val(TextBox4.Text) Kemudian
TextBox3.Value = Val(TextBox4.Teks)
OptionButton1.Value = Salah
OptionButton2.Value = Salah
CommandButton1.Enabled = Palsu
Butang Keluar menamatkan permainan dan mengeluarkan mesej akhir (lihat Rajah 83).
Peribadi Sub PerintahButton2_Click()
MsgBox("Batch" + TextBox1.Value + (Chr(13)) + "in the jar" + TextBox4.Value + (Chr(13)) + "your maximum" + TextBox2.Value + (Chr(13)) + " minimum anda" + TextBox3.Value + (Chr(13)) + "skor" + TextBox5.Value +":" + TextBox6.Value)
Borang Sub Pengguna Peribadi Mulakan()
Nyahmuat Borang Pengguna2
OptionButton1.Value = Benar
TextBox4.Nilai = a
Label6.Kapsyen = nama
TextBox2.Value = TextBox4.Value
TextBox3.Value = TextBox4.Value
nasi. 83. Pengiraan akhir permainan contoh 38
Catatan. Untuk permainan berfungsi dengan betul, adalah perlu untuk mencipta modul untuk mengisytiharkan pembolehubah global yang mengandungi maklumat tentang nilai pertaruhan awal dan nama pemain, serta melancarkan bentuk pertama permainan menggunakan butang pada bar alat . Di samping itu, adalah perlu untuk mengubah suai semua modul untuk borang yang sepadan (Rajah 84).
nasi. 84. Mengisytiharkan pembolehubah global dan mencipta modul pelancaran untuk bentuk permainan utama dalam contoh 38
6.2. Penciptaan dan pengisian automatik borang dokumen standard
Mencipta Program VBAContoh 39. Semasa membayar tuisyen, pelajar memasukkan wang ke dalam meja tunai, di mana akauntan mengisi resit pembayaran dengan tangan. Automatik buatan tangan akauntan dengan membuat borang yang mengisi kad pembayaran, yang boleh dihantar untuk dicetak jika perlu.
Teknologi pelaksanaan
Templat dan antara muka aplikasi
Sebagai antara muka, kami mula-mula mempertimbangkan bentuk aplikasi termudah yang memenuhi syarat tugas dan termasuk yang sepadan medan teks butang input dan operasi (Gamb. 85).
nasi. 85. Contoh 39 borang dalam susunan kerja
Mari kita mulakan dengan membangunkan borang dokumen standard (borang bercetak). Borang ini boleh dibuat berdasarkan templat dengan medan teks di mana perubahan maklumat akan dimasukkan. Untuk melakukan ini, jalankan arahan berikut: Fail + Buat. Di sebelah kanan tetingkap dokumen baharu, pilih bahagian templat dan hiperpautan Pada komputer saya(Gamb. 86). Kemudian kotak dialog akan muncul templat(Gamb. 87), di mana pada tab Adalah biasa anda perlu memilih ikon dokumen baharu dan letak suis Sampel dalam bingkai Buat.
Hidupkan panel Borang(Lihat + Bar Alat + Borang). Untuk kerja selanjutnya Anda hanya memerlukan satu elemen panel ini - Medan teks
yang membolehkan anda membuat medan berubah pada borang (sama ada melalui kod atau oleh pengguna). Dengan memilih dengan kursor tempat dalam dokumen Word untuk mencari medan yang sepadan dan meletakkan elemen padanya Padang, tersedia borang yang diperlukan. Untuk mengembangkan medan, anda perlu meletakkan kursor di dalamnya dan tekan beberapa kali Tab. Untuk menggariskan medan, pilihnya sebagai teks dan gunakan garis bawah padanya.
nasi. 87. Templat Dialog
Cipta templat dokumen berikutan Rajah. 88.
nasi. 88. Templat dokumen perkataan di mana data untuk pencetakan dimasukkan
Dalam beberapa medan (medan diserlahkan latar belakang kelabu) anda boleh memasukkan nilai lalai. Nilai lalai ditetapkan menggunakan kotak dialog Hartanah, yang boleh dipaparkan seperti ini:
klik kanan pada medan teks yang diperlukan;
pilih daripada menu konteks yang muncul Hartanah ;
nyatakan nilai lalai (Gamb. 89).
Nilai lalai membolehkan anda menukar hanya data yang sepatutnya jarang berubah. Sebagai contoh, yuran pengajian pada dasarnya adalah sama - 1,500 rubel, jadi nilai medan ini tidak akan berubah dengan kerap.
nasi. 89. Menetapkan parameter untuk medan teks "opt_amount".
Mari lihat elemen lain yang diperlukan pada tetingkap kerja "Pilihan Medan Teks". Di padang taip menunjukkan jenis nilai yang boleh diletakkan dalam medan. Anda boleh mengisi ruangan tersebut Panjang maksimum , walaupun kod VBA yang paling penting untuk kegunaan kemudian ialah medan Penanda buku. Nilai medan ini akan berfungsi sebagai label di mana kursor harus diletakkan sebelum meletakkan sekeping maklumat seterusnya ke dalam dokumen. Oleh itu, setelah semua medan yang diperlukan ditakrifkan, anda perlu menyediakan label yang bermakna untuk setiap medan tersebut. Untuk borang dokumen Word yang ditunjukkan dalam Rajah. 86, kami menetapkan (berurutan) label berikut:
Nama keluarga - nama akhir pelajar;
Nama – nama pelajar;
Patronymic - patronymic pelajar;
Kumpulan – nama kumpulan;
Bayaran_bulan – nama bulan yang pembayaran dibuat;
Jumlah_bayaran – jumlah yang didepositkan;
Nama penuh_akauntan – nama keluarga akauntan yang menerima;
Tarikh_bayaran – tarikh pembayaran.
Selepas melengkapkan pembangunan borang dokumen, kami akan menyimpannya di bawah nama Bayaran untuk pengajian dalam katalog templat. Dalam Rajah. 88 menunjukkan templat dokumen yang dibuat dengan medan yang berubah.
Mencipta modul Cetak untuk templat dokumen
Penyenaraian mengandungi kod untuk prosedur untuk mencetak borang resit pembayaran, prosedur berkaitan dan penyahpepijatan.
Penyenaraian(masuk Modul 1 projek Bayaran untuk pengajian)
"pembolehubah borang permohonan
Keluarga awam1 As String
Nama awam1 As String
Nama tengah awam1 As String
Kumpulan awam1 As String
Bulan awam As String
Jumlah awam Sebagai String
Boo awam Sebagai String
Tarikh umum As String
" pembolehubah borang templat dokumen
Nama keluarga awam As String
Nama awam As String
Nama Tengah Awam Sebagai String
Kumpulan awam As String
Public month_opl As String
Jumlah_bayaran awam Sebagai String
Nama_akaun awam Sebagai String
Public date_payment As String
Malapkan buku(8) As String
Malapkan dataMas(8) Sebagai Rentetan
Malapkan i Sebagai Integer
Sub Print() "prosedur pencetakan borang
"Kami memasukkan maklumat ke dalam bookmark, tatasusunan datamas
book(1) = "nama keluarga": dataMas(1) = nama keluarga
buku(2) = "nama": dataMas(2) = nama
book(3) = "nama tengah": dataMas(3) = nama tengah
buku(4) = "kumpulan": dataMas(4) = kumpulan
book(5) = “month_payment”: dataMas(5) = month_payment
buku(6) = “jumlah_bayaran”: dataMas(6) = jumlah_bayaran
buku(7) = “nama_akaun penuh”: dataMas(7) = nama_akaun penuh
buku(8) = “tarikh_pilihan”: dataMas(8) = tarikh
"mengisi ruangan resit:
ActiveDocument.FormFields(ActiveDocument.Bookmarks(buku(i)).Nama).Result = dataMas(i)
ActiveDocument.PrintPreview Melakukan pratonton cetakan.
"Untuk benar-benar mencetak dokumen, gunakan kaedah PrintOut objek Aplikasi (lihat Bantuan)
Disebabkan perbezaan antara pembolehubah yang diterima dan dihantar untuk dicetak, kami akan mengisytiharkan dua jenis pembolehubah sebagai Awam: yang diterima oleh bahagian antara muka aplikasi dan yang dicetak dalam bentuk templat.
Sila ambil perhatian bahawa semua data di sini adalah daripada jenis String. Data jenis yang sama membolehkan anda menulisnya ke dalam medan borang dalam gelung yang mengandungi hanya dua pernyataan (lihat penerangan penyenaraian).
Mencipta modul untuk butang borang permohonan
Operasi butang Mengeluarkan sijil terdiri daripada membaca maklumat yang dimasukkan ke dalam medan teks borang permohonan, memindahkan nilainya ke pembolehubah borang templat dokumen dengan output maklumat lanjut ke templat dokumen.
Butang Sub Perintah Peribadi1_Klik()
nama keluarga = nama keluarga1
nama = nama1
patronim = nama tengah1
kumpulan = kumpulan1
bulan_bayaran = bulan
jumlah_bayaran = jumlah
buku_nama = buku
tarikh_bayaran = tarikh
Cetak Panggilan
Prosedur untuk memberikan pembolehubah borang permohonan nilai yang dimasukkan ke dalam medan teks borang.
Sub textBox1_change() Peribadi
fam1 = TextBox1.Nilai
Sub textBox2_change() Peribadi
name1 = TextBox2.Value
Sub textBox3_change() Peribadi
nama tengah1 = TextBox3.Value
Sub textBox4_change() Peribadi
kumpulan1 = TextBox4.Nilai
Sub textBox5_change() Peribadi
bulan = TextBox5.Value
Sub textBox6_change() Peribadi
jumlah = TextBox6.Value
Sub textBox7_change() Peribadi
boo = TextBox7.Nilai
Sub textBox8_change() Peribadi
tarikh = TextBox8.Value
Susun atur cara dan jalankan untuk ujian.
Tugas pengukuhanContoh 40. Membangunkan borang pemindahan pos untuk memudahkan kerja pekerja yang berkaitan dengan pemprosesan pemindahan wang yang kerap.
Templat dan borang dokumen yang telah siap ditunjukkan dalam Rajah. 90 dan 91.
nasi. 90. Contoh borang pesanan pos yang dipermudahkan dengan medan teks berubah-ubah (templat dokumen)
Memformat Dokumen
Paling ciri penting Bekerja pada VBA dalam Word ialah memasukkan teks ke dalam dokumen apabila bekerja dengan aplikasi. Untuk tujuan ini, objek Julat dan Pemilihan digunakan, yang merupakan yang utama untuk hampir semua operasi yang boleh dilakukan menggunakan Perkataan VBA. Sesetengah tindakan ini boleh digunakan pada dokumen secara keseluruhan, tetapi secara amnya anda memerlukan julat atau pilihan sebelum anda membuat perubahan. Walau bagaimanapun, kami akan melihat perkara yang boleh anda lakukan dengan dokumen apabila anda menciptanya.
Dokumen Word yang terbuka sudah mengandungi objek Julat yang sepadan dengan banyak elemennya. Setiap perenggan, jadual, sel jadual, ulasan, dsb. mentakrifkan julat. Sebagai contoh, untuk memasukkan beberapa teks ke dalam dokumen sedia ada, anda perlu menulis kod:
ActiveDocument.Paragraphs(1).Range.Text = "Oxo-xo!!"
Selain itu, baris ini akan terletak di penghujung perenggan yang sedia ada. Sebaliknya, menggunakan objek Pemilihan, anda juga boleh memasukkan beberapa teks ke dalam dokumen dengan menggunakan kaedah Tambah dan memberikan sifat Teks kepada objek Pemilihan:
Selection.Text = "Mempelajari cara bekerja dengan teks dalam dokumen Word ialah bahagian penting dalam pembelajaran program dalam VBA, " + TextBox1.Text + ", dan memenuhi keperluan semua pengaturcara!"
Hasil daripada melaksanakan kod program ini, baris berikut akan dipaparkan dalam dokumen Word: “Mempelajari cara bekerja dengan teks dalam dokumen Word ialah bahagian penting keupayaan untuk memprogram dalam VBA, Svetlana, dan memenuhi keperluan semua pengaturcara!”
Penerangan mengenai prosedur
Butang Sub Perintah Peribadi1_Klik()
Jika Documents.Count = 0 Kemudian Documents.Add
Selection.Text = "Apabila arus dengan voltan " + TextBox1.Text + "volt melalui konduktor dengan panjang " + TextBox4.Text + " meter, keratan rentas " + TextBox3.Text + "sq mm dan kerintangan" + TextBox5.Teks + " Ohm*mm^2/m untuk " + TextBox2.Text + " saat akan diserlahkan " + TextBox6.Text + " joule of heat"
Selection.Collapse direction:=wdCollapseEnd
Tamat Sub
Peribadi Sub PerintahButton2_Click()
Punggah Saya
Tamat Sub
Sub TextBox1_Change() Peribadi
scet
Tamat Sub
Sub TextBox2_Change() Peribadi
scet
Tamat Sub
Sub TextBox3_Change() Peribadi
scet
Tamat Sub
Sub TextBox4_Change() Peribadi
scet
Tamat Sub
Sub TextBox5_Change() Peribadi
scet
Tamat Sub
Subscet Persendirian()
Jika IsNumeric(TextBox1.Text) = Benar Dan
IsNumeric(TextBox2.Text) = Benar Dan
IsNumeric(TextBox3.Text) = Benar Dan
IsNumeric(TextBox4.Text) = Benar Dan
IsNumeric(TextBox5.Text) = Benar Dan Bukan Val(TextBox4.Text) = 0 Dan Bukan Val(TextBox5.Text) = 0 Kemudian rez = ((Val(TextBox1.Text) ^ 2) * Val(TextBox2.Text) * Val(TextBox3.Text)) / (Val(TextBox4.Teks) * Val(TextBox5.Text))
TextBox6.Text = Str$(rez)
CommandButton1.Enabled = Benar
Lainlah
TextBox6.Text = ""
CommandButton1.Enabled = Palsu
Tamat Jika
Tamat Sub
Apabila bekerja dengan teks dalam lembaran kerja Word, anda perlu mengetahui kod berikut:
definisi warna
Selection.Font.Color =
wdColorRed – merah
wdColorDarkRed – burgundy
wdColorDarkTeal – pirus
wdColorBlue – biru
wdColorGreen – hijau
wdColorBlack – hitam
wdColorOrange – oren
penentuan kandungan lemak
Selection.Font.Bold =
wdToggle – keberanian
definisi gaya
Selection.Font.Italic=
wdToggle – condong
definisi penjajaran
Selection.ParagraphFormat.Alignment=
wdAlignParagraphRight – penjajaran kanan
wdAlignParagraphCenter – penjajaran tengah
wdAlignParagraphJustify – penjajaran kiri
memasukkan ayat tertentu ke dalam teks
Selection.TypeText Text:="Contoh kerja dengan teks"
memasukkan yang baru baris kosong
Pemilihan.JenisPerenggan
menetapkan saiz huruf
Pemilihan.Font.Saiz = 14
Salah satu elemen reka bentuk kotak dialog ialah elemen kawalan Gambar(melukis). Ciri-ciri utamanya:
Autosize– menukar saiz gambar pada borang (secara automatik atau tidak);
Gambar– memaparkan fail grafik yang dipaparkan pada borang;
pictureSizeMode – menetapkan penskalaan gambar (bukan keseluruhan gambar, seluruh permukaan objek, sepenuhnya di dalam objek);
Penjajaran Gambar– menetapkan lokasi gambar di dalam objek (kiri, kanan, atas, bawah);
gambarTilling– menutup objek dengan mozek daripada lukisan.
Sifat ini sama ada ditetapkan dalam tetingkap sifat objek atau dinyatakan dalam penyenaraian.
Catatan . Apabila bekerja permohonan ini Semua nilai medan input mestilah angka. VBA mempunyai fungsi khas untuk menyemak sama ada rentetan yang dimasukkan ialah rekod nombor atau tidak - IsNumeric. Untuk menyemak sama ada nilai dalam dua medan input terakhir adalah bukan sifar, gunakan fungsi Val, yang menukar ungkapan rentetan menjadi angka jika ungkapan rentetan ini mengandungi digit pada permulaan (atau semuanya terdiri daripadanya).
Fungsi Str melakukan perkara yang bertentangan dengan apa yang dilakukan oleh Val—ia menukar nilai berangka ungkapan kepada nilai rentetan, membenarkan nilai itu dianggap sebagai rentetan.
Oleh itu, fungsi Val dan Str menukar jenis data pembolehubah yang mereka proses, masing-masing daripada rentetan ke angka dan dari angka ke rentetan.
Buat butang atau panel dalam Word
Anda tidak boleh menetapkan butang atau item menu pada borang untuk memanggil terus aplikasi daripada Word - ini hanya boleh dilakukan untuk modul. Oleh itu anda perlu memohon cara seterusnya. Buat makro (Menu + Sisipan + Modul) dalam projek terbuka:
Subkaunter()
penggunaForm1.Tunjukkan
tamatSub
Namakan semula makro ini mengikut kehendak anda, seperti Teplo. Dan ikuti langkah ini:
1. Klik kanan di mana-mana pada bar alat.
2. Daripada menu ini, pilih arahan tetapan(atau Perkhidmatan + Tetapan).
3. Dalam kotak dialog tetapan klik pada ikon tab Pasukan.
4. Tatal senarai Kategori turun dan cari item itu Makro. Pilih item ini. Dalam senarai "Simpan dalam", pilih nama dokumen anda di mana makro itu dibuat.
5. Dalam tetingkap kanan, cari makro yang diperlukan (atau program VBA).
6. Seret nama makro atau program ini ke bar alat.
7. Buat label butang yang sepadan dan, jika perlu, gambar (menggunakan butang kanan tetikus).
8. Tutup kotak dialog Tetapan, untuk menyelesaikan kerja.
9. Hasilnya, butang untuk melancarkan aplikasi akan dibuat.
Kerja makmal No. 5
Maklumat berkaitan.