Peringatan virus makro muncul ketika makro tidak ada dalam berkas di Word

Untuk versi Microsoft Word 2000 dari artikel ini, lihat 238851.


Untuk versi Microsoft Word 97 dari artikel ini, lihat 161515.


Gejala

Ketika Anda membuka dokumen Microsoft Word 2002 atau pola dasar, Anda akan menerima peringatan virus makro berikut, meskipun dokumen atau template tidak berisi makro:

C:\ < jalur > \ < nama file > berisi makro.

Makro mungkin berisi virus. Selalu aman untuk menonaktifkan makro, tetapi apabila makro sah, Anda mungkin kehilangan beberapa fungsionalitas.

Penyebab

Bila Anda menghapus makro dari dokumen atau pola dasar, beberapa komponen penyimpanan makro yang ditinggalkan. Fitur perlindungan virus makro menemukan informasi ini, dan pesan peringatan akan ditampilkan.

Pemecahan masalah

Microsoft Office Word 2007

Untuk mengatasi masalah ini, gunakan salah satu metode berikut, yang sesuai untuk situasi Anda.

Metode 1: Menghapus komponen penyimpanan makro yang tersisa

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Makro yang terkandung dalam dokumen Word atau template Anda disimpan dalam modul. Setelah Anda menghapus makro dari dokumen atau pola dasar, modul yang dimuat dengan makro tetap. Modul tidak dihapus saat dengan makro dihapus. Ketika Anda menghapus modul, makro yang berisi akan dihapus.

Untuk menghapus modul dari dokumen Word atau pola dasar dan mencegah peringatan virus makro muncul, ikuti langkah-langkah berikut:

  1. Buka dokumen atau pola dasar yang memberi peringatan virus makro.

  2. Pada tab pengembang , klik Visual Basic dalam kelompok kode .

  3. Di jendela Visual Basic , memperluas proyek (nama berkas) di panel Project . Dokumen proyek atau proyek template akan menyerupai contoh berikut:

    Proyek (nama file)Catatan Jika jendela proyek tidak terlihat, klik Proyek Explorer menu tampilan . Untuk memperluas dokumen proyek atau proyek pola dasar, klik tanda plus di sebelah kiri proyek (nama berkas).

  4. Buka folder modul .

  5. Klik untuk memilih modul. Misalnya, klik untuk memilih NewMacros.

    Catatan Nama modul yang terdaftar mungkin berbeda di dokumen proyek atau proyek template Anda. Misalnya, mungkin bernama Module1 atau nama yang berbeda.

  6. Pada File menu, klik Hapus Nama modul. Klik tanpa pesan berikut ini:

    Apakah Anda ingin ekspor < nama modul > sebelum menghapusnya?Catatan Jika Anda tidak yakin apakah modul yang Anda menghapus berisi makro, klik ya. Kemudian, ekspor modul sebagai berkas dasar (*.bas).

  7. Ulangi langkah 5 dan 6 untuk setiap modul yang tercantum di bawah folder proyek (nama berkas) modul .

  8. Pada File menu, klik tutup dan kembali ke Microsoft Word.

  9. Simpan dan tutup dokumen Word atau pola ACU Word.

Peringatan virus makro tidak lagi muncul ketika Anda membuka dokumen atau pola dasar.

Metode 2: Salin pola dasar untuk berkas Word baru

Catatan Menggunakan prosedur ini jika ketentuan berikut dipenuhi:

  • Word template berisi makro tidak ada.

  • Word template akan menampilkan peringatan virus makro yang disebutkan di bagian "Gejala" ketika Anda membuka pola dasar Word atau ketika Anda mencoba untuk membuat dokumen baru yang didasarkan pada template. Misalnya, Anda meng-klik Tombol Microsoft Office, dan kemudian klik baru.

