Possible to do a search/replace in the IDE Code window with VBA?
The code below requires a reference to MS VBA Extensibility (whichever version you have). This
does a global replace, so be careful that you are replacing a unique string...
HTH,
Bernie
MS Excel MVP
Sub ReplaceCodeInModule()
Dim myCode As String
Dim WhatToFind As String
Dim ReplaceWith As String
Dim modName As String
Dim myBook As Workbook
WhatToFind = "Hello"
ReplaceWith = "Hello World"
modName = "Module1"
Set myBook = ActiveWorkbook
With myBook.VBProject.VBComponents.Item(modName).CodeMo dule
myCode = .Lines(1, .CountOfLines)
myCode = Replace(myCode, WhatToFind, ReplaceWith)
.DeleteLines 1, .CountOfLines
.InsertLines .CountOfLines + 1, myCode
End With
End Sub
wrote in message
...
2003/ 2007
Is it possible, using VBA, to do a search/replace in another VBA module's IDE Code window with
VBA?
If so, What objects are involved? Is there a link explaining the process?
TIA EagleOne
|