Bagaimana cara memeriksa dan menghapus referensi salah proyek di Visual Basic Editor di Word

Mengatur izin keamanan proyek

1. Di Microsoft Word, pada menu alat , titik makro, dan kemudian klik keamanan untuk menampilkan kotak dialog keamanan .

2. Pada tab Keamanan tingkat , mengatur tingkat keamanan untuk media, sehingga Anda memiliki pilihan untuk mengaktifkan macro.

3. Pada tab Sumber terpercaya , verifikasi bahwa kotak centang mempercayai akses ke proyek Visual Basic dipilih. Hal ini memungkinkan Anda untuk menggunakan kode VBA dalam proyek Anda.

4. Klik Oke.

Di Word 2007, ikuti langkah-langkah berikut:

1. Pada tab pengembang , klik Makro keamanan dalam kelompok kode .

2. Di sebelah kiri, klik Pengaturan makro.
   

3. Di panel kanan, klik mengaktifkan semua makro, dan kemudian klik untuk memilih kotak centang mempercayai akses ke model objek projek VBA .

4. Klik Oke.

Membuat proyek referensi

Anda akan membuat proyek yang berisi prosedur dan kemudian membuat referensi untuk proyek dari projek VBA yang baru.

Untuk membuat berkas Perpustakaan:

1. Membuat dokumen baru di Microsoft Word, dan kemudian simpan sebagai template dengan mengikuti langkah-langkah berikut:
   

   1. Pada File menu, klik Simpan sebagai untuk menampilkan kotak dialog Simpan sebagai .
      
      Catatan Di Word 2007, klik Tombol Microsoft Office, dan kemudian klik Simpan sebagai.

   2. Mengubah kotak nama berkas Refme.

   3. Mengubah Simpan sebagai jenis kotak
      Dokumen Template (* .dot).
      
      
      Catatan Di Word 2007, mengubah Simpan sebagai jenis kotak
      Pola dasar Word 97-2003 (* .dot)

   4. Simpan template dalam map "C:\TestFiles" (Anda harus membuat map ini jika tidak ada).

2. Tekan ALT + F11 untuk memulai Editor Visual Basic.

3. Dalam proyek Explorer, pilih TemplateProject (Refme). Pada menu Sisipkan, klik Modul. Ini menambahkan modul baru yang bernama "Module1" untuk proyek.

4. Di jendela kode, ketik kode berikut untuk Module1:

   Public Sub CallMe()
   
     Msgbox "Hello World!"
   
   End Sub
   

5. Klik sub prosedur, dan kemudian Jalankan menu, klik Jalankan Sub/UserForm. Kotak pesan "Halo dunia!" akan ditampilkan. Tutup kotak pesan ini.

6. Pada menu tampilan , klik Microsoft Word (ALT + F11) untuk kembali ke Word.

7. Di Word, Simpan dan tutup berkas pola dasar.

Untuk membuat referensi:

1. Di Word, membuat dokumen baru, dan kemudian simpan sebagai "Myproj.doc" di folder "C:\TestFiles".

2. Mulai Penyunting Visual Basic (tekan ALT + F11). Dalam proyek Explorer, pilih proyek (Myproj).

3. Membuat referensi ke Refme template sebagai berikut:
   

   1. Pada menu alat , klik referensi.

   2. Di kotak dialog referensi , klik Browse.

   3. Di kotak dialog Tambah referensi , tetapkan file dari jenis dokumen Word (* .doc; * .dot).
      
      
      Catatan Di Word 2007, tetapkan file dari jenis dokumen Word (*.docm; *.dotm.doc; * .dot).

   4. Di dalam map "C:\TestFiles", pilih Refme template.

   5. Klik buka kembali ke kotak dialog referensi .

   6. Klik OK untuk kembali ke Penyunting Visual Basic.

4. Dalam proyek Explorer, luaskan proyek (Myproj). Memperluas referensi dan verifikasi bahwa daftar referensi menyertakan referensi ke Refme.dot.

5. Masukkan menu, klik modul untuk masukkan modul baru ke dalam projek. Menulis kode berikut dalam modul untuk melakukan panggilan prosedur CallMe:

   Public Sub Test()
   
     Call CallMe
   
   End Sub
   

6. Uji prosedur untuk memverifikasi bahwa bekerja, dan kemudian kembali ke Word.

7. Simpan dan tutup berkas dokumen, dan kemudian keluar dari Word.

Pemrograman Periksa referensi proyek

Anda sekarang akan sengaja break referensi dan kemudian memverifikasi keakuratan referensi Anda.

Untuk memecahkan referensi:

