MS Office 2003

AlexDr · 06.11.2013, 18:43

Если кратко, то как найти в документе слово написанное ЗАГЛАВНЫМИ буквами? Мне на или через Поиск или Макрос.

tamalex · 06.11.2013, 20:30

Через поиск ставим галочку "Учитывать регистр"

AlexDr · 06.11.2013, 21:03

А не... слишком просто, Вы не поняли.
Мне надо найти любое слово в тексте написаное ЗАГЛАВНЫМИ буквами.

AlexDr · 07.11.2013, 17:53

Я уже нашёл решение на другом форуме.
Вот этот макрос.

Sub BigBykvi()
' Отделяет строчкой надписи БОЛЬШИМИ БУКВАМИ
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(^0013)(<[A-ZА-ЯЁ]@[A-ZА-ЯЁ]@>)"
.Replacement.Text = "\1^0013\2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

06.11.2013, 18:43	#1 (ссылка)
AlexDr Новичок Регистрация: 19.02.2012 Сообщений: 45 Репутация: 0	MS Office 2003 Если кратко, то как найти в документе слово написанное ЗАГЛАВНЫМИ буквами? Мне на или через Поиск или Макрос.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не удаляется MS Office 2003	AFK	Офис	1	11.04.2013 15:07
Проблема с Office 2003	harziz	Офис	1	20.12.2012 11:42
Windows 7 и Office 2003	Ratafia	Windows 7	5	04.10.2011 17:41
Стоит Office 2007,хочу поставить и Office 2003, но не получается	Denalex	Офис	2	25.11.2010 01:28

06.11.2013, 20:30	#2 (ссылка)
tamalex Знаток Регистрация: 17.01.2013 Сообщений: 2,405 Репутация: 184	Через поиск ставим галочку "Учитывать регистр"

06.11.2013, 21:03	#3 (ссылка)
AlexDr Новичок Регистрация: 19.02.2012 Сообщений: 45 Репутация: 0	А не... слишком просто, Вы не поняли. Мне надо найти любое слово в тексте написаное ЗАГЛАВНЫМИ буквами.

07.11.2013, 17:53	#4 (ссылка)
AlexDr Новичок Регистрация: 19.02.2012 Сообщений: 45 Репутация: 0	Я уже нашёл решение на другом форуме. Вот этот макрос. Sub BigBykvi() ' Отделяет строчкой надписи БОЛЬШИМИ БУКВАМИ Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(^0013)(<[A-ZА-ЯЁ]@[A-ZА-ЯЁ]@>)" .Replacement.Text = "\1^0013\2" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads