Kód: Vybrat vše
Dim s As Range
For Each s In ActiveDocument.Sentences 'každá věta
pocet_slov = s.Words.Count 'zjistím počet slov ve větě
    For I = 1 To pocet_slov
        a = s.Words(I).Font.Color
        'operace
    Next I
NextKód: Vybrat vše
Dim s As Range
For Each s In ActiveDocument.Sentences 'každá věta
pocet_slov = s.Words.Count 'zjistím počet slov ve větě
    For I = 1 To pocet_slov
        a = s.Words(I).Font.Color
        'operace
    Next I
NextUživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 14 hostů