Catatan Setelah template baru dibuat, Anda dapat menyalin semua gaya kustom dan entri Auto text template baru. Namun, tidak menyalin makro apa pun untuk template baru.

  1. Klik Tombol Microsoft Office, dan kemudian klik tutup untuk menutup berkas yang menampilkan peringatan virus makro.

  2. Klik Tombol Microsoft Office, dan kemudian klik baru.

  3. Di jendela kosong dan terbaru , klik untuk memilih dokumen kosong, dan kemudian klik buat.

  4. Pada tab sisipkan , klik objek grup teks .

  5. Di kotak dialog objek , klik Browse pada tab buat dari berkas .

  6. Ubah jalur kotak Cari map yang berisi template bermasalah. Misalnya, Ubah jalur kotak Cari ke folder berikut:

    C:\Users\User_Name\AppData\Roaming\Microsoft\TemplatesCatatan Template Anda dapat ditemukan di folder yang berbeda.

  7. Klik untuk memilih template yang bermasalah, dan kemudian klik sisipkan.

  8. Klik Tombol Microsoft Office, dan kemudian klik Simpan sebagai.

  9. Simpan sebagai kotak dialog, pilih pola dasar dokumen (* .dot) di kotak Simpan sebagai jenis .

  10. Di kotak nama berkas , ketik nama untuk template baru Anda, dan kemudian klik Simpan.

  11. Klik Tombol Microsoft Office, dan kemudian klik tutup untuk menutup template baru Anda.

Catatan Makro atau komponen penyimpanan makro yang tersisa dari template Anda bermasalah tidak disimpan ke template baru. Peringatan virus makro tidak lagi muncul ketika Anda membuka template atau saat Anda menggunakannya untuk membuat dokumen baru.

Metode 3: Simpan dokumen Word Rich Text Format (.rtf)

Catatan Menggunakan prosedur ini ketika dokumen Word makro tidak berisi tetapi menampilkan peringatan virus makro yang disebutkan di bagian "gejala".

  1. Buka dokumen yang menampilkan peringatan virus makro.

  2. Klik Tombol Microsoft Office, dan kemudian klik Simpan sebagai.

  3. Di Simpan sebagai kotak dialog, klik Rich Text Format (*.rtf) pada Simpan sebagai jenis, dan kemudian klik Simpan. Klik ya di pesan berikut ini:

    Semua makro dalam dokumen ini akan hilang jika dokumen disimpan dalam Rich Text Format. Apakah Anda ingin menyimpan dalam format ini tetap?

  4. Pada File menu, klik tutup untuk menutup .rtf berkas yang disimpan di langkah 3.

  5. Pada File menu, klik buka, dan kemudian buka .rtf berkas yang disimpan di langkah 3.

  6. Pada File menu, klik Simpan Sebagai.

  7. Simpan sebagai kotak dialog, pilih dokumen Word (* .doc) di bawah Simpan sebagai jenis, dan kemudian klik Simpan.

    Catatan Jika Anda menyimpan berkas kembali ke nama aslinya berkas, klik Lanjutkan di Microsoft Office Word kompatibilitas Checker pesan berikut ini:

    Fitur berikut ini dalam dokumen ini tidak didukung oleh Word versi terdahulu. Fitur ini mungkin hilang atau rusak saat Anda menyimpan dokumen ini dalam format berkas yang lebih lawas. Klik Lanjutkan untuk menyimpan dokumen. Untuk menyimpan semua fitur Anda, klik Batal, dan kemudian simpan berkas dalam salah satu format file baru.

    Ringkasan

    Makro akan hilang.

  8. Tutup dan kemudian Buka berkas.

Catatan Makro atau komponen penyimpanan makro tersisa tidak disimpan ke berkas baru. Peringatan virus makro tidak lagi muncul ketika Anda membuka berkas.


Atau, jalankan makro berikut ini:

Option Explicit

