VBA to modify another VBA

[DimGR]

Hi,

I am trying to create a VBA that will:
-find and replace a specific string
-in all other VBAs of the same workbook
-any number of time(s), in any part(s) and any VBA(s) it appears

I have found this example, but it replaces the whole line, instead of the desired string only:


Sub replaceConstant()
Dim project As VBIDE.VBProject
For Each project In Application.VBE.VBProjects

Dim codeMod As VBIDE.CodeModule
Dim component As VBIDE.VBComponent

For Each component In project.VBComponents

If component.Name <> "replaceConstant" Then

Set codeMod = component.CodeModule

Dim startline As Long
startline = 1

codeMod.Find Target:="Old_Text", _
startline:=startline, startcolumn:=1, endline:=codeMod.CountOfLines, endcolumn:=1

codeMod.ReplaceLine startline, "New_text"


End If
Next component

Next project
End Sub

Could you please help me?

[arnelgp]

Sub replaceConstant()Dim project As VBIDE.VBProject
Dim codeMod As VBIDE.CodeModule
Dim component As VBIDE.VBComponent
Dim n As Long, s As String


For Each project In Application.VBE.VBProjects


For Each component In project.VBComponents

If component.Name <> "replaceConstant" Then

Set codeMod = component.CodeModule

With codeMod
For n = 1 To .CountOfLines
s = .Lines(n, 1)
If Len(Trim$(s)) Then
If s Like "*" & Old_Text & "*" Then
s = Replace$(s, Old_Text, New_Text)
.DeleteLines n, 1
.InsertLines n, s
End If
End If
Next
End With
'Dim startline As Long
'startline = 1

'codeMod.Find Target:="Old_Text", _
'startline:=startline, startcolumn:=1, endline:=codeMod.CountOfLines, endcolumn:=1

'codeMod.ReplaceLine startline, "New_text"


End If
Next component


Next project
End Sub

[snb]

In personal.xlsb:


Sub M_snb()
activesheet.cells.replace inputbox("search"), inputbox("replace by")
End Sub

PS. Your level of VBA expertise doesn't match the code you are working with.

[DimGR]

Thanks both :)