Статьи из блога

Статьи из блога

Преобразование примечаний (комментариев) в сноски

Сергей интересуется:

Я подготовил большой текст, в котором много примечаний (annotations). Теперь их всех нужно превратить в сноски. Есть ли возможность это сделать наименее трудоемким способом (Word 97, 2002)?

Есть возможность преобразовать все примечания в тексте в сноски. Вот макрос, который решает эту задачу.

Sub Comments2Footnotes()
'преобразование примечаний в сноски
'помощь Steven M.
Dim actDoc As Document
Dim oRange As Range
Dim comm As String
Dim fn As Footnote
Dim i As Long
Set actDoc = ActiveDocument
For i = actDoc.Comments.Count To 1 Step -1
   comm = actDoc.Comments(i).Range.Text
   Set oRange = actDoc.Comments(i).Scope
   oRange.Select
      With Selection
         If Right(.Range, 1) = Chr(32) Then
            .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend  'удаляем пробелы в конце дипапзона примечания, если они есть
            Set oRange = .Range
         End If
      End With
   oRange.Collapse wdCollapseEnd
   actDoc.Comments(i).Delete
   Set fn = actDoc.Footnotes.Add(oRange)
   fn.Range.Text = comm
Next i
Selection.Collapse wdCollapseStart
End Sub
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 1

  1. сергей
    03.09.2008 в 20:14 | #1

    Ну, Антон, совсем я поражен - все работает, да так быстро! Тяжелая задача, которая стояла перед мной и редакторами, решена блестяще.

    Уважаемый Антон, не знаю как Вас благодарить...

    Сергей

Оставьте комментарий!

(обязательно)

^ Наверх