1 Тема от civil

  • civil
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.12.2009
  • Сообщений: 5

Тема: копирование примечаний

Добрый день,
подскажите, пожалуйста, есть ли возможность автоматически выделить все примечания и скопировать их или в тот же документ или в новый документ в Ворд 2007?

Пример:
Папа (примечание: отец) у Васи силен в математике (примечание: школьный предмет)

Хотелось бы получить:
Папа (примечание: отец)
Математике (примечание: школьный предмет).
То есть слова "у", "Васи", "силен" "в" из нового текста должны выпасть.

Понятно, что Ворд позволяет копировать слова с примечаниями по одному. Для этого нужно выделить это слово целиком (всю область примечания), нажать на копировать и в другом месте нажать вставить. Понятно, что можно удерживать "Ctrl" и мышкой выделять все такие области примечаний. Но когда примечаний тысячи, хочется оптимизировать процесс.
Заранее благодарю за ответ.

p.s.
В соответствии с Вашей просьбой прилагаю кусок из файла (для примера). Давайте я подробнее объясню что и зачем я делаю. Читаю текст на французском, вставляю примечания. Далее, копирую слова с примечаниями в отдельный файл, для того, чтобы их заучивать. Мой предыдущий вопрос в данной ветке обусловлен тем, что при перенесении файла в e-book, последний не видит примечаний - только текст (французские слова). В этой связи я озадачился тем, чтобы преобразовать примечания в обычный текст. Благодаря Вашему сайту и выложенному на нем  макросу, я преобразовал все примечания в сноски. Но так учить слова не удобно. А преобразовать сноски в обычный текст пока не получилось.
В любом случае спасибо за внимание к моим вопросам и поздравления с наступающим НГ!

Отредактировано civil (31.12.2009 13:25:27)

Post's attachments

Preface hugo.docx 21.71 Кб, 4 скачиваний с 2009-12-31 

You don't have the permssions to download the attachments of this post.

2 Ответ от admin

  • копирование примечаний
  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

Re: копирование примечаний

Вы можете приложить образец документа? Выберите изменение сообщения и добавьте ваш файл.

Сайтadmin

3 Ответ от civil

  • civil
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.12.2009
  • Сообщений: 5

Re: копирование примечаний

Результат (вручную) вот так выглядит, соответственно.

Post's attachments

Трудные_слова.doc 107.5 Кб, 5 скачиваний с 2009-12-31 

You don't have the permssions to download the attachments of this post.

4 Ответ от viter.alex

  • копирование примечаний
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: копирование примечаний

Воспользуйтесь таким макросом. Он скопирует все слова с примечаниями в новый документ. Текст примечания будет вставлен в скобках, после текста, к которому он относится. Оригинальное примечание к тексту будет сохранено.

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

Обожаю французский язык! J'adore le Français!

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

5 Ответ от civil

  • civil
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.12.2009
  • Сообщений: 5

Re: копирование примечаний

C'est charmant. Vouz etez genie!

6 Ответ от Mercury

  • Mercury
  • сержант
  • Неактивен
  • Зарегистрирован: 16.10.2012
  • Сообщений: 10

Re: копирование примечаний

Здравствуйте  smile , а как можно скопированные примечания вынести в заголовок?

7 Ответ от rif237

  • rif237
  • рядовой
  • Неактивен
  • Зарегистрирован: 08.09.2017
  • Сообщений: 3

Re: копирование примечаний

Добрый день! при запуске кода выдается ошибка Run-time error '5149' на строку .Range.InsertAfter oComm.Scope.Text
Что можно сделать??

8 Ответ от rif237

  • rif237
  • рядовой
  • Неактивен
  • Зарегистрирован: 08.09.2017
  • Сообщений: 3

Re: копирование примечаний

rif237 пишет:

Добрый день! при запуске кода выдается ошибка Run-time error '5149' на строку .Range.InsertAfter oComm.Scope.Text
Что можно сделать??

ОШИБКА
ошибка Run-time error '4605' на строку

9 Ответ от rif237

  • rif237
  • рядовой
  • Неактивен
  • Зарегистрирован: 08.09.2017
  • Сообщений: 3

Re: копирование примечаний

rif237 пишет:
rif237 пишет:

Добрый день! при запуске кода выдается ошибка Run-time error '5149' на строку .Range.InsertAfter oComm.Scope.Text
Что можно сделать??

ОШИБКА
ошибка Run-time error '4605' на строку

Спасибо разобрался просто был сбой у ворда . перезагрузил открыл заработало. Спасибо за код