VBA Word

Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru

VBA Word 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г.

Инфо

Сайт создан: 20 июня 2015 г.

Главная страница