Алгоритм настройки и выполнения макроса 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 ExtractAndSaveEmbeddedFiles() Dim objEmbeddedShape As InlineShape Dim strShapeType As String, strEmbeddedDocName As String Dim objEmbeddedDoc As Object With ActiveDocument For Each objEmbeddedShape In ...