共有ドキュメントの特定バージョンに関連付けられているコメントを取得します。 値の取得のみ可能です。
構文
式。コメント
式DocumentLibraryVersion オブジェクトを表す変数。
注釈
チェック アウトしたドキュメントをチェック インするときは、ドキュメント ライブラリのユーザー インターフェイスを通じて、バージョン コメントを入力できます。
例
次の使用例は、共有ドキュメントの各バージョンについて、コメントなどのプロパティの一覧を表示します。
Dim dlvVersions As Office.DocumentLibraryVersions
Dim dlvVersion As Office.DocumentLibraryVersion
Dim strVersionInfo As String
Set dlvVersions = ActiveDocument.DocumentLibraryVersions
If dlvVersions.IsVersioningEnabled Then
strVersionInfo = "This document has " & _
dlvVersions.Count & " versions: " & vbCrLf
For Each dlvVersion In dlvVersions
strVersionInfo = strVersionInfo & _
" - Version #: " & dlvVersion.Index & vbCrLf & _
" - Modified by: " & dlvVersion.ModifiedBy & vbCrLf & _
" - Modified on: " & dlvVersion.Modified & vbCrLf & _
" - Comments: " & dlvVersion.Comments & vbCrLf
Next
Else
strVersionInfo = "Versioning not enabled for this document."
End If
MsgBox strVersionInfo, vbInformation + vbOKOnly, "Version Information"
Set dlvVersion = Nothing
Set dlvVersions = Nothing
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。