| |
夏虫 さん、こんにちは。
>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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
