Отправляет email-рассылки с помощью сервиса Sendsay

VBA tips - подсказки и решения на VBA

Как выровнять числа в столбце таблицы по десятичному разделителю? Десятичные дроби в столбце будут аккуратнее выглядеть, если их выравнивать не по центру или по краю, а по десятичному разделителю. Такой формат выравнивания принят в финансовых и банковских документах для упрощения восприятия, да и смотрится хорошо. В Word это делается с помощью установки позиции табуляции соответствующего вида. Однако, если таблица уже набрана, и в ней не один десяток строк, то устанавливать табуляцию вручную для каждой яче...

2010-06-15 11:23:45 + Комментировать

Вставка в документ количества рисунков, таблиц, формул и других именованных объектов

Подсчёт количества гласных в строке Удаление дефисов из слов с ошибками...

2009-12-14 15:12:55 1 комментарий

Печать цветных и чёрно-белых страниц на разные принтеры, обновление стилей во всех формулах MS Equation

Печать цветных и чёрно-белых страниц на разные принтеры Такая проблема довольно часто возникает при печати документов, содержащих как текст, так и цветные рисунки, диаграммы и прочие графические объекты. Часто в офисах за чёрно-белую печать отвечает один принтер, а за цветную - другой. Можно ли автоматизировать процесс печати так, чтобы вручную не выбирать диапазоны страниц для печати на чёрно-белый и на цветной принтеры? Отчасти мне удалось решить эту задачу таким макросом: 1 Sub SeparatePrint ) 2 Const P...

2009-11-25 12:06:42 1 комментарий

VBA tips - подсказки и решения на VBA

Word позволяет использовать для колонтитулы для оформления документов. При этом доступно различное содержимое для колонтитулов первой страницы раздела, четных и нечетных страниц. Но нет возможности задавать отдельное форматирование для последней страницы раздела. А иногда это бывает очень нужно. Как раз такая ситуация возникла у Владимира: По ГОСТ18675-79, если текст в разделе заканчивается на нечетной странице, то номер этой страницы должен иметь вид n/n+1, например 7/8, так как на следующей - четной стра...

2009-11-25 11:11:13 + Комментировать

VBA tips - подсказки и решения на VBA — Особые колонтитулы для нечетных страниц

Word позволяет использовать для колонтитулы для оформления документов. При этом доступно различное содержимое для колонтитулов первой страницы раздела, четных и нечетных страниц. Но нет возможности задавать отдельное форматирование для последней страницы раздела. А иногда это бывает очень нужно. Как раз такая ситуация возникла у Владимира: По ГОСТ18675-79, если текст в разделе заканчивается на нечетной странице, то номер этой страницы должен иметь вид n/n+1, например 7/8, так как на следующей - четной стра...

2009-11-05 10:12:04 + Комментировать

VBA tips - подсказки и решения на VBA

Нумерация формул в документе В бытность мою студентом мы нумеровали формулы вручную. Не стоит и говорить, сколько сил и энергии занимало это непочтенное занятие. Теперь я предлагаю Вашему вниманию два макроса: один из которых вставляет в документ объект MS Equation с автоматической нумерацией, а второй нумерует уже существующие в документе формулы. Итак, вставка формулы с автоматической нумерацией : 00001 'Вставка формулы с нумерацией 00002 Sub InsertEquation ) 00003 Dim oRng As Range 00004 Set oRng = Sele...

2009-07-22 12:38:52 + Комментировать

В этом выпуске опубликованы следующие советы:

Удаление всех колонтитулов из всех разделов документа, Удаление границ таблицы. Также в выпуске полезные ссылки. ...

2008-06-27 11:31:03 + Комментировать

Двусторонний отступ для абзаца, Удаление всех гиперссылок из активного листа 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...

2007-12-29 09:07:04 + Комментировать

Как изменить ориентацию страниц в 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...

2007-12-08 09:06:26 + Комментировать

Преобразование автофигур в рисунки, Как скрыть строку состояния в Word, Макрос отправки текущего документа по электронной почте, Макрос изменения цвета выделенного текста

VBAtips.ru - подсказки и решения на VBA Выпуск рассылки No4 от 2007-12-01 Преобразование автофигур в рисунки Автофигуры, являясь объектами Shape, могут свободно перемещаться по документу, в то время как объекты InlineShape (например, вставленный в документ рисунок из файла) прикрепляются к определенной области текста. Для преобразования автофигур в рисунки (конвертация объектов Shape в объекты InlineShape) можно использовать следующий макрос: Sub convertShapeToInlineShape) Dim iShape As Shape For Each iSha...

2007-12-01 10:07:12 + Комментировать
  • 1
  • 2