返回介绍

Comment 属性

发布于 2019-09-29 10:06:24 字数 605 浏览 875 评论 0 收藏 0

返回文档指定版本的批注。String 类型,只读。

示例

本示例显示活动文档第一个版本的批注文字。

If ActiveDocument.Versions.Count >= 1 Then
 MsgBox Prompt:=ActiveDocument.Versions(1).Comment, _
 Title:="First Version Comment"
End If

本示例保存文档的某一版本及用户的批注,然后显示该批注。

Dim verTemp As Versions
Dim strComment As String
Dim lngCount As Long

Set verTemp = ActiveDocument.Versions

strComment = InputBox("Type a comment")
verTemp.Save Comment:=strComment
lngCount = verTemp.Count
MsgBox Prompt:=verTemp(lngCount).Comment, _
 Title:=verTemp(lngCount).SavedBy

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文