我看到了一个谜题。我工作的地方有大量的 Word 模板，它们都包含一个包含一些错误的 autonew 事件句柄。这个错误存在于所有模板中。我想知道是否有一种方法可以扫描包含此宏的模板目录并稍微更改宏代码？
这可能吗？
最佳答案
是的，你可以这么做。您可以使用以下方法访问任何文档的 VBA 项目:
Application.VBE.ActiveVBProject.VBComponents
您的项目必须引用“Microsoft Visual Basic for Applications Extensibility”。
要运行代码，您必须在 Word 中启用“信任对 Visual Basic 项目的访问”选项，使用
VBComponents 集合包含项目包含的所有标准模块、类模块、表单和“文档”模块。如果你用谷歌搜索，你会发现很多关于如何访问/修改它们的帮助。编辑 :好的，更多细节。此方法将搜索文档的所有
VbComponents 以查找具有指定名称的方法，并在找到的第一个方法中执行搜索/替换。Public Sub ReplaceInProject(ByVal oDocument As Document, ByVal strMethodName As String, ByVal strFindText As String, ByVal strReplaceWithText As String)
' For each module (of any type - could use oVbComponent.Type to restrict
' this to certain types of module)
Dim oVbComponent As VBComponent
For Each oVbComponent In oDocument.VBProject.VBComponents
Dim oCodeModule As CodeModule
Set oCodeModule = oVbComponent.CodeModule
' See if we can find the method in this module
Dim ixStartLine As Long
ixStartLine = FindMethodStartLine(oCodeModule, strMethodName)
If ixStartLine > 0 Then
' Get all the text of the method
Dim numLines As Long
numLines = oCodeModule.ProcCountLines(strMethodName, vbext_pk_Proc)
Dim strLines As String
strLines = oCodeModule.Lines(ixStartLine, numLines)
' Do the find/replace
strLines = Replace(strLines, strFindText, strReplaceWithText)
' Replace the method text.
oCodeModule.DeleteLines ixStartLine, numLines
oCodeModule.InsertLines ixStartLine, strLines
End If
Next oVbComponent
End Sub
Private Function FindMethodStartLine(ByVal oCodeModule As CodeModule, ByVal strMethodName As String) As Long
FindMethodStartLine = 0
' ProcStartLine will raise an error if the method is not found;
' we'll just ignore the error and return -1
On Error Resume Next
FindMethodStartLine = oCodeModule.ProcStartLine(strMethodName, vbext_pk_Proc)
End Function
请注意，这仅适用于
Sub 和 Function 方法，不适用于属性 Get/Set/Let ，因为我使用的是 vbext_pk_Proc 。这是一个 PITA，您需要明确说明这一点。坦率地说，CodeModule 组件的整个 API 似乎设计得几乎令人沮丧。例如，虽然 VbComponent 对象有一个 Find 方法(您认为这是一种查找所需文本的便捷方法)，但它实际上返回 True 或 False (!)。有用，我不认为!这个 API 的设计者在这样做的时候一定有一个非常糟糕的宿醉。
关于c# - vba - 扫描宏文件并替换宏文本？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/1742044/