VBA - огромное направление в программировании, задачей которого является расширение возможностей MS Office. Microsoft ежегодно проводит конкурс подобных дополнений (макросов), так что на этом ещё можно заработать. Мы рассмотрим дополнение к редактору Word.
Разноцветный шрифт
Создайте новый проект ActiveX DLL и добавьте этот код в класс.
Const MaxColor As Long = 15000804
Public Sub NewColorFont()
Dim H As String, C As Long, L As Long, F As Long
Dim W As Word.Application
Set W = Word.Application
With W.Selection
.WholeStory
H = .Text
.TypeText vbNullString
L = Len(H)
Randomize Timer
For F = 1 To L
C = Int(Rnd * MaxColor)
.Font.Color = C
.TypeText Mid$(H, F, 1)
Next
End With
Set W = Nothing
End Sub
Нажмите в меню Project \ References..., выберите строку Microsoft Word. Теперь нажмите меню Project \ Properties. В строку Project Name введите имя библиотеки RndColor, а в строку Project Description её описание Разноцветный шрифт в редакторе Word. Откомпилируйте проект в папку C:\Windows\System под именем RndColor.dll.
Откройте редактор Word, нажмите Alt+F11. Появится редактор Visual Basic, дважда нажмите мышью на строку ThisDocument в окне Project, введите код.
Public Sub ЦветнойШрифт()
Dim W As RndColor.t W = New RndColor.NewColorFont
Set W = Nothing
End Sub
Затем меню Tool \ References..., кнопкой Browse... найдите файл RndColor.dll завершите операцию кнопкой OK. Снова меню File \ Save и закройте редактор.
Теперь, чтобы текст стал цветным нажмите Alt+F8.
26 апреля 2004г.
Заказ программ!
Вы можете заказать у меня написание необходимой вам программы. Чем популярнее будет она, тем меньше стоит работа.
