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

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

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

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

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

←   Декабрь 2007   →
 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
Автор
alex.viter

Статистика

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

Двусторонний отступ для абзаца, Удаление всех гиперссылок из активного листа Excel, Макрос изменения цвета заглавных букв в тексте


Двусторонний отступ для абзаца

Поместите курсор ввода на абзац текст и выполните следующий макрос: 
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 + CentimetersToPoints(1.5) ' Отступ слева на 1,5 см
   If lInd > CentimetersToPoints(5) Then
      lInd = 0
   End If
rInd = rInd + CentimetersToPoints(1.5) ' Отступ справа на 1,5 см
   If rInd > CentimetersToPoints(5) Then
      rInd = 0
   End If
Selection.ParagraphFormat.LeftIndent = lInd
Selection.ParagraphFormat.RightIndent = rInd
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify  ' Выравнивание абзаца по ширине
End Sub

Прокомментировать: http://vbatips.ru/2007/12/09/dvustoronnij-otstup-dlya-abzaca/

Удаление всех гиперссылок из активного листа Excel

Чтобы удалить (преобразовать в обычный текст) все гиперссылки, встречающиеся в активном рабочем листе Microsoft Excel, можно воспользоваться следующим макросом: 
Sub RemoveHyperLinksGLobally()
Dim i As Integer
For i = ActiveSheet.Hyperlinks.Count To 1 Step -1
   ActiveSheet.Hyperlinks(i).Delete
Next i
End Sub
Этот макрос преобразовывает в обычный текст, как я уже сказал, гиперссылки только в активном рабочем листе. Чтобы удалить все гиперссылки из всех листов данного документа Excel, следует воспользоваться другим макросом: 
Sub RemoveHyperLinksGLoballyFromAllWorksheets()
Dim i As Integer, wSheet As Worksheet
For Each wSheet In Worksheets
   For i = wSheet.Hyperlinks.Count To 1 Step -1
      wSheet.Hyperlinks(i).Delete
   Next i
Next wSheet
End Sub
Прокомментировать: http://vbatips.ru/2007/12/15/udalenie-vsex-giperssylok-iz-aktivnogo-lista-excel/

Макрос изменения цвета заглавных букв в тексте

На форуме ru-board.com интересовались, как написать макрос, который бы в выделенной области менял цвет всех заглавных букв текста на красный, а строчных на черный.

Вот небольшой макрос, который решает этот вопрос: 
Sub colorCase3()
'Применение к первым заглавным буквам красного цвета, а к строчным - черного цвета
Dim fChar As Range
Dim selText As Range
Set selText = Selection.Range
If Selection.Type = wdSelectionIP Then
   MsgBox "Не выделен текст"
Else
   For Each fChar In selText.Words
      fChar.Font.Color = wdColorBlack
         If fChar.Characters.First Like "[A-ЯA-Z]" Then
            fChar.Characters.First.Font.Color = wdColorRed
         End If
   Next fChar
End If
End Sub
Выделите текст и примените этот макрос.

Источник: WordExpert.ru

Прокомментировать: http://vbatips.ru/2007/12/24/makros-izmeneniya-cveta-zaglavnyx-bukv-v-tekste/

В избранное