Word VBA教程:Initial属性

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

expression.Initial

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号