http://www.vftool.com
2.2版还有代码自动完成等功能，感觉很不错。
只是试用版，那个高手给pj一下就好了！

此方法很好用
但有一个问题：
如果本行没有注释，去注释时会删掉开始的字符，
能否在去注释时加一个判断，非注释行不作处理？

我自己尝试加判断，没有成功
惭愧。

Sub CommentLine()
'DESCRIPTION: 注释若干行
    Dim EndLine, CurrLine
    EndLine=ActiveDocument.Selection.BottomLine
    ActiveDocument.Selection.StartOfLine
    CurrLine=ActiveDocument.Selection.CurrentLine
    while ( CurrLine<=EndLine )
        ActiveDocument.Selection.SelectLine
        ActiveDocument.Selection = "!" + ActiveDocument.Selection
        CurrLine=ActiveDocument.Selection.CurrentLine
    wend
End Sub

Sub UnCommentLine()
'DESCRIPTION: 去掉若干行的注释
    Dim EndLine, CurrLine, CurrText
    EndLine=ActiveDocument.Selection.BottomLine
    ActiveDocument.Selection.StartOfLine
    CurrLine=ActiveDocument.Selection.CurrentLine
    while ( CurrLine<=EndLine )
        ActiveDocument.Selection.SelectLine
        CurrText = ActiveDocument.Selection
        if ( Left(CurrText, 1) = "!" ) then
            CurrText = Right(CurrText, Len(CurrText)-1)
            ActiveDocument.Selection = CurrText
            CurrLine=ActiveDocument.Selection.CurrentLine
        else
            CurrLine=CurrLine+1
            ActiveDocument.Selection.LineDown
            ActiveDocument.Selection.LineUp
        end if
    wend
End Sub
复制保存到一*.txt文档,将*.txt文档改为Commentline.dsm添加到以下路径
*\Microsoft Visual Studio\Common\MSDEV98\MACROS
在cvf中启用该宏,并设置一快捷键即可

很简单。在你注释段最后面即新一行加上标号 例如 100 print “comment end”。注释最前面写 go to 100

老帖子长新见识阿。谢谢。

长期寻求网站入侵人员，拿欧美站，本人自己懂编程写木马，现在差一个网站入侵人员合作目前编写出来的网马大概种马率在40-50左右，而且是12合1体积在20K超高质量网马有意者联系QQ25498276详谈,半年内包你开宝马

这个问题提得好，fortran 里面最麻烦的就是这个破玩意了。
不过我觉得还是软件本身的问题，fortran这一点实在不咋地。

[quote]很简单。在你注释段最后面即新一行加上标号 例如 100 print “comment end”。注释最前面写 go to 100[/quote]
觉得这个办法不错！！

24楼也是一个不错的方法。