Алгоритм настройки и выполнения макроса Sub CopyCommentsToNewDoc() Dim oComm As Comment Dim oNewDoc As Document Dim oOldDoc As Document Set oOldDoc = ActiveDocument If ActiveDocument.Comments.Count > 0 Then Set oNewDoc = Documents.Add Else Exit Sub For Each oComm In oOldDoc.Comments With oNewDoc .Range.InsertAfter oComm.Scope.Text .Comments.Add .Range(.Paragraphs.Last.Range.Start, .Paragraphs.Last.Range.End - 1), oComm.Range.Text .Comments.Item(.Comments.Count)...

Алгоритм настройки и выполнения макроса 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...