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
Next
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
Next
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti