Здравствуйте! Нашел на форуме макрос экспорта всех исправлений и примечаний из Word в таблицу Excel. Подскажите, пожалуйста, как добавить еще один столбец, который будет выводить слово к которому создано примечание?
Код |
---|
Sub extractRevisions()
Dim revisionObj As Revision, commentObj As Comment, xlApp As Object, xlWs As Object
ThisDocument.Activate
ReDim transfArr(0 To ActiveDocument.revisions.Count + ActiveDocument.Comments.Count)
transfArr(0) = Array("Автор", "Создатель (?)", "Время изменения", "Тип", "Страница", "Текст", "Примечание/Правка")
For i = 1 To ActiveDocument.revisions.Count
Set revisionObj = ActiveDocument.revisions.Item(i)
transfArr(i) = _
Array( _
revisionObj.Author, _
revisionObj.Creator, _
revisionObj.Date, _
revisionObj.Type, _
revisionObj.Range.Information(wdActiveEndPageNumber), _
revisionObj.Range.Text, _
"Правка" _
)
Next i
For i = 1 To ActiveDocument.Comments.Count
Set commentObj = ActiveDocument.Comments.Item(i)
transfArr(ActiveDocument.revisions.Count + i) = _
Array( _
commentObj.Author, _
commentObj.Creator, _
commentObj.Date, "", _
commentObj.Scope.Information(wdActiveEndPageNumber), _
commentObj.Range.Text, _
"Примечание" _
)
Next i
|