Const stFindFolder = "C:\test"
Sub roundtrip_wordfile_rtf()
'Dim objDoc 'As Document
Application.ScreenUpdating = False
Dim objDocName As String
Dim i
Dim FoundCnt
Dim SrcFileFullName
Dim objDocRtfName As String
Dim objDocDocName As String
Dim objDocShortName As String

Dim wdApp As Object 'As Word.Application 'Object
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False 'Hides the application.
wdApp.DisplayAlerts = wdAlertsNone 'Turns off any Dialog Boxes.

With Application.FileSearch
.NewSearch
.Filename = "*.doc"
.LookIn = stFindFolder
.SearchSubFolders = False 'True 'Set this to True if you want to search Sub Folders.
.TextOrProperty = ""
.Execute 'The .Execute command may take a while.


FoundCnt = .FoundFiles.Count
For i = 1 To FoundCnt
SrcFileFullName = .FoundFiles(i)
If Len(Dir(SrcFileFullName)) > 0 Then

Debug.Print SrcFileFullName 'This prints out the name fo the file that was worked on in the Immediate Window.
wdApp.Documents.Open (SrcFileFullName)
objDocRtfName = Replace(SrcFileFullName, ".doc", ".rtf", 1, , vbTextCompare) 'Changes the file name to *.rtf.
'objDocShortName = Replace(objDocRtfName, stFindFolder & "\", "", 1, , vbTextCompare)'In case yoiu need the short file name.

wdApp.Documents(SrcFileFullName).SaveAs Filename:=objDocRtfName, FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
wdApp.Documents.Close
wdApp.Visible = False
'objDoc.Close
wdApp.Documents.Open objDocRtfName
objDocDocName = Replace(objDocRtfName, ".rtf", ".doc", 1, , vbTextCompare) 'Changes the file name to *.doc.
wdApp.Documents(objDocRtfName).SaveAs Filename:=objDocDocName, FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

wdApp.Documents.Close
wdApp.Visible = False
Kill objDocRtfName 'This deletes the *.rtf file used to remove the macros.
End If
Next i
End With

wdApp.Quit
Set wdApp = Nothing

End Sub

Microsoft Word 2002

Untuk mengatasi masalah ini, gunakan salah satu dari metode berikut sesuai dengan situasi Anda.

Metode 1: Menghapus komponen penyimpanan makro yang tersisa

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Makro yang terkandung dalam dokumen Word atau template disimpan dalam modul. Setelah Anda menghapus makro dari dokumen atau pola dasar, modul yang dimuat dengan makro tetap dan tidak dihapus saat dengan makro dihapus.

Untuk menghapus modul dari dokumen Word atau pola dasar dan mencegah peringatan virus makro muncul, ikuti langkah-langkah berikut.

Catatan Menghapus modul menghapus makro yang dimuat.

  1. Buka dokumen atau pola dasar yang memberi peringatan virus makro.

  2. Pada menu Alat , arahkan ke Makro, lalu klik Editor Visual Basic.

  3. Di jendela proyek , memperluas proyek dokumen (template). Proyek dokumen (template) harus serupa dengan contoh berikut:

    Proyek (nama file)
    Catatan: jika jendela proyek tidak terlihat, klik Proyek Explorer menu tampilan .

  4. Buka folder modul .

  5. Klik untuk memilih modul. Misalnya, klik untuk memilih NewMacros.

    Catatan Nama modul yang terdaftar mungkin berbeda di dokumen (template) proyek. Misalnya, mungkin bernama Module1 atau beberapa nama yang berbeda.

  6. Pada File menu, klik Hapus Nama modul. Klik No dengan pesan berikut:

    Apakah Anda ingin ekspor < nama modul > sebelum menghapusnya?Catatan: jika Anda tidak yakin apakah Anda menghapus modul berisi makro, klik ya dan kemudian ekspor modul sebagai Dasar file (*.bas).

  7. Ulangi langkah 5 dan 6 untuk setiap modul yang tercantum di bawah folder modul proyek (nama berkas).

  8. Pada File menu, klik tutup dan kembali ke Microsoft Word.

  9. Simpan dan tutup dokumen Word (template).

