谁能帮助一下，这个批量插入批注有啥办法解法么

2018YT

网上下了点东西，需要在很多处的四行这样插入批注，有啥办法可以实现快捷操作么，谢谢各位大神，可以一下子，就实现四行插入批注么，还是说只能通过快捷键一行一行一行的插入

daibao88

需要找出需要插入批注的规律，vba可以实现批量插入

2018YT

如果一定要通过VBA才能实现，有谁能帮忙编写一个么，我的东西就是一点练习题象图片这样的

2018YT

DDDDDDDDDDDDDDD

daibao88

if  ............then  ActiveDocument.Comments.Add ...........

2018YT

daibao88 发表于 2018-1-29 21:31
if  ............then  ActiveDocument.Comments.Add ...........

大神 这要怎么用呀  alt+f11 我输入这代码好象不行呀  那个。。。是要用什么代么，能否给个可能运行完整的，因为我对VBA真的是一点也不懂，谢谢

2018YT

用录制宏，得到下面这几行代码，但报5935的错，不知道是不是第四行有问题，有会用VBA的能帮忙调试一下么，谢谢

Sub 插批注()
'
' 插批注 宏
'
'
    Selection.Comments.Add Range:=Selection.Range
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.Comments.Add Range:=Selection.Range
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.Comments.Add Range:=Selection.Range
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.Comments.Add Range:=Selection.Range
End Sub

2018YT

Sub insert_Comments()
If Selection.Paragraphs(1).SelectNumber Then ActiveDocument.Add Comments
If Selection.Paragraphs(2).SelectNumber Then ActiveDocument.Add Comments
If Selection.Paragraphs(3).SelectNumber Then ActiveDocument.Add Comments
If Selection.Paragraphs(4).SelectNumber Then ActiveDocument.Add Comments
End Sub

各位大哥 这个说缺少函数和变量 要那里调整一下么