VBA是Visual Basic for Applications，和Visual Basic 6並不是同個東西。
在下敝人小弟我遇到某些Word檔裏有AutoClose的巨集，而且內容不正確，可能是刪除病毒留下來的？OfficeScan並不把它視為病毒，但ClamAV、Nod32等均視為病毒直接刪除整個檔案，造成user困擾，而且AutoClose巨集會造成自動感染Normal.dot(Word 97)。
本來想用Apache POI處理，但沒找到VBE相關的東西，只好以夷制夷，呼叫Word自己來刪Macro。由於我並沒有裝VSTO套件，所以也沒有試用.net存取Word的方式，直接用長得很像的VB6。在下手上沒有VBA的書，照著網路上的範例在Word的VB編輯器可以，但試半天用VB6呼叫都沒有成功。隔天敝公司的VB超人出差回來，他告訴我兩個key point：
請在VB6專案引用Microsoft Word 11.0 Object Library （這是Word 2003，從8.0~12.0應該都可以，看Client的Word，所以這個程式還和Word綁在一起）及Microsoft Visual Basic for Application Extensibility 5.3 (同樣和Word綑綁，Word 97的VBE無版號），我再加上了Microsoft Scripting Runtime以提供FileSystemObject。
開檔的部份就不寫了，以下是刪除巨集的subroutine：
Protection屬性在用Word 97時會遇到，如ETKeys。
參考：以程式設計方式存取 Office VBA 專案遭到拒絕
判斷巨集是否存在
如何用VBA語句刪除工作表的類模塊或其中的宏
HOW TO：使用 FileSystemObject 遞迴搜尋目錄
在下敝人小弟我遇到某些Word檔裏有AutoClose的巨集，而且內容不正確，可能是刪除病毒留下來的？OfficeScan並不把它視為病毒，但ClamAV、Nod32等均視為病毒直接刪除整個檔案，造成user困擾，而且AutoClose巨集會造成自動感染Normal.dot(Word 97)。
本來想用Apache POI處理，但沒找到VBE相關的東西，只好以夷制夷，呼叫Word自己來刪Macro。由於我並沒有裝VSTO套件，所以也沒有試用.net存取Word的方式，直接用長得很像的VB6。在下手上沒有VBA的書，照著網路上的範例在Word的VB編輯器可以，但試半天用VB6呼叫都沒有成功。隔天敝公司的VB超人出差回來，他告訴我兩個key point：
我只注意到要引用Word Object Library，忽略了VBE引擎，所以才會一直無法使用VBE。
- Word必須信任存取 Visual Basic 專案
- 要引用Microsoft Visual Basic for Application Extensibility
請在VB6專案引用Microsoft Word 11.0 Object Library （這是Word 2003，從8.0~12.0應該都可以，看Client的Word，所以這個程式還和Word綁在一起）及Microsoft Visual Basic for Application Extensibility 5.3 (同樣和Word綑綁，Word 97的VBE無版號），我再加上了Microsoft Scripting Runtime以提供FileSystemObject。
開檔的部份就不寫了，以下是刪除巨集的subroutine：
Public Sub EraseWordMacro(wdApp As Word.Application)
Dim wdDoc As Word.Document
Set wdDoc = wdApp.ActiveDocument
Dim j As Integer
Dim i As Integer
Dim nLines As Integer
Dim oVBComp As VBIDE.VBComponent
Dim codeofline As String
Dim nProjects As Integer
nProjects = wdDoc.VBProject.Collection.Count
For j = 1 To nProjects
Dim n As Integer
Dim str As String
If wdDoc.VBProject.Collection.Item(j).Protection = False Then
Dim kkk As VBIDE.VBComponent
For Each kkk In wdDoc.VBProject.Collection.Item(j).VBComponents
kkk.CodeModule.DeleteLines 1, kkk.CodeModule.CountOfLines
Next
End If
Next j
End Sub
這支程式主要是先找出Storage上所有doc檔，循序開啟刪除巨集，我設定是掃所有project，因此若Normal.dot有巨集也會刪除，若只想刪開啟的word檔上的巨集，就只要處理wdDoc.VBProject.Collection.Item(1)。建議用Word 2003，把安全性設為高以避免感染Normal.dot。在測試Word 2007時會顯示不提供版本功能，所以不建議使用，以免誤砍user資料。Protection屬性在用Word 97時會遇到，如ETKeys。
參考：以程式設計方式存取 Office VBA 專案遭到拒絕
判斷巨集是否存在
如何用VBA語句刪除工作表的類模塊或其中的宏
HOW TO：使用 FileSystemObject 遞迴搜尋目錄
留言