水木社区手机版
- 主题:word2016里面的批注能批量导出吗？ (转载)
- 打开附件中的提取批注.docm文件，移动文档末尾，有个按钮，点击按钮，就可以提取文
档的所有批注，并写在文档（这个按钮）末尾。支持富文本批注。
按钮所执行的宏（VBA代码），可以见附件image1.png。
注：打开文档后要启动宏，才能点击按钮。按钮后面定义了一个书签，请不要在按钮后面乱删除。
【 在 unchained (琉璃光) 的大作中提到: 】
: 同問
--
FROM 59.77.36.*
附件(27.2KB) 提取批注.docm - WORD 2013里测试是没有问题。问题可能是在其它版本里。
宏的写法做了点修改：
Private Sub CommandButton1_Click()
Dim i As Integer
Set allComments = ActiveDocument.Comments
If allComments.Count = 0 Then
MsgBox "本文档没有批注。"
Else
Selection.GoTo What:=wdGoToBookmark, Name:="批注插入点"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeParagraph
For i = 1 To ActiveDocument.Comments.Count
msg = i & "、" & ActiveDocument.Comments(i).Author & "于 " & Act
iveDocument.Comments(i).Date & " 作了批注："
Selection.TypeText (msg)
Selection.TypeParagraph
ActiveDocument.Comments(i).Range.Copy
Selection.Paste
Selection.TypeParagraph
Selection.TypeParagraph
Next
Selection.GoTo What:=wdGoToBookmark, Name:="批注插入点"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
End Sub
【 在 unchained (琉璃光) 的大作中提到: 】
: word和wps运行，都提示：运行时错误 9 下标越界？
: msg = i & "、" & Split(cmnt.Contact.Name, """")(3) & "于 " & cmnt.Date & " 作了批注："
--
FROM 58.23.247.*
附件(27.3KB) 提取批注.docm - Private Sub CommandButton1_Click()
Dim i As Integer
Set allComments = ActiveDocument.Comments
If allComments.Count = 0 Then
MsgBox "本文档没有批注。"
Else
Selection.GoTo What:=wdGoToBookmark, Name:="批注插入点"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeParagraph
For i = 1 To ActiveDocument.Comments.Count
Selection.TypeText (i & "、" & ActiveDocument.Comments(i).Author
& "于 " & ActiveDocument.Comments(i).Date & "，针对：")
Selection.TypeParagraph
Selection.TypeParagraph
ActiveDocument.Comments(i).Scope.Copy
Selection.Paste
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText ("作了批注：")
Selection.TypeParagraph
Selection.TypeParagraph
ActiveDocument.Comments(i).Range.Copy
Selection.Paste
Selection.TypeParagraph
Selection.TypeParagraph
Next
Selection.GoTo What:=wdGoToBookmark, Name:="批注插入点"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
End Sub
【 在 unchained (琉璃光) 的大作中提到: 】
: 谢谢！现在可以运行，成功了
: 但是在自己的文档里怎么使用？直接复制过去，点击按钮没有反应
: 如果多次点击按钮，批注就被清空了
: ...................
--
FROM 58.23.247.*
附件(29.9KB) 提取批注.docm - 1、点击WORD 文件菜单下的“选项”
2、在“WORD选项”对话框里左边点击“自定义功能区”
3、在右边“自定义功能区(B)”里，将“开发工具”勾上。
4、关闭“WORD选项”对话框，回到WORD编辑主窗口，可以看到菜单工具栏多了一个“开
发工具”
5、点击“开发工具”，点击“控件”组里的“设计模式”，“旧式工具”，选择“命令
按钮”，就可以在WORD文档里插入一个命令按钮了
6、右键点击刚才插入的命令按钮，选择“查看代码”，就可以把下面的代码贴到该按钮
的Click函数中了。
【 在 callmebbser (BBSer) 的大作中提到: 】
: Private Sub CommandButton1_Click()
: Dim i As Integer
: Set allComments = ActiveDocument.Comments
: ...................
--
FROM 58.23.247.*