Peringatan virus makro tidak lagi muncul ketika Anda membuka dokumen (template).

Metode 2: Salin pola dasar untuk berkas Word baru

Catatan Menggunakan prosedur ini saat Word template berisi makro tidak namun menampilkan peringatan virus makro seperti yang dijelaskan di bagian "Gejala" pada artikel ini ketika Anda membuka atau mencoba membuat dokumen baru berdasarkan itu (pada File menu, klik baru). Membuat pola dasar baru dengan mengikuti langkah-langkah berikut.

Catatan Setelah template baru dibuat, Anda dapat menyalin semua gaya kustom, autoteks, dan seterusnya ke template baru, namun tidak menyalin makro apa pun untuk template baru.

  1. Pada File menu, klik tutup untuk menutup berkas yang menampilkan peringatan virus makro.

  2. Pada File menu, klik Baru.

  3. Pada tab umum , klik untuk memilih Dokumen kosong, dan kemudian klik OK.

  4. Masukkan menu, klik File.

  5. Di kotak dialog Sisipkan berkas , mengubah kotak file dari jenis template dokumen (* .dot).

  6. Mengubah kotak Cari folder yang berisi pola dasar masalah. Sebagai contoh, Ubah kotak Cari ke folder berikut ini:

    C:\WINDOWS\Application Data\Microsoft\TemplatesCatatan: template Anda dapat ditemukan di folder yang berbeda.

  7. Klik untuk memilih template masalah, dan kemudian klik sisipkan.

  8. Pada File menu, klik Simpan Sebagai.

  9. Simpan sebagai kotak dialog, kotak Simpan sebagai jenis untuk mengubah pola dasar dokumen (* .dot).

  10. Di kotak nama berkas , ketik nama berkas untuk template baru Anda, dan kemudian klik Simpan.

  11. Pada File menu, klik tutup untuk menutup template baru Anda.

Makro atau komponen penyimpanan makro yang tersisa dari template masalah Anda tidak disimpan ke template baru. Peringatan virus makro tidak lagi muncul ketika Anda membuka template atau menggunakannya untuk membuat dokumen baru.

Metode 3: Simpan dokumen Word sebagai Rich Text Format (RTF)

Catatan Menggunakan prosedur ini ketika dokumen Word makro tidak berisi tetapi menampilkan peringatan virus makro seperti yang dijelaskan di bagian "Gejala".

  1. Buka dokumen yang memberikan peringatan virus makro.

  2. Pada File menu, klik Simpan Sebagai.

  3. Di Simpan sebagai kotak dialog, di bawah Simpan sebagai jenis, klik Rich Text Format (*.rtf), dan kemudian klik Simpan. Klik ya untuk pesan berikut ini:

    Semua makro dalam dokumen ini akan hilang jika dokumen disimpan dalam Rich Text Format. Apakah Anda ingin menyimpan dalam format ini tetap?

  4. Pada File menu, klik tutup untuk menutup dokumen Rich Text Format yang Anda simpan.

  5. Pada File menu, klik buka dan membuka dokumen Rich Text Format yang Anda simpan di langkah 3.

  6. Pada File menu, klik Simpan Sebagai.

  7. Simpan sebagai kotak dialog, di bawah Simpan sebagai jenis, klik dokumen Word (* .doc), dan kemudian klik Simpan. Jika Anda menyimpan berkas kembali ke nama berkas asli, klik ya untuk pesan berikut ini:

    < Nama file > file yang sudah ada. Apakah Anda ingin mengganti berkas yang ada?

  8. Tutup dan buka dokumen.

Makro atau komponen penyimpanan makro tersisa tidak disimpan ke dokumen baru. Peringatan virus makro tidak lagi muncul ketika Anda membuka dokumen.


