Статьи из блога
Преобразование надстрочных символов в сноски
Наталья работает с отсканированными книгами, в которых вместо обычных сносок стоят верхние надстрочные индексы (1, 2, 3 и т.д.).
Наталье необходимо преобразовать все эти псевдосноски в полноценные сноски.
Следующий макрос решает эту задачу:
Sub Superscript2Footnote()
'замена надстрочных символов на сноски
'помощь Steven M.
'http://groups.google.com/group/microsoft.public.word.vba.general/
Dim oRange As Range
Dim fn As Footnote
Set oRange = ActiveDocument.Range
With oRange.Find
.ClearFormatting
.Forward = True
.Format = True
.Wrap = wdFindStop
.Font.Superscript = True
.Execute
While .Found
oRange.Delete
Set fn = ActiveDocument.Footnotes.Add(oRange)
oRange.Move wdWord, 1
.Execute
Wend
End With
End Sub
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | надстрочные символы | поиск и замена | сноски
Просмотров: 16560
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | надстрочные символы | поиск и замена | сноски
Просмотров: 16560
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 4
Благодарю за очень нужный сайт. Часто обращаюсь сюда за помощью.
Вопросы по Sub Superscript2Footnote()(преобразование надстрочных символов):
1. нумерация получается буквами, а не цифрами
2. текст сносок удален полностью, остались только знаки сносок
По первому требованию - причина в том, что у вас настроен формат сносок как буквы. Измените это (меню Вставка - Ссылки - Сноска - выберите формат как числа и нажмите кнопку Применить).
По второму требованию - этот макрос и не претендует на то, чтобы самостоятельно вставлять текст в сноски. Это делает пользователь. Предполагается, что текст сносок есть где-то в тексте, а не в области сносок, так как иначе у вас должны быть именно сноски, а не надстрочные символы. Проверьте свои сноски.
Здравствуйте!
Мне нужно либо удалить разделительную черту из обычной сноски, либо сделать эту черту на ширину печатной полосы? Подскажите, пожалуйста, как можно это сделать.
Пробовал даже залезть в сценарии, но я не знаю, какой тег отвечает за разделительную черту. Возможно, сценарии - это неправильный путь.
С уважением, Денис.
Ответ на сообщение: 2009-07-24 в 11:37:40 | Денис (анонимно)
Ищите в справке Word текст «Разделитель сноски».
Для перехода к редактированию разделителя сноски можно использовать макрос: