Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2019, 13:41   #1
screamizh
Новичок
Джуниор
 
Регистрация: 13.05.2019
Сообщений: 1
По умолчанию Как экспортировать страницу примечания?

Здравствуйте! У меня есть следующий макрос для экспорта примеаний со словами в новый документ.

Код:
 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
Подскажите, пожалуйста, как добавить еще номер страницы? Чтобы в экспорте выглядело следующим образом : (номер страницы)-(слово)-(примечание к нему)
screamizh вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Формат примечания kletochka Microsoft Office Excel 5 06.07.2018 16:47
Экспортировать из БД sodd Помощь студентам 1 28.09.2011 22:19
формат примечания 0mega Microsoft Office Excel 2 01.08.2010 00:22
Как экспортировать данные Малявка Microsoft Office Excel 5 20.10.2007 11:53
Примечания, их печать А. Долматов Microsoft Office Excel 1 16.03.2007 14:12