|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\需要加批注.docx") '根据实际需求修改路径
Arr = [a1].CurrentRegion
For Each cmt In wdDoc.Comments
cmt.Delete
Next cmt
For i = 2 To UBound(Arr)
AddComment wdDoc, Arr(i, 2), Arr(i, 3)
Next i
wdDoc.Close SaveChanges:=True
wdApp.Quit
End Sub
Sub AddComment(doc, keyword, commentText)
Set rng = doc.Content
With rng.Find
.Text = keyword
.MatchCase = False
.MatchWholeWord = True
.Forward = True
Do While .Execute
Set foundRange = doc.Range(rng.Start, rng.End)
foundRange.Comments.Add foundRange, commentText
Loop
End With
End Sub
|
评分
-
1
查看全部评分
-
|