Ветеран
Сообщения: 5624 Благодарности: 936
Профиль | Отправить PM | Цитировать
Set myRange = ActiveDocument For Each aword In myRange.Words If aword.Text = UCase(aword.Text) And RTrim(aword.Text) <> "" Then If Len(aword.Text) > 1 Then aword.Bold = True ' MsgBox aword.Text End If End If Next aword
------- Пройденные курсы: [Microsoft №10174 Sharepoint], [SharePoint] Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения] А я офис-гуру :)
Отправлено: 13:35, 20-11-2010 | #4
