Экспорт примечаний

@MiMoreto · Регистрация: 25.12.2015

Author24 — интернет-сервис помощи студентам

Добрый день.
Необходимо из документа word экспортировать все примечания вместе с:
- абзацем текста, в котором есть примечание
- номером страницы
- автором примечания
- самим примечанием

Нашла макрос:

Visual Basic

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).Author = oComm.Author
 .Comments.Item(.Comments.Count).Initial = oComm.Initial
 .Comments.Item(.Comments.Count).Scope.LanguageID = wdFrench
 .Range.InsertAfter ChrW(160) & "(примечание: " & oComm.Range.Text & ")"
 .Range.InsertParagraphAfter
 End With
 Next
 
End Sub

Но он не все нужные данные выгружает выгружает..

	27.11.2019, 11:32