Atau, jalankan makro berikut ini:

Option Explicit

Const stFindFolder = "C:\test"
Sub roundtrip_wordfile_rtf()
'Dim objDoc 'As Document
Application.ScreenUpdating = False
Dim objDocName As String
Dim i
Dim FoundCnt
Dim SrcFileFullName
Dim objDocRtfName As String
Dim objDocDocName As String
Dim objDocShortName As String

Dim wdApp As Object 'As Word.Application 'Object
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False 'Hides the application.
wdApp.DisplayAlerts = wdAlertsNone 'Turns off any Dialog Boxes.

With Application.FileSearch
.NewSearch
.Filename = "*.doc"
.LookIn = stFindFolder
.SearchSubFolders = False 'True 'Set this to True if you want to search Sub Folders.
.TextOrProperty = ""
.Execute 'The .Execute command may take a while.


FoundCnt = .FoundFiles.Count
For i = 1 To FoundCnt
SrcFileFullName = .FoundFiles(i)
If Len(Dir(SrcFileFullName)) > 0 Then

Debug.Print SrcFileFullName 'This prints out the name fo the file that was worked on in the Immediate Window.
wdApp.Documents.Open (SrcFileFullName)
objDocRtfName = Replace(SrcFileFullName, ".doc", ".rtf", 1, , vbTextCompare) 'Changes the file name to *.rtf.
'objDocShortName = Replace(objDocRtfName, stFindFolder & "\", "", 1, , vbTextCompare)'In case yoiu need the short file name.

wdApp.Documents(SrcFileFullName).SaveAs Filename:=objDocRtfName, FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
wdApp.Documents.Close
wdApp.Visible = False
'objDoc.Close
wdApp.Documents.Open objDocRtfName
objDocDocName = Replace(objDocRtfName, ".rtf", ".doc", 1, , vbTextCompare) 'Changes the file name to *.doc.
wdApp.Documents(objDocRtfName).SaveAs Filename:=objDocDocName, FileFormat:=wdFormatRTF, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

wdApp.Documents.Close
wdApp.Visible = False
Kill objDocRtfName 'This deletes the *.rtf file used to remove the macros.
End If
Next i
End With

wdApp.Quit
Set wdApp = Nothing

End Sub

Status

Microsoft telah memastikan bahwa ini merupakan masalah di dalam produk Microsoft sebagaimana tercantum di bagian "Berlaku untuk".

Informasi lebih lanjut

Makro penyimpanan komponen tidak ada di dokumen Word atau pola dasar sampai Anda menyimpan makro dalam berkas. Komponen tersebut ada sebagai mendukung struktur keberadaan dan penyimpanan makro dalam berkas. Bila Anda menghapus semua makro dalam berkas, makro penyimpanan komponen tidak dihapus. Fitur peringatan virus makro Microsoft Word mendeteksi komponen penyimpanan makro dalam file dan menyajikan virus makro peringatan ketika Anda membuka berkas.

Untuk menghapus makro dari dokumen Word, ikuti langkah-langkah berikut:

Microsoft Word 2002

  1. Buka berkas di Word.

  2. Pada menu Alat , arahkan ke Makro, lalu klik Makro.

  3. Di kotak dialog makro , pilih nama makro, dan kemudian klik Hapus. Ini akan menghapus makro dari berkas.

  4. Ulangi langkah 3 untuk setiap makro yang ingin Anda hapus.

Microsoft Office Word 2007

  1. Buka berkas di Word 2007.

  2. Pada tab pengembang , klik makro dalam kelompok kode .

  3. Di kotak dialog makro , pilih nama makro, dan kemudian klik Hapus. Ini akan menghapus makro dari berkas.

  4. Ulangi langkah 3 untuk setiap makro yang ingin Anda hapus.

Untuk informasi selengkapnya, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:

233396 cara untuk mengurangi kemungkinan infeksi virus makro

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×