Ten kod trzeba wpisac do modułu i uruchomić w oknie kodu, zajrzyj go GADU, jak chcesz coś zapytać

Z całym szacunkiem ale ni cholere z tego nie rozumiem :cry: :cry: :cry:

Nie mogę się dzisiaj absolutnie zalogować, procedura pogrubiająca wszystkie duźe litery w tekscie (Word)

Sub UstawDuzeLiteryPogrubione()
Dim myRange As Range
Dim oChar As Variant
Dim aWord As Variant
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
For Each oChar In aWord.Characters
If oChar.Case = wdUpperCase Then
oChar.Bold = True
End If
Next
Next aWord
End Sub

Co prawda zrobiłem to juź recznie (całe godziny) ale czeka mnie podobne zadanie,
.... więc czekam na porade :wink:

Aaaaaa, teraz zajarzylem :). Losie, to nie mam pojecia :)

Oj Winchester... Czytanie ze zrozumieniem szwankuje :P

Poczekajmy na halinavb... Ona na pewno coś wymyśli :D

Tak, zaznaczac calosc, prawym ––> czcionka i tam zaznaczasz WSZYSTKIE WERSALKI.