1. Di Windows Explorer (Windows mulai menu klik kanan dan kemudian klik Jelajahi pada menu jalan pintas), mengubah nama Refme.dot template "Refme.old". Untuk melakukannya, klik kanan Refme.dot dan kemudian klik Ubah nama pada menu jalan pintas. Ketik refme.old dan kemudian tekan ENTER.

2. Kembali ke Word, dan kemudian buka dokumen "Myproj.doc".

3. Karena tingkat keamanan diatur ke media, Anda akan bertanya apakah Anda ingin mengaktifkan atau menonaktifkan makro dalam dokumen ini. Klik Aktifkan makro.
   
   Catatan Perilaku ini tidak terjadi di Word 2007.

4. Mulai Penyunting Visual Basic (tekan ALT + F11), dan kemudian jalankan prosedur pengujian. Klik OK untuk pesan galat menghimpun berikut ini:

   Tidak dapat menemukan proyek atau Perpustakaan

5. Anda harus berada dalam mode Break (ada pita kuning di seluruh baris Sub). Jalankan menu, klik Reset untuk kembali ke mode desain.

6. Pada menu alat , klik referensi untuk menampilkan kotak dialog referensi . Anda akan melihat bahwa Refme.dot ditandai sebagai "hilang".

7. Klik Batalkan untuk menutup kotak dialog referensi .

Untuk secara programatik memeriksa referensi hilang:

1. Dalam proyek Explorer, pilih proyek (Myproj).

2. Pada menu alat , klik referensi dan kemudian menambahkan referensi untuk Microsoft Visual Basic untuk aplikasi Ekstensibilitas 5.3 Perpustakaan. Perpustakaan ini berisi objek yang dirujuk proyek VBA.

3. Sebelum Anda mengklik OK, Anda harus memverifikasi bahwa referensi baru ditambahkan di atas referensi "hilang". Klik tanda panah beberapa kali untuk mengubah prioritas, Pindahkan referensi baru di atas referensi "hilang", dan kemudian klik OK.

4. Dalam modul, buat sub prosedur baru yang bernama "CheckReference", dan kemudian menulis kode berikut ini:

   Sub CheckReference()
   
      Dim vbProj As VBProject ' This refers to your VBA project.
      Dim chkRef As Reference ' A reference.
   
      ' Refer to the activedocument's VBA project.
      Set vbProj = ActiveDocument.VBProject
   
      ' Check through the selected references in the References dialog box.
      For Each chkRef In vbProj.References
   
         ' If the reference is broken, send the name to the Immediate Window.
         If chkRef.IsBroken Then
            Debug.Print chkRef.Name
         End If
   
      Next
   
   End Sub
   

5. Pada menu tampilan , klik Segera jendela (CTRL + G) untuk membuka jendela segera.

6. Jalankan CheckReference sub prosedur. Nama dan lokasi berkas yang ditampilkan di jendela segera.

Hapus dan mengembalikan referensi proyek

Bagian ini menjelaskan cara menghapus secara sistematis dan mengembalikan referensi.

Untuk menghapus referensi hilang:

1. Dalam CheckReference sub prosedur, mengubah pernyataan Debug.Print sebagai berikut. Ini akan menghapus referensi hilang dari proyek Anda:

      vbProj.References.Remove chkRef
   

2. Menjalankan prosedur CheckReference.

3. Verifikasi bahwa referensi dihapus di kotak dialog referensi (pada menu alat , klik referensi).

Untuk mengembalikan (tambah) referensi:

1. Di Windows Explorer, ganti nama Refme.old kembali ke "Refme.dot".

2. Kembali ke Myproj proyek di Visual Basic Editor di Word.

3. Tulis sub prosedur baru yang bernama "AddReference" sebagai berikut:

   Sub AddReference()
   
      Dim vbProj as VBProject
   
      Set vbProj = ActiveDocument.VBProject
      vbProj.References.AddFromFile "C:\TestFiles\Refme.dot"
   
   End Sub
   

4. Menjalankan prosedur AddReference.

5. Verifikasi bahwa referensi ke Refme.dot telah dipulihkan. Anda dapat melihat referensi dalam proyek Explorer atau ketika Anda mengklik referensi pada menu alat .

Pemecahan masalah

• Jika Anda membuat referensi ke aplikasi berkas asli, Anda harus menyimpan ekstensi berkas asli. Jika tidak, Anda mungkin mengalami masalah saat Anda menggunakan referensi. Untuk melihat masalah ini, cobalah untuk membuat referensi ke file Refme.old file Refme.dot dalam contoh sebelumnya dalam artikel ini.

• Jika Anda bekerja dengan komponen terdaftar, Anda dapat menambahkan referensi GUID untuk proyek Anda. Gunakan metode AddFromGUID untuk melakukannya.