← Декабрь 2024 | ||||||
1
|
||||||
---|---|---|---|---|---|---|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
31
|
В этой рассылке публикуются различные полезные макросы для редактора
Microsoft Word или для Microsoft Excel, а равно для Microsoft
PowerPoint.
Статистика
0 за неделю
VBA tips - подсказки и решения на VBA
Как выровнять числа в столбце таблицы по десятичному разделителю? Десятичные дроби в столбце будут аккуратнее выглядеть, если их выравнивать не по центру или по краю, а по десятичному разделителю. Такой формат выравнивания принят в финансовых и банковских документах для упрощения восприятия, да и смотрится хорошо. В Word это делается с помощью установки позиции табуляции соответствующего вида. Однако, если таблица уже набрана, и в ней не один десяток строк, то устанавливать табуляцию вручную для каждой яче...
Вставка в документ количества рисунков, таблиц, формул и других именованных объектов
Подсчёт количества гласных в строке Удаление дефисов из слов с ошибками...
Печать цветных и чёрно-белых страниц на разные принтеры, обновление стилей во всех формулах MS Equation
Печать цветных и чёрно-белых страниц на разные принтеры Такая проблема довольно часто возникает при печати документов, содержащих как текст, так и цветные рисунки, диаграммы и прочие графические объекты. Часто в офисах за чёрно-белую печать отвечает один принтер, а за цветную - другой. Можно ли автоматизировать процесс печати так, чтобы вручную не выбирать диапазоны страниц для печати на чёрно-белый и на цветной принтеры? Отчасти мне удалось решить эту задачу таким макросом: 1 Sub SeparatePrint ) 2 Const P...
VBA tips - подсказки и решения на VBA
Word позволяет использовать для колонтитулы для оформления документов. При этом доступно различное содержимое для колонтитулов первой страницы раздела, четных и нечетных страниц. Но нет возможности задавать отдельное форматирование для последней страницы раздела. А иногда это бывает очень нужно. Как раз такая ситуация возникла у Владимира: По ГОСТ18675-79, если текст в разделе заканчивается на нечетной странице, то номер этой страницы должен иметь вид n/n+1, например 7/8, так как на следующей - четной стра...
VBA tips - подсказки и решения на VBA — Особые колонтитулы для нечетных страниц
Word позволяет использовать для колонтитулы для оформления документов. При этом доступно различное содержимое для колонтитулов первой страницы раздела, четных и нечетных страниц. Но нет возможности задавать отдельное форматирование для последней страницы раздела. А иногда это бывает очень нужно. Как раз такая ситуация возникла у Владимира: По ГОСТ18675-79, если текст в разделе заканчивается на нечетной странице, то номер этой страницы должен иметь вид n/n+1, например 7/8, так как на следующей - четной стра...
VBA tips - подсказки и решения на VBA
Нумерация формул в документе В бытность мою студентом мы нумеровали формулы вручную. Не стоит и говорить, сколько сил и энергии занимало это непочтенное занятие. Теперь я предлагаю Вашему вниманию два макроса: один из которых вставляет в документ объект MS Equation с автоматической нумерацией, а второй нумерует уже существующие в документе формулы. Итак, вставка формулы с автоматической нумерацией : 00001 'Вставка формулы с нумерацией 00002 Sub InsertEquation ) 00003 Dim oRng As Range 00004 Set oRng = Sele...
В этом выпуске опубликованы следующие советы:
Удаление всех колонтитулов из всех разделов документа, Удаление границ таблицы. Также в выпуске полезные ссылки. ...
Двусторонний отступ для абзаца, Удаление всех гиперссылок из активного листа Excel, Макрос изменения цвета заглавных букв в тексте
VBAtips.ru - подсказки и решения на VBA Выпуск рассылки No6 от 2007-12-29 Двусторонний отступ для абзаца Поместите курсор ввода на абзац текст и выполните следующий макрос: Sub doubleIndent) ' Основан на макросе Аллена Вайата (http://wordtips.vitalnews.com/Pages/T0947_Double_Indenting.html) ' Использованы отступы в сантиметрах и применено выравнивание абзаца по ширине Dim lInd As Integer Dim rInd As Integer lInd = Selection.ParagraphFormat.LeftIndent rInd = Selection.ParagraphFormat.RightIndent lInd = lInd...
Как изменить ориентацию страниц в Word, Видоизменение шрифта: малые прописные буквы
VBAtips.ru - подсказки и решения на VBA Выпуск рассылки No5 от 2007-12-08 Как изменить ориентацию страниц в Word Макрос, который позволяет изменить ориентацию для выделенного текста (с книжной на альбомную: Sub orient) Dim myRange As Range Set myRange = ActiveDocument.Range(Start=Selection.End, End=Selection.End) myRange.InsertBreak Type=wdSectionBreakNextPage Set myRange = Nothing Set myRange = ActiveDocument.Range(Start=Selection.Start, End=Selection.Start) myRange.InsertBreak Type=wdSectionBreakNextPage...
Преобразование автофигур в рисунки, Как скрыть строку состояния в Word, Макрос отправки текущего документа по электронной почте, Макрос изменения цвета выделенного текста
VBAtips.ru - подсказки и решения на VBA Выпуск рассылки No4 от 2007-12-01 Преобразование автофигур в рисунки Автофигуры, являясь объектами Shape, могут свободно перемещаться по документу, в то время как объекты InlineShape (например, вставленный в документ рисунок из файла) прикрепляются к определенной области текста. Для преобразования автофигур в рисунки (конвертация объектов Shape в объекты InlineShape) можно использовать следующий макрос: Sub convertShapeToInlineShape) Dim iShape As Shape For Each iSha...
- 1
- 2