Записать макрос ворд 2013

@magistrat4797 · Регистрация: 15.11.2014

Author24 — интернет-сервис помощи студентам

Ребят, хочу написать макрос который делает 3 команды одновременно, подчёркивает, делает курсивом и жирным выделенный текст по нажатию определенной клавиши. Буду очень благодарен, потому что в этом я хуже новичка.
пример: слово -> нажимаю клавишу -> слово
Надеюсь на помощь опытных людей

Fairuza · 15.11.2014, 17:13

Запись макроса включить и проделать все вышеописанное

@magistrat4797 · 15.11.2014, 18:20 **[ТС]**

Всё сделал, но столкнулся с проблемой: пишу я текст, потом активирую макрос, а вернуть текст в исходный вид при повторном нажатии(выключении) не получается, текст остаётся подчёркнутым. Пробовал отлаживать код по-разному, но он возвращается в норм. вид только если не использовать эти строки т.е. подчёркивание
Selection.Font.Underline = wdUnderlineSingle
Selection.Font.UnderlineColor = wdColorAutomatic
а мне оно нужно.
Пример:
Мир всем! -> Мир всем! -> Мир всем!

@ViterAlex · 16.11.2014, 04:24

Нужно немного усложнить макрос, задавая значения жирности, наклонности и подчёркивания обратные тем, что применены к тексту:

Visual Basic

Sub BIU()
    Selection.Font.Bold = Not Selection.Font.Bold
    Selection.Font.Italic = Not Selection.Font.Italic
    If Selection.Font.Underline = wdUnderlineSingle Then
        Selection.Font.Underline = wdUnderlineNone
    Else
        Selection.Font.Underline = wdUnderlineSingle
    End If
End Sub

@Sasha_Smirnov · 17.11.2014, 05:19

Сообщение от magistrat4797

подчёркивает, делает курсивом и жирным выделенный текст по нажатию определенной клавиши

Курсор ставишь перед нужным символом (или выделяешь нужный фрагмент), держишь зажатым Control и...

жмёшь U — символ подчёркнут (если не был)
жмёшь I — символ меняет курсивность
жмёшь B — символ меняет жирность

(Примерно так и этот пост верстался!)

Control отпускаешь.

@Sasha_Smirnov · 11.04.2015, 22:39

Сообщение от magistrat4797

я хуже новичка

Сравнить бы ваши портреты!

@magistrat4797 0 / 0 / 0 Регистрация: 15.11.2014 Сообщений: 6
		1
	Записать макрос ворд 2013 15.11.2014, 17:09. Показов 4641. Ответов 5 Метки нет (Все метки) Ребят, хочу написать макрос который делает 3 команды одновременно, подчёркивает, делает курсивом и жирным выделенный текст по нажатию определенной клавиши. Буду очень благодарен, потому что в этом я хуже новичка. пример: слово -> нажимаю клавишу -> *слово* Надеюсь на помощь опытных людей 0

Fairuza 6002 / 3197 / 716 Регистрация: 23.11.2010 Сообщений: 10,683
	15.11.2014, 17:13	2
	Запись макроса включить и проделать все вышеописанное 0

@magistrat4797 0 / 0 / 0 Регистрация: 15.11.2014 Сообщений: 6
	15.11.2014, 18:20 [ТС]	3
	Всё сделал, но столкнулся с проблемой: пишу я текст, потом активирую макрос, а вернуть текст в исходный вид при повторном нажатии(выключении) не получается, текст остаётся подчёркнутым. Пробовал отлаживать код по-разному, но он возвращается в норм. вид только если не использовать эти строки т.е. подчёркивание Selection.Font.Underline = wdUnderlineSingle Selection.Font.UnderlineColor = wdColorAutomatic а мне оно нужно. Пример: Мир всем! -> *Мир всем!* -> Мир всем! 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	17.11.2014, 05:19	5
	Сообщение от magistrat4797 подчёркивает, делает курсивом и жирным выделенный текст по нажатию определенной клавиши Курсор ставишь перед нужным символом (или выделяешь нужный фрагмент), держишь зажатым Control и... жмёшь U — символ подчёркнут (если не был) жмёшь I — символ меняет курсивность жмёшь B — символ меняет жирность (Примерно так и этот пост верстался!) Control отпускаешь. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	11.04.2015, 22:39	6
	Сообщение от magistrat4797 я хуже новичка Сравнить бы ваши портреты! 0