Visual Fortran如何添加多行注释

1、在软件安装文件夹下，如C盘：C/Program Files/Microsoft Visual Studio/Common/MSDEV98/MACROS文件夹下生成文件GrpComment.dsm

2、用文本编辑器打开该文件，将以下代码粘贴保存在其中，并保留.dsm后缀名

Function FileType (ByVal doc)

    ext = doc.Name     FileType = 0     pos = Instr(ext, ".")     if pos > 0 then         Do While pos <> 1             ext = Mid(ext, pos, Len(ext) - pos + 1)             pos = Instr(ext, ".")         Loop         ext = LCase(ext)     end if     If ext = ".f90" Then         FileType = 8     ElseIf ext = ".for" Then         FileType = 9     Else         FileType = 0     End If End Function Sub CommentOut () 'DESCRIPTION: 为所选的多行代码加注释     Dim win     set win = ActiveWindow     if win.type <> "Text" Then       MsgBox "This macro can only be run when a text editor window is active."     else         TypeOfFile = FileType(ActiveDocument)           If TypeOfFile = 8 Or TypeOfFile = 9 Then             If TypeOfFile = 8 Then                 CommentType = "! "  ' Fortran 90 file             Else                 CommentType = "C "  ' Fortran 77 file             End If                   StartLine = ActiveDocument.Selection.TopLine             EndLine = ActiveDocument.Selection.BottomLine             If EndLine < StartLine Then                 Temp = StartLine                 StartLine = EndLine                 EndLine = Temp             End If             If EndLine = StartLine Then                 ActiveDocument.Selection.SelectLine                 ActiveDocument.Selection = CommentType + ActiveDocument.Selection             Else                 For i = StartLine To EndLine                     ActiveDocument.Selection.GoToLine i                     ActiveDocument.Selection.SelectLine                     ActiveDocument.Selection = CommentType + _                         ActiveDocument.Selection                 Next             End If         else             MsgBox("Unable to comment out the highlighted text" + vbLf + _                     "because the file type was unrecognized." + vbLf + _                     "If the file has not yet been saved, " + vbLf + _                     "please save it and try again.")         End If     End If End Sub Sub CommentDel () 'DESCRIPTION: 去除所选的多行代码的注释     Dim win     set win = ActiveWindow     if win.type <> "Text" Then         MsgBox "This macro can only be run when a text editor window is active."     else         TypeOfFile = FileType(ActiveDocument)           If TypeOfFile = 8 Or TypeOfFile = 9 Then             StartLine = ActiveDocument.Selection.TopLine             EndLine = ActiveDocument.Selection.BottomLine             If EndLine < StartLine Then                 Temp = StartLine                 StartLine = EndLine                 EndLine = Temp             End If             If EndLine = StartLine Then                 ActiveDocument.Selection.SelectLine                 ActiveDocument.Selection = mid(ActiveDocument.Selection, 3)             Else                 For i = StartLine To EndLine                     ActiveDocument.Selection.GoToLine i                     ActiveDocument.Selection.SelectLine                     ActiveDocument.Selection = mid(ActiveDocument.Selection, 3)                 Next             End If         else             MsgBox("Unable to comment out the highlighted text" + vbLf + _                     "because the file type was unrecognized." + vbLf + _                     "If the file has not yet been saved, " + vbLf + _                     "please save it and try again.")         End If     End If End Sub

3、启动Fortran，选Tools->Customize->Add-ins and Macro Files，在GrpComment前打勾，去掉其他的勾

4、在同一对话框中选Commands->Macros，此时在右边可以看见CommentDel和CommentOut

5、选中CommentOut，拖到CVF的工具栏上去（添加工具钮），会弹出Button Appearance对话框；同理选中CommentDel并拖动到工具栏，也会弹出该对话框。

6、对话框中有三种显示模式，分别是：图标展示、文本展示和图文展示。结合自己的偏好选择不同的模式，最后点“OK”键就可以使用啦。

在编程过程中，选取多行代码，然后点击刚刚设置好的快捷按钮，即可对多行代码进行注释。