Не могу собрать два простых макроса

[Макс20777]

Люди, помогите, пожалуйста, чайнику...
У меня есть два макроса: первый
[CODE]

Sub bb()
'исключаемые слова - через пробел, в начале и в конце пробел!
Const EXCL = " здравствуйте нужен следующий макрос что бы из документа случайным "
 
Dim s$(0 To 1), i&, n&
n = ActiveDocument.Words.Count - 1
For i = 1 To 1
    Do
        s(i) = Trim(ActiveDocument.Words(1 + Rnd * n))
    Loop Until Len(s(i)) > 1 And InStr(1, EXCL, " " & s(i) & " ", vbTextCompare) = 0
Next
Selection.TypeText Join(s, Chr(9))
End Sub

вставляет в указанное курсором место случайное слово из всего текста документа - работает замечательно.

Второй макрос:

Sub скрытие()
'
' скрытие Макрос
'
'
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 1
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = -603914241
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = -5
        .Scaling = 1
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
End Sub

Форматирует выделенное слово под заданные параметры - тоже работает замечательно.
А вот ВМЕСТЕ они никак не хотят работать...
Как мне "собрать" эти два макроса в один так, чтобы слово, которое нашел первый макрос сразу же (автоматически) форматировалось так, как указано во втором макросе..
Пытался играться с операторами Select, Select...Case, пробовал соединить третьим макросом через операторы Call - ничего не вышло.
Как уже указывал, я еще полный чайник - помогите, пожалуйста!!!

[Aleksandr H.]

Так пробовали?

Sub bb()
    'исключаемые слова - через пробел, в начале и в конце пробел!
    Const EXCL = " здравствуйте нужен следующий макрос что бы из документа случайным "
 
    Dim i&, n&
    Dim str As String
    n = ActiveDocument.Words.Count - 1
    Do
        str = Trim(ActiveDocument.Words(1 + Rnd * n))
    Loop Until Len(str) > 1 And InStr(1, EXCL, " " & str & " ", vbTextCompare) = 0
    
    With Selection
        .TypeText str
        With .Font
            .Name = "Times New Roman"
            .Size = 7
            .Bold = False
            .Italic = False
            .Underline = wdUnderlineNone
            .UnderlineColor = wdColorAutomatic
            .StrikeThrough = False
            .DoubleStrikeThrough = False
            .Outline = False
            .Emboss = False
            .Shadow = False
            .Hidden = False
            .SmallCaps = False
            .AllCaps = False
            .Color = -603914241
            .Engrave = False
            .Superscript = False
            .Subscript = False
            .Spacing = -5
            .Scaling = 1
            .Position = 0
            .Kerning = 0
            .Animation = wdAnimationNone
            .Ligatures = wdLigaturesNone
            .NumberSpacing = wdNumberSpacingDefault
            .NumberForm = wdNumberFormDefault
            .StylisticSet = wdStylisticSetDefault
            .ContextualAlternates = 0
        End With
    End With
End Sub

[Макс20777]

Попробовал - слово вставляется, но не форматируется... Я предполагал, что это связано с тем, что необходимо какой-либо функцией "выделить" его, но так и не нашел КАК это сделать...

[Aleksandr H.]

Странно, этот код у меня вставлял слово и менял его параметры. как вариант попробуйте .typetext строку вставить между end with

[Макс20777]

Не выходит... В любом случае спасибо за помощь!

[Aleksandr H.]

В таком случае, удачи в поиску решения.

Sub bb()
    'исключаемые слова - через пробел, в начале и в конце пробел!
    Const EXCL = " здравствуйте нужен следующий макрос что бы из документа случайным "
 
    Dim i&, n&
    Dim str As String
    n = ActiveDocument.Words.Count - 1
    Do
        str = Trim(ActiveDocument.Words(1 + Rnd * n))
    Loop Until Len(str) > 1 And InStr(1, EXCL, " " & str & " ", vbTextCompare) = 0
    
    With Selection
        
        With .Font
            .Name = "Times New Roman"
            .Size = 1
            .Bold = False
            .Italic = False
            .Underline = wdUnderlineNone
            .UnderlineColor = wdColorAutomatic
            .StrikeThrough = False
            .DoubleStrikeThrough = False
            .Outline = False
            .Emboss = False
            .Shadow = False
            .Hidden = False
            .SmallCaps = False
            .AllCaps = False
            .Color = -603914241
            .Engrave = False
            .Superscript = False
            .Subscript = False
            .Spacing = -5
            .Scaling = 1
            .Position = 0
            .Kerning = 0
            .Animation = wdAnimationNone
            .Ligatures = wdLigaturesNone
            .NumberSpacing = wdNumberSpacingDefault
            .NumberForm = wdNumberFormDefault
            .StylisticSet = wdStylisticSetDefault
            .ContextualAlternates = 0
        End With
        .TypeText str
    End With
End Sub

[Макс20777]

ОГРОМНОЕ спасибо - работает!!! Говорил же - я еще чайник