Макрос Word 2007: автоматически выполняется действие с выделенным фрагментом текста

@Alter Ego · Регистрация: 22.03.2011

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

Добрый день.

Прошу помочь в реализации такого макроса.

Есть текст в Word 2007, он почти весь однородный для макросов, т.к. только по значению слов я знаю, где начинается и заканчивается нужный фрагмент.

Нужно этот фрагмент (часто только это 2-4 слова) например сделать жирным или взять в кавычки и т.п.

Очень бы облегчил работу макрос, который после/вовремя выделения нужного фрагмента текста мышкой делает автоматически с ним выбранную мной на тот момент манипуляцию.

Пожалуйста подскажите как это сделать.

Спасибо за помощь.

@Ципихович Эндрю · 22.03.2011, 20:06

была тема такая 1-2 месяца назад Бузине2009 отвечал
Как создать такую кнопку?

@Alter Ego · 22.03.2011, 20:08 **[ТС]**

1. Насколько я понимаю макрос должен уже запуститься во время открытия страницы, что быть постоянно активным?
2. Например, можно использовать событие отпускания левой клавиши мыши _MouseUp ([индекс As Integer,] индекс 2 соответствует левой кнопке мыши, и этому событию назначать к примеру это действие

Visual Basic

1	Selection.Font.Bold = wdToggle

или другое.

Проблема в том, что не знаю как это реализовать

Сообщение от Ципихович Эндрю

была тема такая 1-2 месяца назад Бузине2009 отвечал
Как создать такую кнопку?

Спасибо, сейчас посмотрю

@Ципихович Эндрю · 22.03.2011, 20:13

всё же сказано:
Сделайте класс и назовите его SelectionPaste.
В него поместите вот этот код:
Код Visual Basic

Visual Basic

Public WithEvents App As Word.Application
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
If Len(Sel) > 1 Then
    MsgBox "Выделено"
End If
End Sub

Сделайте модуль с любым именем и в него поместите вот это:
Код Visual Basic

Visual Basic

Option Explicit
Dim x As New SelectionPaste
Sub m_1()
Set x.App = Word.Application
End Sub

Запустите Sub m_1 и затем выделите более 1 символа.

Осталось только определить, что выделен один символ и чтобы при выделении симво-лов событие возникало, когда выделен нужный фрагмент.

Комментарий модератора

Теги используются так: [VB]здесь код[/VB]

@Alter Ego · 22.03.2011, 20:47 **[ТС]**

думаю что получилось

Я конечно не до конца понял еще каким образом это вышло, т.к. это мой первый макрос в Word.

Сейчас только заменил

Visual Basic

1	MsgBox "Выделено"

на

Visual Basic

1	Selection.Font.Bold = wdToggle

и после выделения фрагмента происходит то, что мне необходимо в этот момент!

Спасибо еще раз!

@Ципихович Эндрю · 22.03.2011, 20:53

Сообщение от Ципихович Эндрю

Бузине2009

благодарите

Добавлено через 41 секунду
1 макрос в Ворде? не хило

@Alter Ego · 22.03.2011, 21:08 **[ТС]**

Сообщение от Ципихович Эндрю

благодарите

Добавлено через 41 секунду
1 макрос в Ворде? не хило

Да конечно и Бузине2009, но Вы мне преподнесли его решение, сам бы не нашел.

В Excel пару раз писал вычислительные макросы привязанные к нажатию кнопки, не более того.
А ворде, да - первый в жизни макрос

@Alter Ego 0 / 0 / 0 Регистрация: 22.03.2011 Сообщений: 4
		1
	Макрос Word 2007: автоматически выполняется действие с выделенным фрагментом текста 22.03.2011, 19:07. Показов 8744. Ответов 6 Метки нет (Все метки) Добрый день. Прошу помочь в реализации такого макроса. Есть текст в Word 2007, он почти весь однородный для макросов, т.к. только по значению слов я знаю, где начинается и заканчивается нужный фрагмент. Нужно этот фрагмент (часто только это 2-4 слова) например сделать жирным или взять в кавычки и т.п. Очень бы облегчил работу макрос, который после/вовремя выделения нужного фрагмента текста мышкой делает автоматически с ним выбранную мной на тот момент манипуляцию. Пожалуйста подскажите как это сделать. Спасибо за помощь. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	22.03.2011, 20:06	2
	была тема такая 1-2 месяца назад Бузине2009 отвечал Как создать такую кнопку? 1

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	22.03.2011, 20:53	6
	Сообщение от Ципихович Эндрю Бузине2009 благодарите Добавлено через 41 секунду 1 макрос в Ворде? не хило 0

@Alter Ego 0 / 0 / 0 Регистрация: 22.03.2011 Сообщений: 4
	22.03.2011, 21:08 [ТС]	7
	Сообщение от Ципихович Эндрю благодарите Добавлено через 41 секунду 1 макрос в Ворде? не хило Да конечно и Бузине2009, но Вы мне преподнесли его решение, сам бы не нашел. В Excel пару раз писал вычислительные макросы привязанные к нажатию кнопки, не более того. А ворде, да - первый в жизни макрос 0