替换代码模块中的文本

我试图使用replaceline函数来更新Access VBA模块中的代码。它不断出现编译错误。我检查过，选择了VBA扩展并将其与我查过的其他示例进行了比较。替换代码模块中的文本

这是我第一次使用这种类型的功能，所以我还没有完全理解他们。

下面

Sub ReplaceCodeModuleText(strModule As String, strFindWhat As String, strReplaceWith As String) 
'FUNCTION: 
'   Search the code module for specific text 
'   Replace with new text 


Dim VBProj As VBProject 
Dim VBComp As VBComponent 
Dim CodeMod As CodeModule 


Dim SL As Long ' start line 
Dim EL As Long ' end line 
Dim SC As Long ' start column 
Dim EC As Long ' end column 
Dim strCodeLine As String 
Dim vDummy As Variant 

Dim Found As Boolean 

    Set VBProj = Application.VBE.ActiveVBProject 
    Set VBComp = VBProj.VBComponents(strModule) 
    Set CodeMod = VBComp.CodeModule ' '.CodeModule 

    With CodeMod 
     SL = 1:  EL = .CountOfLines 
     SC = 1:  EC = 255 

     Found = .Find(Target:=strFindWhat, StartLine:=SL, StartColumn:=SC, _ 
      EndLine:=EL, EndColumn:=EC, _ 
      wholeword:=True, MatchCase:=False, patternsearch:=False) 

     If Found Then 
      strCodeLine = CodeMod.Lines(SL, 1) 
      strCodeLine = Replace(strCodeLine, strFindWhat, strReplaceWith, Compare:=vbTextCompare) 'not case sensitive = vbTextCompare 
      .ReplaceLine(SL, strCodeLine) 

      Debug.Print "Successfully Replaced: " & strFindWhat & " in VBA Module: " & strModule & " with : " & strReplaceWith 
     Else 
      Debug.Print "Did not find: " & strFindWhat; 

     End If 
    End With 
End Sub

来源

2017-06-04 Ian Cox

它看起来像你永远只能处理第一线。 '.Find'行表示从第1行到EL的搜索，但是'strCodeLine'和'.ReplaceLine'的赋值只使用'SL'，它看起来没有被更新。可能值得使用'for'循环，并在模块的每一行上进行字符串替换和ReplaceLine。 – GregHNZ

@GregHNZ：[CodeModule.Find]（https://msdn.microsoft.com/en-us/library/aa443952（v = vs.60）.aspx）设置其StartLine，StartColumn等参数。感谢Andre， – Andre

 .ReplaceLine(SL, strCodeLine)

代码必须是

 Call .ReplaceLine(SL, strCodeLine)

或

 .ReplaceLine SL, strCodeLine

来源

2017-06-04 07:06:26 Andre

，解决了这个问题。我没有看到任何使用“调用”过程的例子。我注意到的一件事是，我需要确保我不会调用它正在使用的函数，因为它会导致Access崩溃（有道理）。 –

如果答案解决了您的问题，您可以[接受]（http://stackoverflow.com/help/someone-answers）它，这也标志着问题已解决。 @IanCox – Andre

替换代码模块中的文本

回答

相关问题