vba скрипт для ворда - Microsoft Office Word - Страница 3

Казанский · 09.05.2014, 12:47

Параметры Word - Правописание - снимите галку Автоматически проверять орфографию.

beast2004 · 25.05.2015, 22:23

здравствуйте. Помогите кое что добавить в макрос.

With ActiveDocument.Range
.Collapse
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Wrap = wdFindContinue
.MatchWildcards = True
.Text = "([A-Za-zА-ЯЁа-яё])([A-Za-zА-ЯЁа-яё])"
.Replacement.Text = "\1" & ChrW$(&H740) & "\2"
.Execute Replace:=Word.wdReplaceAll
End With
End With

Нужно чтоб данный символ ChrW$(&H740) имел размер шрифта 1, белый цвет , и уплотнение 1000пт. сам не программист но очень нужно.

09.05.2014, 12:47	#21
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	Параметры Word - Правописание - снимите галку Автоматически проверять орфографию. exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Простенькая программа для ворда. Возможен заказ	shadowbat	Фриланс	7	24.03.2009 06:27
Простенькая программа для ворда. Возможен заказ	shadowbat	Microsoft Office Word	2	16.03.2009 13:01
Скрипт для голосования	Gopius	PHP	11	11.01.2009 15:57
Скрипт для показа баннеров	phonograph	PHP	1	18.08.2008 17:54

25.05.2015, 22:23	#22
beast2004 Новичок Джуниор Регистрация: 25.05.2015 Сообщений: 1	здравствуйте. Помогите кое что добавить в макрос. With ActiveDocument.Range .Collapse With .Find .ClearFormatting .Replacement.ClearFormatting .Wrap = wdFindContinue .MatchWildcards = True .Text = "([A-Za-zА-ЯЁа-яё])([A-Za-zА-ЯЁа-яё])" .Replacement.Text = "\1" & ChrW$(&H740) & "\2" .Execute Replace:=Word.wdReplaceAll End With End With Нужно чтоб данный символ ChrW$(&H740) имел размер шрифта 1, белый цвет , и уплотнение 1000пт. сам не программист но очень нужно.