Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

311 / 886

←次へ　｜　前へ→


	【591】Re:変更履歴のページ番号

りる - 08/9/13(土) 17:49 -


	引用なし

	パスワード

夏虫さん、こんにちは。

>Revisionsプロパティを使用して、内容は抽出できましたが、
>履歴に紐付くページ番号の抽出方法が分かりません。
紐付くページ番号という意味がわかりませんが、履歴に関連するのがどこのページが知りたいという意味でしょうか？

範囲に関する情報（ページ番号とか）を取得するにはInformationプロパティを使用します。

Sub Macro1()
　 Dim obj As Revision, msg As String
　 For Each obj In ActiveDocument.Revisions
　　　With obj
　　　　 'ページとタイプと内容を表示
　　　　 msg = "TYPE: "
　　　　 'タイプを分岐 wdRevisionInsert => Insertと表示しています。
　　　　 Select Case .Type
　　　　　　Case 1: msg = msg & "Insert"
　　　　　　Case 2: msg = msg & "Delete"
　　　　　　Case 3: msg = msg & "Property"
　　　　　　Case 4: msg = msg & "ParagraphNumber"
　　　　　　Case 5: msg = msg & "DisplayField"
　　　　　　Case 6: msg = msg & "Reconcile"
　　　　　　Case 7: msg = msg & "Conflict"
　　　　　　Case 9: msg = msg & "Replace"
　　　　　　Case 10: msg = msg & "ParagraphProperty"
　　　　　　Case 24: msg = msg & "Marking"
　　　　　　Case Else: msg = msg & "???"
　　　　 End Select
　　　　 msg = msg & vbCrLf
　　　　 msg = msg & "TEXT:" & .Range.Text
　　　　 '
　　　　 MsgBox msg, vbInformation, "Page " & _
　　　　　　　　.Range.Information(wdActiveEndAdjustedPageNumber)
　　　End With
　 Next
End Sub

2,094 hits

▼

【583】変更履歴のページ番号 夏虫 08/7/3(木) 20:45