Initial 属性

返回或设置与指定备注相关联的用户的姓名缩写。String 类型，可读写。

expression   必需。该表达式返回一个 Comment 对象。

示例

本示例显示选定部分的第一条备注的用户姓名缩写。

If Selection.Comments.Count >= 1 Then
    MsgBox "Comment made by " & Selection.Comments(1).Initial
End If

本示例检查文档第一节中每条备注的作者姓名缩写。如果作者姓名缩写为“MSOffice”，本示例则将其改为“KAE”。

Dim rngTemp As Range
Dim comLoop As Comment

Set rngTemp = ActiveDocument.Sections(1).Range
For Each comLoop In rngTemp.Comments
    If comLoop.Initial = "MSOffice" Then comLoop.Initial = "KAE"
Next comLoop