[aazelinski]

Мой пост тоже по поводу макросов. Только для ворда.

В старых офисах (до 2003) без проблем выставлял на панельки пиктограммы макросов. В 2007 никак не получается! Они сделали это невозможным (типа как использование графики в QBаsicе на висте и 7-й винде) или это всё же можно (безумно сложно) сделать?

Ещё просьба, знакомая попросила написать несколько маленьких забавных зрелищных макросов для демонстрации ученикам. Типа таких:

'Удаляет текст на красном фоне
Sub delred()
With ActiveDocument.Content.Find
.Highlight = True
.Format = True
Do While .Execute = True
If .Parent.HighlightColorIndex = wdRed Then
.Parent.Delete
End If
Loop
End With
End Sub

Sub перевертыш()
Dim strStroka As String
Dim strPer As String
strStroka = Selection.Text
strPer = StrReverse(strStroka)
Selection.Text = Replace(strStroka, strStroka, strPer)
End Sub

Sub delTextBetweenBrackets()
'заменяем текст в скобках на пробел в скобках
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\(*\)"
.Replacement.Text = "( )"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub

Может быть знаете откуда можно скачать подобные маленькие макросы? Был бы благодарен за ссылку на страничку! Или (и) может быть несколько коротких макросов в эту тему запостите?