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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

Код:
 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Формат примечания 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


03:59.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru