Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Ответ
 
Опции темы
Старый 13.05.2019, 14: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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Формат примечания kletochka Microsoft Office Excel 5 06.07.2018 17: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 15:12