S
shoba
Does anyone know a fast way to replace a VBA string IN a VBA module by
using VBA code? So I'm not talking about replacing strings in
worksheets...
Suppose that I have workbook A with the following sub in a codemodule:
-Sub Example()
MsgBox "Just an example.", vbOKOnly
End Sub-
So now I want to use VBA code in workbook B to change the string
"Example" in the codemulde of A to "ShowMessage", so that the new sub
in A will be:
-Sub ShowMessage()
MsgBox "Just an example.", vbOKOnly
End Sub-
Macro security settings aside, I know you need a reference to the MS
VBA Extensibilty, but my problem is the following. The object
"codemodule" has no method "replace".
So these are valid codelines:
-Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.Find
Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.ReplaceLine-
but:
-Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.Replace-
doesn't exist...
All suggestions are welcome. Thanks in advance.
shoba
using VBA code? So I'm not talking about replacing strings in
worksheets...
Suppose that I have workbook A with the following sub in a codemodule:
-Sub Example()
MsgBox "Just an example.", vbOKOnly
End Sub-
So now I want to use VBA code in workbook B to change the string
"Example" in the codemulde of A to "ShowMessage", so that the new sub
in A will be:
-Sub ShowMessage()
MsgBox "Just an example.", vbOKOnly
End Sub-
Macro security settings aside, I know you need a reference to the MS
VBA Extensibilty, but my problem is the following. The object
"codemodule" has no method "replace".
So these are valid codelines:
-Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.Find
Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.ReplaceLine-
but:
-Workbooks("A.xls").VBProject.VBComponents(1).CodeModule.Replace-
doesn't exist...
All suggestions are welcome. Thanks in advance.
shoba