需要用VBScript写的宏来实现,我有一个仅供参考 Sub AddComment() 'DESCRIPTION: 将选中的段落用//进行注释 dim i Descr = ActiveDocument.Selection
Descr2 = "//" for i=1 to len(descr) if mid(Descr, i,1) = chr(10) and i<> len(descr) then Descr2 = Descr2 + mid(Descr,i,1) + "//" else Descr2 = Descr2 + mid(Descr,i,1) end if next
ActiveDocument.Selection = Descr2 End Sub 添加方法如下: 1.从Tools菜单中选Customize项,在Add-ins and macro files选页中点中SAMPLE,然后关闭 2.从Tools菜单中选Macro项,在出来的对话框中选任一个,点Edit按钮,然后把上面的代码拷贝到文档的最后.保存,关闭 3.从Tools菜单中选Customize项,在Command页,Category下拉框列表选项中选Macro,在右边的ListBox中,将AddComment用鼠标拖到工具栏,然后会让你选一个图标,你选一个你喜欢的。这期间会询问宏文件已更改,是否重新载入,点击是,确认 4.使用方法:选中一段文本,然后点击你刚才拖到工具栏上的按钮,当前文本就给注释调了 以上仅供参考,请指正.