[Iska]

Есть docm word 2010 c несколькими кнопками в нём(button,button2 итд). »

Для тех, кто будет смотреть — упакуйте документ в архив и приложите к сообщению.

[victor21043]

Добавлено

[Iska]

Есть код-но он не работает. »

Вот Ваш код (из файла, формат 2003):

Код:

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
'Dim ctr As Object
'For Each Button In Me.Controls
     ' If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62)
      ' End If
     '  Next Button
   ' Me.Button.ForeColor = vbBlack
End Sub

и он работает, цвет шрифта меняется на указанный.

[victor21043]

1)Код модуля работает-оставлен частично неработающий код,который не может привести к overflow у кого-либо.

Как при наведении на конкретную active-кнопку(имя-button) указателем оптического манипулятора("мышь") произвести смену цвета,а при отведении-базовый цвет

2)Часть кода модуля (подпрограмма) закомментирована, при дебаггинге она вызывает ошибку компиляции
(не знаю почему-подпрограмма "собрана"по образцу("Пример")

[Iska]

Оставлен частично неработающий код, »

2)Часть кода модуля (подпрограмма) закомментирована, значит при дебаггинге она вызывает ошибку компиляции (не знаю почему »

У Вас ошибочное использование переменной «Button» (вот для чего нужен «Option Explicit»). Понимаете почему?

[victor21043]

Спасибо,
Элемент – это переменная, которая будет хранить значение при каждой итерации (переборе коллекции)
Коллекция – собственно, то, что нам надо обработать.Коллекция – по своей природе этот тот же массив, но количество элементов в нем нам неизвестно(нет счётчика). Элемент должен принадлежать коллекции.
Код переделан,но не работает

Код:

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Object 'элемент\переменная
'Начинаем перебор коллекции
For Each ctr In Me.CommandBars  'элемент In коллекция
     If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
      Else
      Me.Button.ForeColor = vbBlack 'в противном случае 
      End If
Next ctr
End Sub

[a_axe]

Код переделан,но не работает »

Код для изменения цвета при наведении мышки приведен в посте №4, его и используйте. Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет.
Подходящего события (типа указатель уходит за пределы вашей кнопки "control 2") я не увидел. Единственный (правда уж очень кривой, но уж какой есть) вариант могу предложить следующий: вставьте в документ элемент управления - рисунок, подложите его под вашу кнопку, размеры задайте чуть больше вашей кнопки чтобы рисунок образовывал некую окантовку (рамку). Событие, когда мышка находится над рисунком будет активировать код, который будет менять цвет вашей кнопки на исходный.

То есть логика следующая: когда курсор прошелся над кнопкой - активируется код из поста №4. Если курсор уйдет с кнопки, он обязательно пройдет над рамкой (рисунком) и активирует код, приведенный в конце этого поста, который перекрасит кнопку в исходный цвет.

К сожалению, ширину рамки нужно брать достаточно большую, иначе обработчик не всегда срабатывает при быстром перемещении мышки, но вы можете настроить цвет этой рамки (например - белый в цвет листа, или синий - в цвет скрываемого поля и ширину взять равной ширине поля), чтобы эта рамка не сильно бросалась в глаза.

Для этого:
во вкладке меню Word "Разработчик" (помнится по умолчанию отображение этой вкладки отключено, возможно придется включить в параметрах) предварительно отобразив ваше текстовое поле, нажмите кнопку "Режим конструктора". В этом же секторе вкладки "Разработчик" -> "Элементы управления" выбрать вставку элемента управления "Изображения" (вставится пустая рамка). Щелкнуть по рамке рисунка и выбрать "формат объекта" -> "положение" -> "За текстом". Переместить поле под кнопку, но так чтобы оно было над вашем текстовым полем (поле можно сдвинуть ниже). В режиме конструктор доступна кнопка "свойства", чтобы поменять например цвет рамки рисунка, фон и т.д. Высоту и ширину изображения подгоняете слегка побольше чем кнопка, чтобы получилась некая рамка, после чего отключаете режим конструктора.
Необходимо вставить следующий код:

Код

Код:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    ActiveDocument.Shapes("Control 2").OLEFormat.Object.ForeColor = vbRed
End Sub

С любопытством ознакомлюсь с любым более "правильным" вариантом по возвращению кнопке исходного цвета.

[victor21043]

Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет

Да +при отведении мышки-я думал ,что это будет очень просто реализовать!
Так переделан-упрощён-не работает.
-Dim ctr As Object почему? не др. тип данных VBA(ошибки,кроме Variant)
Object-используется только для хранения ссылок на объекты. Требуемая память: 4 байта
Данную переменную нельзя ,оказывается, глобально объявить(Public str),как другие в этом коде("перемен не объявлена")
-For Each ctr In "Me.CommandBars" Вообще не понятно ,что такое коллекция me.X?

Скрытый текст

Код

Код:

Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Variant 'переменная
For ctr = 0 To 1  'счётчик step=1 по умолч
    If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
     Else 'в противном случае
     Me.Button2.ForeColor = vbBlack
      End If
Next ctr

[a_axe]

victor21043, еще раз терпеливо вам объясняю:
1. чтобы менялся цвет при наведении на кнопку - используйте следующий код:

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _ As Integer, ByVal X As Single, ByVal Y As Single) Me.Button.ForeColor = RGB(180, 91, 62) End Sub »

2. чтобы вернуть исходный цвет кнопки, выполните шаги начиная со слов:

Для этого: »

3. Отпишитесь о выполненных шагах, если что-то не работает - приложите файл.
4.По вашему вопросу - в вашем случае этого не нужно, но если хотите почитать:

-Dim ctr As Object почему? не single,string(коллекция -массив) -For Each ctr In Me.CommandBars Вообще не понятно для каждой переменной ,что такое коллекция me.X? »

Ключевое слово Me.
Оператор for... each.
тип данных object.
Вообще на ресурсе много полезного, можно почитать с начала.