Developing.ru

Код: Выделить всё

Public Function MyReplace(ByVal Expr As String, ByVal find As String, _
                          ByVal rep As String, Optional ByVal start As Long = 1, _
                          Optional ByVal count As Long = -1, _
                          Optional ByVal compare As VbCompareMethod = vbBinaryCompare) As String
    If start = 1 Then
        MyReplace = Replace(Expr, find, rep, start, count, compare)    'Вызов стандартной функции Replace
    Else
        MyReplace = VBA.Left(Expr, start - 1) & Replace(Expr, find, rep, start, count, compare)
    End If
End Function

Код: Выделить всё

Public Function A___(ByVal A____ As String, ByVal A_____ As String, _
                     ByVal A______ As String, Optional ByVal A_______ As Long = 1, _
                     Optional ByVal A________ As Long = -1, _
                     Optional ByVal AA_______ As VbCompareMethod = vbBinaryCompare) As String
    If A_______ = 1 Then
        A___ = Replace(A____, A_____, A______, A_______, A________, AA_______)
    Else
        A___ = VBA.Left(A____, A_______ - 1) & Replace(A____, A_____, A______, A_______, A________, AA_______)
    End If
End Function

Код: Выделить всё

Sub test()
  For Each x In Application.VBE.CodePanes
    With x.CodeModule
      If .Name <> "Module2" And .CountOfLines > 0 Then
        s = .Lines(1, .CountOfLines) & vbCrLf & "'добавлено макросом"
        'MsgBox s
        .insertlines 1, " "
        .deletelines 2, .CountOfLines - 1
        .insertlines .CountOfLines, s
      End If
    End With
  Next
End Sub