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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Свой Бизнес" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июнь 2008   →
 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
Автор
alex.viter

Статистика

522 подписчиков
0 за неделю
←   Все выпуски   →

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


VBA tips - подсказки и решения на VBA
Выпуск рассылки №7 от 2008-06-27 11:31

В этом выпуске:

  1. Советы и подсказки
  2. Полезные ссылки
  3. Информация об авторских правах

Советы и подсказки

Если у вас есть полезные макросы для редактора Microsoft Word или для Microsoft Excel, а равно для Microsoft PowerPoint, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки (с указанием вашего авторства).

Удаление всех колонтитулов из всех разделов документа

Sub delete_All_HF()
'Удаление всех колонтитулов из всех разделов документа
Dim Sec As Section
Dim hf As HeaderFooter
For Each Sec In ActiveDocument.Sections
    For Each hf In Sec.Headers
        hf.Range.Delete
    Next hf
    For Each hf In Sec.Footers
        hf.Range.Delete
    Next hf
Next Sec
End Sub
Прислать совет

Удаление границ таблицы

Sub tableNoBorders()
'Удаление границ у таблицы, в которой находится курсор ввода
Dim tCurrent As Table
Dim rngTable As Range
Set rngTable = Selection.Range
If Not rngTable.Information(wdWithInTable) Then
 MsgBox prompt:="Курсор находится вне таблицы"
Else
Application.ScreenUpdating = False  'Запрещаем обновление экрана во время работы макроса
Set tCurrent = Selection.Tables(1)
With tCurrent
   .Borders(wdBorderLeft).Linestyle="wdLineStyleNone"
   .Borders(wdBorderRight).Linestyle="wdLineStyleNone"
   .Borders(wdBorderTop).Linestyle="wdLineStyleNone"
   .Borders(wdBorderBottom).Linestyle="wdLineStyleNone"
   .Borders(wdBorderHorizontal).Linestyle="wdLineStyleNone"
   .Borders(wdBorderVertical).Linestyle="wdLineStyleNone"
   .Borders(wdBorderDiagonalDown).Linestyle="wdLineStyleNone"
   .Borders(wdBorderDiagonalUp).Linestyle="wdLineStyleNone"
   .Borders.Shadow = False
End With
Application.ScreenUpdating = True   'Разрешаем обновление экрана
End If
End Sub
Прислать совет

Полезные ссылки

Информация об авторских правах

Вся информация, представленная в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.

Авторские права на все материалы, опубликованные в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательным указанием автора материала.

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

В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.

В избранное