Comments(lngN).Range.Text '批注者 .Cells(4).Range.Text = objDoc.Comments(lngN).Author '批注的日期 .Cells(5).Range.Text = Format(objDoc.Comments(lngN).Date, "yyyy-mm-d") End With Next lngN Application.ScreenUpdating = True Application.ScreenRefresh objNewDoc.Activate MsgBox "已发现" ...
For Each word In spellCheck.Words If Not Application.CheckSpelling(word.Text) Then '如果单词拼写错误,则添加批注 With word.Comments.Add(Range:=word, Text:="请检查拼写") '设置批注格式 .Range.Font.Size = 12 .Range.Font.Color = wdColorRed ...
Subshishi()Set Excel对象=CreateObject("Excel.Application")Excel对象.Visible=True Set 工作簿=Excel对象.Workbooks.Add Set 工作表=工作簿.Sheets(1)j=2'Excel工作表的开始行 i=1'次数默认为1Set 文档=ActiveDocument For Each 批注 In 文档.Comments'遍历文档中的批注(批注与回复批注都是批注) Set 批注范围=...
(1, text, ")") ' 检查是否找到了左右括号 If startIdx > 0 And endIdx > 0 Then ' 创建注释并将括号内的文本移动到注释中 Set comment = ActiveDocument.Comments.Add(rng) comment.Range.Text = Mid(text, startIdx + 1, endIdx - startIdx - 1) ' 删除原来的括号及其内部的文本 rng.D...
方法一、New Word.Application Dim Wordapp As Word.Application Set Wordapp = NewWord.Application Wordapp.Visible = True '可见 'Wordapp.ScreenUpdating =False '屏幕刷新 Dim WordD As Word.Document '定义word类 Set WordD = Wordapp.Documents.Add '新建文档 ...
Dim cmt As Word.Comment Dim doc As Word.Document For Each cmt In ActiveDocument.Comments s = s & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr Next Set doc = Documents.Add doc.Range.Text = s End Sub 3: 单击“运行”按钮,应用 VBA 代码。
ActiveDocument.Comments.Count ‘ 返回当前文档中的评论数 ActiveDocument.Endnotes.Count '返回当前文档中的尾注数 ActiveDocument.Fields.Count '返回当前文档中的域数目 ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数 ActiveDocument.HasPassword '当前文档是否有密码保护 ActiveDocument.Hyperlinks.Count '返回当前...
Selection.Comments.AddRange:=Selection.Range Selection.TypeTextText:="标记颜色" cha.Select'这一步很关键,因为执行完Selection.Comments.AddRange:=Selection.Range和Selection.TypeTextText:="标记颜色"这两句之后,第一个字符的选中状态已经取消,光标此时位于第一个字符之后第二个字符之前,处于没有字符被选中的状态...
Sub printComments() With ActiveSheet.PageSetup .printComments = xlPrintSheetEnd End With End Sub 使用此宏可以激活设置以在页面末尾打印单元格注释。假设您有10页要打印,使用此代码后,您将获得第11页最后一页上的所有评论。 31. 打印窄边距 Sub printNarrowMargin() With ActiveSheet.PageSetup .LeftMargin...
方法一、New Word.Application Dim Wordapp As Word.Application Set Wordapp = NewWord.Application Wordapp.Vis 2、ible = True '可见 'Wordapp.ScreenUpdating =False '屏幕刷新 Dim WordD As Word.Document '定义word类Set 3、WordD = Wordapp.Documents.Add '新建文档Set WordD = Wordapp.Documents....