用代码注释指定过程或函数的代码

时　间:2013-11-27 16:36:17
作　者:叶海峰   ID：31  城市：广州
摘　要:在窗体间传递参数的几种常用方法
正　文:

回答网友 布鲁斯 论坛发帖的问题

http://accessoft.com/bbs/showtopic.asp?id=20242 

代码如下：

Public Sub AutoMarkCodes(ModuleName, ProcName)

'----------------------------------------------------------------
' Procedure : AutoMarkCodes
' DateTime  : 2013-11-26 15:22
' Author    : 叶海峰
' ModuleName:模块名
' Procname  :过程或函数名
' 调用方法: Call AutoMarkCodes 模块名,过程名
' 注:该方法只适用于标准模块(包括窗体,报表中的过程等等),不适用与类模块,窗体模块名为 Form_窗体名,报表为Report_报表名
    Dim mymodule As Module
    Dim str    As String
    Dim i
    Dim startline
    Dim endline

    Set mymodule = Application.Modules(ModuleName)

    With mymodule
        startline = .ProcBodyLine(ProcName, vbext_pk_Proc) + 1
        endline = .ProcCountLines(ProcName, vbext_pk_Proc)
        For i = startline  To startline + endline
        If .Lines(i, 1) Like "*End Sub*" Or .Lines(i, 1) Like "*End Function*" Then Exit For
            .ReplaceLine i, "'" & .Lines(i, 1)
        Next
    End With
End Sub

Sub test()
AutoMarkCodes "模块1", "DataBaseInfo"
End Sub