Ribbon-интерфейс для Word 2007

Элемент dropDown — выпадающий список

2010-06-28T23:52:00.000+03:00

Как раз раздумывал над очередной темой, как её подсказала сама жизнь: просьба рассказать об элементе comboBox и сетования одного из посетителей WordExpert на неудобную работу с автотекстом. Постараюсь убить двух зайцев сразу.
Итак, задача: сформировать список из элементов автотекста, содержащихся в шаблоне, на котором основан документ. При выборе элемента из списка, вставлять его в документ.
Как всегда, начнём с XML-схемы. На ленту поместим группу "Автотекст" с выпадающим списком и кнопкой для обновления этого списка, если при работе с документом мы добавим элемент автотекста шаблон. В качестве списка я буду использовать не comboBox, а dropDown. Они абсолютно идентичны, но comboBox позволяет принимать текст, введённый пользователем. Нам это не нужно, поэтому используем dropDown.

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonLoading">
3 <ribbon startFromScratch="false">
4 <tabs>
5 <tab idMso="TabHome">
6 <group id="grAutoText" label="Автотекст">
7 <dropDown id="ddAutoText"
8 onAction="ddAutoText_onAction"
9 getItemLabel="ddAutoText_getItemLabel"
10 getItemSupertip="ddAutoText_getItemSupertip"
11 getItemCount="ddAutoText_getItemCount"
12 getItemID="ddAutoText_getItemID"
13 getSelectedItemIndex="ddAutoText_getSelectedItemIndex" >
14
15 </dropDown>
16 <button id="btnRefresh"
17 label="Обновить"
18 imageMso="RecurrenceEdit"
19 onAction="btnRefresh_onAction" />
20 </group>
21 </tab>
22 </tabs>
23 </ribbon>
24 </customUI>

Пояснения к атрибутам элемента dropDown.

onAction — процедура, вызываемая при нажатии на пункте списка

getItemLabel — процедура для задания текста элемента списка

getItemSupertip — процедура для задания текста расширенной подсказки элемента списка

getItemCount — процедура для задания количества элементов списка

getItemID — процедура для задания идентификаторов элементво списка (необязательная)

getSelectedItemIndex — процедура для выбора определённого элемента списка

Кнопка совершенно обычная и никаких трудностей у вас не должна вызвать, если вы дошли до создания списка. Если же возникли трудности, то ознакомьтесь с этой заметкой. Сохраняем шаблон и открываем его в Word, не забыв перед этим получить заготовку для кода VBA. Для этого в программе Ribbon XML Editor, которую я настоятельно рекомендую к использованию, предусмотрена специальная функция : вы можете автоматически получить заготовки для всех динамических атрибутов, указанных в XML-схеме и сохранить их в виде модуля *.bas для последующего импорта в документ.
Теперь код VBA. Открываем шаблон в Word, импортируем сохранённый модуль с процедурами ленты и доводим его до такого состояния:

Копировать код без номеров строк

1 Option Explicit
2 Dim tmp As Template
3 Dim bb As BuildingBlocks
4 Dim MyRibbon As IRibbonUI
5
6 ' (компонент: customUI, атрибут: onLoad), 2007
7 Sub RibbonLoading(ribbon As IRibbonUI)
8 Set tmp = ActiveDocument.AttachedTemplate
9 Set bb = tmp.BuildingBlockTypes(wdTypeAutoText).Categories("Общие").BuildingBlocks
10 Set MyRibbon = ribbon
11 End Sub
12
13 'ddAutoText (компонент: dropDown, атрибут: onAction), 2007
14 Sub ddAutoText_onAction(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
15 bb(selectedIndex).Insert Where:=Selection.Range, RichText:=True
16 End Sub
17
18 'ddAutoText (компонент: dropDown, атрибут: getItemLabel), 2007
19 Sub ddAutoText_getItemLabel(control As IRibbonControl, index As Integer, ByRef label)
20 label = bb(index + 1).Name
21 End Sub
22
23 'ddAutoText (компонент: dropDown, атрибут: getItemSupertip), 2007
24 Sub ddAutoText_getItemSupertip(control As IRibbonControl, index As Integer, ByRef superTip)
25 superTip = bb(index + 1).Value
26 End Sub
27
28 'ddAutoText (компонент: dropDown, атрибут: getItemCount), 2007
29 Sub ddAutoText_getItemCount(control As IRibbonControl, ByRef count)
30 ' Dim tmp As Template
31 count = bb.count
32 End Sub
33
34 'ddAutoText (компонент: dropDown, атрибут: getItemID), 2007
35 Sub ddAutoText_getItemID(control As IRibbonControl, index As Integer, ByRef id)
36 id = bb(index + 1).Name
37 End Sub
38
39 'ddAutoText (компонент: dropDown, атрибут: getSelectedItemIndex), 2007
40 Sub ddAutoText_getSelectedItemIndex(control As IRibbonControl, ByRef index)
41 index = 0
42 End Sub
43
44 'btnRefresh (компонент: button, атрибут: onAction), 2007
45 Sub btnRefresh_onAction(control As IRibbonControl)
46 MyRibbon.InvalidateControl "ddAutoText"
47 End Sub

В результате получим вот такой симпатичный список

В конце, несколько замечаний. Как видно из кода, для выборки элементов автотекста используется только одна категория: "Общие". Если автотекст распределён по нескольким категориям, они не будут видны. Если нужно распределить по категориям, то либо создавать столько списков, сколько в шаблоне категорий автотекста, либо использовать не список, а динамическое меню. Естественно это потребует переделки кода.
Пример шаблона

Динамические элементы управления button и checkbox

2010-06-05T12:59:00.001+03:00

Как выстраивать стандартные элементы управления на ленте в желаемом порядке я уже рассказывал.
Как добавить на ленту собственные элементы управления и научить их откликаться на действия пользователя я буду рассказывать в серии заметок так, чтобы это не вызывало трудностей у новичков.
Чтобы пользовательскую ленту научить откликаться на действия пользователя, мало просто задать расположение элементов управления. Необходимо, используя язык VBA, прописать действия, выполняемые тем или иным элементом управления, а также внутри XML-кода указать, что работа того или иного элемента управления контролируется извне.
Начнём с двух, на мой взгляд самых простых элементов управления: кнопки (Button) и флажка(CheckBox).
Разберём простенький пример. Поместим на ленту новую вкладку с именем «Тест», в ней создадим группу с тем же именем. В группе разместим флажок (checkbox) и кнопку. При изменении состояния флажка будет изменяться активность кнопки, а также текст флажка, отображающий количество нажатий на нём и его состояние. Кнопкой просто будем устанавливать или снимать флажок.
XML-схема пользовательского интерфейса будет такой:

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
3 onLoad="RibbonLoading">
4 <ribbon startFromScratch="false">
5 <tabs>
6 <tab id="Tab1" label="Тест">
7 <group id="Tab1_gr1" label="Тест">
8 <checkBox id="chb1"
9 getLabel="getLabel"
10 getEnabled="getEnabled"
11 getPressed="getPressed"
12 onAction="onAction" />
13 <button id="btn1"
14 getLabel="getLabel"
15 getEnabled="getEnabled"
16 onAction="btnOnAction" />
17 </group>
18 </tab>
19 </tabs>
20 </ribbon>
21 </customUI>

Процесс создания XML-кода с помощью RXE уже объяснялся, поэтому остановлюсь только на отличиях. XML-строки, соответствующие кнопке и флажку, добавляются кнопками и . Атрибуты можно писать вручную, а можно, и даже нужно, вводить, используя возможности RXE. В последней на сегодняшний день версии за ввод разнообразных атрибутов отвечают три выпадающих списка, расположенных над основным полем редактирования.
Код отличается от приведённых раньше прежде всего тем, что в нём я не задаю явно текст, отображаемый на элементе управления. Вместо этого прописан набор атрибутов, начинающихся со слова get. По порядку, что они означают:

getLabel — атрибут, определяющий имя процедуры, которая задаёт текст элемента управления;

getEnabled — атрибут, определяющий имя процедуры, устанавливающей активность элемента управления;

getPressed — атрибут, определяющий имя процедуры, устанавливающей состояние элемента управления. Этот атрибут определён только для элементов управления, имеющих фиксированные состояния: checkbox и togglebutton.

Кроме этих атрибутов, имеется ещё один — onAction, который определяет имя процедуры, выполняющейся при клике мышью на элементе управления. Также у элемента пользовательского интерфейса, определяемого тегом customUI, я задал атрибут onLoad, который, как наверное уже понятно, определяет процедуру, выполняющуюся при загрузке пользовательского интерфейса.
Имена процедур, задаваемые атрибутам, могут быть совершенно произвольными, но, желательно, понятными разработчику :)
Схему создали. Сохраняем документ и открываем в Word. При этом получим сообщение:

Оно вызвано тем, что в XML-схеме задано значение атрибута щnLoad, а процедуры с соответствующим именем ещё нет. Поэтому следует прописать эту, а также остальные процедуры, указанные в XML-схеме.
Открываем редактор VBA и вставляем в него такой код:

Копировать код без номеров строк

1 Option Explicit
2
3 Sub RibbonLoading(ribbon As IRibbonUI)
4
5 End Sub
6
7 Sub getLabel(control As IRibbonControl, ByRef label)
8
9 End Sub
10
11 Sub getEnabled(control As IRibbonControl, ByRef enabled)
12
13 End Sub
14
15 Sub getPressed(control As IRibbonControl, ByRef pressed)
16
17 End Sub
18
19 Sub onAction(control As IRibbonControl, pressed As Boolean)
20
21 End Sub
22
23 Sub btnOnAction(control As IRibbonControl)
24
25 End Sub

Это "тела" процедур, имена которых были определены в XML-схеме. Наполним эти процедуры содержимым:

Копировать код без номеров строк

1 Option Explicit
2 'Глобальные переменые, необходимые для передачи состояния элементов управления _
3 между процедурами
4 Dim chb1_pressed As Boolean 'Состояние флажка
5 Dim chb1_enabled As Boolean 'Активность флажка
6 Dim btn1_enabled As Boolean 'Активность кнопки
7 Dim myRibbon As IRibbonUI 'Пользовательский интерфейс
8 Dim PressCounter As Integer 'Счётчик нажатий
9
10 Sub RibbonLoading(ribbon As IRibbonUI)
11 '
12 'Загрузка ленты
13 '
14
15 'Задаём состояние флажка и кнопки
16 chb1_enabled = True
17 btn1_enabled = chb1_pressed
18 'Запоминаем наш интерфейс в переменную
19 Set myRibbon = ribbon
20 End Sub
21
22 Sub getEnabled(control As IRibbonControl, ByRef returnedVal)
23 '
24 'Задаём активность элемента управления
25 '
26
27 'Определяем элемент управления, вызвавший процедуру
28 Select Case control.ID
29 Case "chb1" 'Устанавливаем активность флажка
30 returnedVal = chb1_enabled
31 Case "btn1" 'Устанавливаем активность кнопки
32 returnedVal = btn1_enabled
33 End Select
34 End Sub
35
36 Sub getPressed(control As IRibbonControl, ByRef returnedVal)
37 '
38 'Задаём состояние элемента управления
39 '
40
41 returnedVal = chb1_pressed
42 End Sub
43
44 Sub getLabel(control As IRibbonControl, ByRef returnedVal)
45 '
46 'Задаём текст элемента управления
47 '
48
49 'Определяем какой элемент управления вызвал эту процедуру
50 Select Case control.ID
51 Case "chb1" 'Задаём текст флажка
52 returnedVal = "Нажат " & PressCounter & " раз. Текущее состояние: " & IIf(chb1_pressed, "установлен", "снят")
53 Case "btn1" 'Задаём текст кнопки
54 returnedVal = "Кнопка изменения состояния флажка"
55 End Select
56 End Sub
57
58 Sub onAction(control As IRibbonControl, pressed As Boolean)
59 '
60 'Клик по флажку
61 '
62
63 'Запоминаем состояние флажка в глобальные переменные
64 chb1_pressed = pressed
65 btn1_enabled = pressed
66
67 PressCounter = PressCounter + 1 'Инкремент счётчика
68
69 'Обновляем элементы управления
70 myRibbon.InvalidateControl control.ID 'флажок, вызвавший процедуру
71 myRibbon.InvalidateControl "btn1" 'кнопка
72 End Sub
73
74 Sub btnOnAction(control As IRibbonControl)
75 '
76 'Нажатие на кнопку
77 '
78
79 chb1_pressed = Not chb1_pressed 'Изменяем значение переменной состояния флажка на противоположное
80 PressCounter = PressCounter + 1 'Инкремент счётчика
81 myRibbon.InvalidateControl "chb1" 'Обновляем флажок
82 End Sub

Пугаться не нужно, разберём всё по кирпичикам.

Копировать код без номеров строк

2 'Глобальные переменые, необходимые для передачи состояния элементов управления _
3 между процедурами
4 Dim chb1_pressed As Boolean 'Состояние флажка
5 Dim chb1_enabled As Boolean 'Активность флажка
6 Dim btn1_enabled As Boolean 'Активность кнопки
7 Dim myRibbon As IRibbonUI 'Пользовательский интерфейс
8 Dim PressCounter As Integer 'Счётчик нажатий
9

В самом начале кода объявляем глобальные переменные, используемые для взаимодействия с элементами управления на ленте и с самой лентой. С помощью этих переменных мы сможем объяснить флажку, какой текст ему нужно иметь, в какое состояние его поставил кнопка и т.д.

Копировать код без номеров строк

10 Sub RibbonLoading(ribbon As IRibbonUI)
11 '
12 'Загрузка ленты
13 '
14
15 'Задаём состояние флажка и кнопки
16 chb1_enabled = True
17 btn1_enabled = chb1_pressed
18 'Запоминаем наш интерфейс в переменную
19 Set myRibbon = ribbon
20 End Sub
21

Эта процедура выполняется самой первой при загрузке пользовательского интерфейса. Как видно, она вызывается не пустой, а с параметром ribbon, содержащим ссылку на загружаемый интерфейс. В этой процедуре я устанавливаю значение переменных, определяющих активность кнопки и флажка, и запоминаю в свою переменную myRibbon ссылку на пользовательский интерфейс, чтобы обращаться к нему из других процедур.

Копировать код без номеров строк

22 Sub getEnabled(control As IRibbonControl, ByRef returnedVal)
23 '
24 'Задаём активность элемента управления
25 '
26
27 'Определяем элемент управления, вызвавший процедуру
28 Select Case control.ID
29 Case "chb1" 'Устанавливаем активность флажка
30 returnedVal = chb1_enabled
31 Case "btn1" 'Устанавливаем активность кнопки
32 returnedVal = btn1_enabled
33 End Select
34 End Sub
35

После того, как лента загружена, начинается прорисовка элементов управления. Насколько я заметил, элементы управления прорисовываются сверху вниз и справа налево. При этом вызываются процедуры, заданные в атрибутах, начинающихся с get.
Эта процедура вызывается для каждого элемента управления, чтобы определить его активность. В качестве параметров процедуры передаётся сам элемент управления (control) и ссылка на свойство, которое у этого элемента нужно изменить. В данное процедуре таким свойством является Enabled, ссылка на которое передана в переменной returnedVal.
В данном случае внутри процедуры оператором Select…Case определяется какой элемент управления её вызвал и в переменную, содержащую ссылку на свойство, записывается значение глобальной переменной, определённой выше. Поскольку в процедуре RibbonLoading я уже задал значения переменным chb1_enabled и btn1_enabled (true и false соответственно), то флажок будет отображаться активным, а кнопка — неактивной.

Копировать код без номеров строк

36 Sub getPressed(control As IRibbonControl, ByRef returnedVal)
37 '
38 'Задаём состояние элемента управления
39 '
40
41 returnedVal = chb1_pressed
42 End Sub
43

Это совсем просто, если вы «раскусили» предыдущий кирпичик. Состояние флажка определяется значением глобальной переменной chb1_pressed. Задать значение этой переменной можно где угодно. Посколько до этого мы его ещё нигде не задавали, то оно равно false и, соответственно, флажок будет снят. В эту процедуру передаются те же параметры, что и в предыдущую, только под returnedVal уже подразумевается свойство Checked. Эта процедура будет вызываться только для флажка.

Копировать код без номеров строк

44 Sub getLabel(control As IRibbonControl, ByRef returnedVal)
45 '
46 'Задаём текст элемента управления
47 '
48
49 'Определяем какой элемент управления вызвал эту процедуру
50 Select Case control.ID
51 Case "chb1" 'Задаём текст флажка
52 returnedVal = "Нажат " & PressCounter & " раз. Текущее состояние: " & IIf(chb1_pressed, "установлен", "снят")
53 Case "btn1" 'Задаём текст кнопки
54 returnedVal = "Кнопка изменения состояния флажка"
55 End Select
56 End Sub
57

Процедура, аналогичная getEnabled, только returnedVal определяет текст, отображаемый на элементе управления. В этой процедуре также используется глобальная переменная chb1_pressed, чтобы правильно отображать информацию о состоянии флажка.

Копировать код без номеров строк

58 Sub onAction(control As IRibbonControl, pressed As Boolean)
59 '
60 'Клик по флажку
61 '
62
63 'Запоминаем состояние флажка в глобальные переменные
64 chb1_pressed = pressed
65 btn1_enabled = pressed
66
67 PressCounter = PressCounter + 1 'Инкремент счётчика
68
69 'Обновляем элементы управления
70 myRibbon.InvalidateControl control.ID 'флажок, вызвавший процедуру
71 myRibbon.InvalidateControl "btn1" 'кнопка
72 End Sub
73

Эта процедура, вызывается, когда пользователь кликаем мышью по флажку. Первый параметр, который передаётся в этой процедуре, это всё тот же элемент управления, вызвавший её. Вторым параметром идёт состояние элемента управления после клика на нём. Именно с помощью этого второго параметра мы передаём в глобальные переменные информацию о состоянии элемента управления.
Важной частью этой процедуры являются строки, содержащие вызов метода InvalidateControl. Вызов этого метода обновляет состояние указанного элемента управления. При этом обновлении повторно вызываются все процедуры, описанные в атрибутах, начинающихся с get. В данном случае, обновляется флажок (с изменённым текстом) и кнопка (с изменённой активностью)

Копировать код без номеров строк

74 Sub btnOnAction(control As IRibbonControl)
75 '
76 'Нажатие на кнопку
77 '
78
79 chb1_pressed = Not chb1_pressed 'Изменяем значение переменной состояния флажка на противоположное
80 PressCounter = PressCounter + 1 'Инкремент счётчика
81 myRibbon.InvalidateControl "chb1" 'Обновляем флажок
82 End Sub

Эта процедура совершенно прозрачна и, думаю, не требует пояснений.

После введения кода. Документ нужно сохранить и повторно открыть. Если всё было сделано правильно, то выглядеть это будет так:
Сразу после открытия

Первый клик по флажку, чтобы активировать кнопку.

Нажатие на кнопку, чтобы изменить состояние флажка. Событие onAction для флажка в этом случае не вызывается! Поэтому кнопка остаётся активной.

Готовый пример файла

Как изменить стандартные вкладки и группы на ленте

2010-02-10T15:58:00.001+02:00

В ribbon-интерфейсе не предусмотрена возможность изменения стандартных групп и вкладок. Можно добавить свою группу на стандартную вкладку, убрать стандартную группу, убрать стандартную вкладку. Добавить свою свои элементы в стандартную группу нельзя. Нельзя также поменять местами расположение групп во вкладке. Вернее, поменять местами можно в Office 2010, но эти настройки сохраняются глобально для всего приложения, а не для отдельного документа или шаблона.
Чтобы скрыть вкладку, нужно указать для неё idMso и задать значение false атрибуту visible:

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
3 <ribbon>
4 <tabs>
5 
6 <tab idMso="TabReviewWord" visible="false"/>
7 </tabs>
8 </ribbon>
9 </customUI>

Аналогично можно убрать стандартную группу из вкладки. Например, группу "Буфер обмена" с вкладки "Главная":

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
3 <ribbon>
4 <tabs>
5 <tab idMso="TabHome">
6 <group idMso="GroupClipboard" visible="false"/>
7 </tab>
8 </tabs>
9 </ribbon>
10 </customUI>

Также можно добавить свою группу на стандартную вкладку и задать её расположение атрибутом insertBeforeMso или insertAfterMso:

Копировать код без номеров строк

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 <ribbon>
   <tabs>
     <tab idMso="TabHome">
       <!-- Вставляем свою группу на вкладку "Главная" перед группой "Абзац" -->
       <group id="rxTabMain_gr1" label="Границы" insertBeforeMso="GroupParagraph">
         <box id="rxTabMain_gr1_box1" boxStyle="horizontal">
           <control idMso="BorderNone" showLabel="false" />
           <control idMso="BordersAll" showLabel="false" />
           <control idMso="BorderInside" showLabel="false" />
           <control idMso="BorderOutside" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box2" boxStyle="horizontal">
           <control idMso="BorderBottomWord" showLabel="false" />
           <control idMso="BorderTopWord" showLabel="false" />
           <control idMso="BorderLeftWord" showLabel="false" />
           <control idMso="BorderRightWord" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box3" boxStyle="horizontal">
           <control idMso="BorderInsideHorizontal" showLabel="false" />
           <control idMso="BorderInsideVertical" showLabel="false" />
           <control idMso="BorderDiagonalDown" showLabel="false" />
           <control idMso="BorderDiagonalUp" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box4" boxStyle="vertical">
           <control idMso="TableDrawTable" showLabel="false" />
           <control idMso="TableEraser" showLabel="false" />
           <control idMso="BorderColorPicker" showLabel="false" />
         </box>
         <dialogBoxLauncher>
           <button idMso="BordersShadingDialogWord" />
         </dialogBoxLauncher>
       </group>
     </tab>
   </tabs>
 </ribbon>
</customUI>

Создание вкладки с набором стандартных элементов управления

2010-02-09T13:48:00.000+02:00

Если вас не по каким-либо причинам не устраивает стандартное расположение элементов управления на "ленте" Word 2007-2010, то эта заметка для вас. Может показаться, что для Word 2010 это не актуально, но, как вы убедитесь, это далеко не так.
Элементы управления на ленту размещаются посредством редактирования XML-кода. Создайте пустой документ, сохраните его с расширением docx или docm, закройте его и откройте в программе Ribbon XML Editor (RXE). После открытия вы увидите пустую вкладку с названием 2007 (customUI.xml) (название вкладки можно увидеть в левом углу рабочей области).
Попробуем создать вот такую вкладку со стандартными элементами управления границами таблиц:

Сразу замечу, что создать такую группу стандартными средствами Word 2010 невозможно (по крайней мере я не сумел). У меня получился такой результат:

Конечно, это не то, что нужно. Поэтому оставим стандартные средства редактирования ленты на совести их разработчиков и займёмся делом.
Итак, перед нами в программе RXE пустое содержимое файла настройки интерфейса customUI.xml. Начинаем добавлять XML-код. RXE значительно упрощает этот процесс. Добавьте в рабочую область RXE такой код:

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
3 <ribbon>
4
5 </ribbon>
6 </customUI>

В первой строке расположена стандартная строка спецификации XML, определяющая версию XML и кодировку. Эта строка добавляется нажатием на кнопку . Тег customUI, начинающийся со второй строки и заканчивающийся на шестой, определяет пространство имён XML (XML namespace), в котором создаётся наш интерфейс. Этот тег добавляется кнопкой . Для интерфейса приложений Office существует общее пространство имён внутри каждого приложения: "http://schemas.microsoft.com/office/2006/01/customui". Благодаря этому пространству имён наш интерфейс может встраиваться в интерфейс приложения. Если вы заметили, то при добавлении кода с помощью кнопок панели управления курсор всегда располагается так, чтобы сразу начать вводить следующую часть кода.
Кнопкой добавим тег ribbon, указывающий, что мы формируем содержимое ленты. Для этого тега будет автоматически проставлен атрибут startFromScratch="false", указывающий, что не нужно убирать стандартные элементы интерфейса: вкладки и панель быстрого доступа.
Далее, добавляем вкладки кнопкой (тег tabs). При этом сразу добавятся теги tab и group, поскольку тег tabs может иметь дочерним тегом только тег tab; а тег tab, в свою очередь, может имеет только один дочерний тег: group. Если всё сделано правильно,то ваш код должен иметь такой вид:

Копировать код без номеров строк

1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
2 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
3 <ribbon>
4 <tabs>
5 <tab id="rxTabTable" label="Таблицы">
6 <group id="rxTabTable_gr1" label="Настройка границ">
7
8 </group>
9 </tab>
10 </tabs>
11 </ribbon>
12 </customUI>

Наконец-то, мы дошли до того момента, когда результат настройки интерфейса можно просмотреть. Сохраните документ в RXE и откройте его в Word, нажав кнопку . Документ откроется в Word и после всех стандартных вкладок в конце появится ваша собственная вкладка "Таблицы" с пустой группой "Границы". Если вы ничего подобного не видите, значит где-то допущена ошибка и придётся всё сделать с самого начала.
Теперь наполним нашу группу содержимым. При размещении элементов управления они располагаются в порядке следования снизу-вверх и слева-направо. Для изменения этого порядка, можно применять контейнеры box и buttonGroup. Откройте документ в RXE, поставьте курсор между начальным и конечным тегом group и вставьте контейнер box кнопкой . Для этого тега автоматически добавляются атрибуты id и boxStyle. Атрибут boxStyle определяет размещение дочерних элементов внутри контейнера и может иметь два значения: vertical и horizontal. Разместим в группе первые четыре стандартных кнопки: "Отключить границы", "Все границы", "Внутренние границы" и "Внешние границы":

Копировать код без номеров строк

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
 <tabs>
  <tab id="rxTabTable" label="Таблицы">
   <group id="rxTabMain_gr1" label="Границы">
    <box id="rxTabMain_gr1_box1" boxStyle="horizontal">
     <control idMso="BorderNone" showLabel="false" />
     <control idMso="BordersAll" showLabel="false" />
     <control idMso="BorderInside" showLabel="false" />
     <control idMso="BorderOutside" showLabel="false" />
    </box>
   </group>
  </tab>
 </tabs>
</ribbon>
</customUI>

Внутри контейнера box я разместил четыре соответствующих стандартных кнопки с помощью тега control, который можно добавить кнопкой . Этот тег как раз и предназначен для добавления стандартных элементов управления. В атрибуте idMso указывается стандартный идентификатор элемента управления. Список всех стандартных идентификаторов для приложений Office 2007 можно скачать отсюда. Атрибут showLabel используется для отображения или скрытия текста элемента управления.
Открыв этот документ в Word, мы увидим наши четыре стандартных кнопки расположенных в одну строку:

Понажимав на кнопки вы можете убедиться, что они работают совершенно также, как и на стандартных вкладках.
Аналогичным образом добавим ещё две строки по четыре кнопки в каждой:

Копировать код без номеров строк

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 <ribbon>
   <tabs>
     <tab id="rxTabTable" label="Таблицы">
       <group id="rxTabMain_gr1" label="Границы">
         <box id="rxTabMain_gr1_box1" boxStyle="horizontal">
           <control idMso="BorderNone" showLabel="false" />
           <control idMso="BordersAll" showLabel="false" />
           <control idMso="BorderInside" showLabel="false" />
           <control idMso="BorderOutside" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box2" boxStyle="horizontal">
           <control idMso="BorderBottomWord" showLabel="false" />
           <control idMso="BorderTopWord" showLabel="false" />
           <control idMso="BorderLeftWord" showLabel="false" />
           <control idMso="BorderRightWord" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box3" boxStyle="horizontal">
           <control idMso="BorderInsideHorizontal" showLabel="false" />
           <control idMso="BorderInsideVertical" showLabel="false" />
           <control idMso="BorderDiagonalDown" showLabel="false" />
           <control idMso="BorderDiagonalUp" showLabel="false" />
         </box>
       </group>
     </tab>
   </tabs>
 </ribbon>
</customUI>

Осталось добавить три кнопки, расположенные вертикально по правому краю группы, и маленький квадратик в правом нижнем углу группы, служащий для вызова диалогового окна "Границы и заливка". Три кнопки нужно также поместить в контейнер box, только для атрибута boxStyle нужно указать значение "vertical".
Маленький квадратик, служащий для вызова диалогового окна, добавляется тегом dialogBoxLauncher (кнопка ), имеющим атрибут idMso для указания идентификатора диалогового окна.
Результирующий код будет выглядеть так:

Копировать код без номеров строк

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 <ribbon>
   <tabs>
     <tab id="rxTabTable" label="Таблицы">
       <group id="rxTabMain_gr1" label="Границы">
         <box id="rxTabMain_gr1_box1" boxStyle="horizontal">
           <control idMso="BorderNone" showLabel="false" />
           <control idMso="BordersAll" showLabel="false" />
           <control idMso="BorderInside" showLabel="false" />
           <control idMso="BorderOutside" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box2" boxStyle="horizontal">
           <control idMso="BorderBottomWord" showLabel="false" />
           <control idMso="BorderTopWord" showLabel="false" />
           <control idMso="BorderLeftWord" showLabel="false" />
           <control idMso="BorderRightWord" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box3" boxStyle="horizontal">
           <control idMso="BorderInsideHorizontal" showLabel="false" />
           <control idMso="BorderInsideVertical" showLabel="false" />
           <control idMso="BorderDiagonalDown" showLabel="false" />
           <control idMso="BorderDiagonalUp" showLabel="false" />
         </box>
         <box id="rxTabMain_gr1_box4" boxStyle="vertical">
           <control idMso="TableDrawTable" showLabel="false" />
           <control idMso="TableEraser" showLabel="false" />
           <control idMso="BorderColorPicker" showLabel="false" />
         </box>
         <dialogBoxLauncher>
           <button idMso="BordersShadingDialogWord" />
         </dialogBoxLauncher>
       </group>
     </tab>
   </tabs>
 </ribbon>
</customUI>

А группа будет иметь такой вид:

Т.е. наша группа приобрела законченный вид. Единственным её отличием от желаемого вида в начале поста, является то, что вкладка расположена в самом конце, а не перед вкладкой "Главная". Это можно изменить, добавив атрибут insertBeforeMso, задав ему значение "TabHome". С учётом этих изменений тег tab будет иметь такой вид:

Копировать код без номеров строк

    5       <tab id="rxTabTable" label="Таблицы" insertBeforeMso="TabHome">

На этом, пожалуй, всё.

Вставка картинок в документ из выбранной папки (исправления)

2010-01-13T14:45:00.001+02:00

После тестирования этого предыдущего шаблона выяснилось, что логика работы флажков для вставки названия не совсем понятна. Учитывая это, я внёс изменения. Теперь группа выглядит так:

Если установить флажок «Вставлять название», то к вставляемому рисунку будет добавляться название, как обычно. Если установить флажок «Имя файла в названии», то в название будет добавляться имя файла. Если установить флажок «Не нумеровать», то постоянная часть и номер из названия будут удалены.
Кроме этих изменений, ускорена загрузка изображений в галерею и состояние элементов управления теперь запоминается.
Скачать шаблон можно отсюда.

Обновление редактора Ribbon XML Editor

2010-01-11T14:45:00.001+02:00

Рад сообщить, что Новиков Максим не забросил работу над своим редактором ленточного интерфейса, а совершенствует его и дальше.
В последней версии 2.2 реализован механизм генерирования процедур обратного вызова для динамических аттрибутов, открытие редактора из командной строки, настройка подсветки синтаксиса, улучшенные списки вставки статических и динамических атрибутов, проверка целостности xml-структуры, открытие редактируемого файла в соответствующем приложении офиса, много мелких доработок.
Сейчас Максим работает над третьей версией редактора, в которой будет реализована полная поддержка интерфейса для офис 2010, улучшенная навигация по структуре документа, проверка правильности вложения атрибутов.
По мере сил я помогаю Максиму в решении возникающих задач.
По-прежнему последнюю версию редактора можно скачать с этой страницы

Вставка картинок в документ из выбранной папки

2010-01-11T12:49:00.000+02:00

Я разработал шаблон, упрощающий процедуру вставки в документ изображений из указанной папки. При загрузке шаблона появляется дополнительная группа на вкладке «Вставка»

Возможности:

Выбор папки, из которой нужно часто вставлять изображения.

Просмотр эскизов изображений в галерее.

Обрабатываются (пока) только изображения форматов: "png", "jpg", "jpeg", "bmp", "gif".

Всплывающая подсказка к каждому изображению содержит имя файла, размеры изображения и разрешение по горизонтали и по вертикали.

Вставка изображений в заданном режиме: в текст или с обтеканием.

Автоматическая вставка названия к изображению с нумерацией или без.

Автоматическая вставка имени файла в название к изображению.

В раскрытом виде галерея может выглядеть так:

Галерея имеет фиксированное количество столбцов (5), количество строк зависит от количества изображений в выбранной папке.
Скачать шаблон можно отсюда
С точки зрения работы с лентой, этот шаблон интересен несколькими моментами. Во-первых, в нём реализована загрузка на ленту не только изображений bmp, но и других форматов.
Это стало возможным благодаря использованию функций GDI+. За основу взяты примеры для книги RibbonX: Customizing the Office 2007 Ribbon, которые можно скачать отсюда
Дело в том, что для отображения на ленте Office понимает только один формат изображения IPictureDisp. Получить этот формат изображения из файла можно функцией LoadPicture. Но она может загружать только изображения bmp. В шаблоне используется похожая функция LoadImage, описанная в модуле GDIPlusAPI. Код модуля выглядит так:

Модуль GDIPlusAPI Копировать код без номеров строк

Attribute VB_Name = "GDIPlusAPI"
Option Private Module
Option Explicit

Public Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Public Declare Function GdipCreateBitmapFromFile Lib "gdiplus" (ByVal filename As Long, bitmap As Long) As GpStatus
Public Declare Function GdipCreateHBITMAPFromBitmap Lib "gdiplus" (ByVal bitmap As Long, hbmReturn As Long, ByVal background As Long) As GpStatus
Public Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As GpStatus
Public Declare Function GdiplusShutdown Lib "gdiplus" (ByVal token As Long) As Long
Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Public Declare Function GdipGetImageDimension Lib "gdiplus" (ByVal image As Long, Width As Single, Height As Single) As GpStatus
Public Declare Function GdipGetImageWidth Lib "gdiplus" (ByVal image As Long, Width As Long) As GpStatus
Public Declare Function GdipGetImageHeight Lib "gdiplus" (ByVal image As Long, Height As Long) As GpStatus
Public Declare Function GdipGetImageHorizontalResolution Lib "gdiplus" (ByVal image As Long, resolution As Single) As GpStatus
Public Declare Function GdipGetImageVerticalResolution Lib "gdiplus" (ByVal image As Long, resolution As Single) As GpStatus
Public Declare Function GdipGetImageThumbnail Lib "gdiplus" (ByVal image As Long, ByVal thumbWidth As Long, ByVal thumbHeight As Long, thumbImage As Long, _
                       Optional ByVal callback As Long = 0, Optional ByVal callbackData As Long = 0) As GpStatus
Public Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal filename As String, image As Long) As GpStatus

Public Enum GpStatus
 OK = 0
 GenericError = 1
 InvalidParameter = 2
 OutOfMemory = 3
 ObjectBusy = 4
 InsufficientBuffer = 5
 NotImplemented = 6
 Win32Error = 7
 WrongState = 8
 Aborted = 9
 FileNotFound = 10
 ValueOverflow = 11
 AccessDenied = 12
 UnknownImageFormat = 13
 FontFamilyNotFound = 14
 FontStyleNotFound = 15
 NotTrueTypeFont = 16
 UnsupportedGdiplusVersion = 17
 GdiplusNotInitialized = 18
 PropertyNotFound = 19
 PropertyNotSupported = 20
End Enum

Public Type GUID
 Data1 As Long
 Data2 As Integer
 Data3 As Integer
 Data4(0 To 7) As Byte
End Type

Public Type PICTDESC
 Size As Long
 Type As Long
 hPic As Long
 hPal As Long
End Type

Public Type GdiplusStartupInput
 GdiplusVersion As Long
 DebugEventCallback As Long
 SuppressBackgroundThread As Long
 SuppressExternalCodecs As Long
End Type


Public Function LoadImage(ByVal strFName As String) As IPicture
 Dim uGdiInput As GdiplusStartupInput
 Dim hGdiPlus As Long
 Dim hGdiImage As Long
 Dim hBitmap As Long
 Dim imgThumb As Long
 Dim imgHeight As Single, imgWidth As Single
 uGdiInput.GdiplusVersion = 1

 'Запускаем GDI+
 If GdiplusStartup(hGdiPlus, uGdiInput) = OK Then
   'Создаём изображение в памяти
   If GdipCreateBitmapFromFile(StrPtr(strFName), hGdiImage) = OK Then
     'Получаем размеры изображения
     Call GdipGetImageDimension(hGdiImage, imgWidth, imgHeight)
     'Делаем из изображения уменьшенное
     Call GdipGetImageThumbnail(hGdiImage, ItemWidth, ItemWidth * imgHeight / imgWidth, imgThumb)
     'Указатель на изображение
     Call GdipCreateHBITMAPFromBitmap(imgThumb, hBitmap, 0)
     'Конвертируем изображение в IPicture
     Set LoadImage = ConvertToIPicture(hBitmap)
     GdipDisposeImage hGdiImage
   End If
   GdiplusShutdown hGdiPlus
 Else
   MsgBox "Ошибка при загрузке GDI+!", vbCritical
 End If

End Function

Public Function ConvertToIPicture(ByVal hPic As Long) As IPicture

 Dim uPicInfo As PICTDESC
 Dim IID_IDispatch As GUID
 Dim IPic As IPicture

 Const PICTYPE_BITMAP = 1

 With IID_IDispatch
   .Data1 = &H7BF80980
   .Data2 = &HBF32
   .Data3 = &H101A
   .Data4(0) = &H8B
   .Data4(1) = &HBB
   .Data4(2) = &H0
   .Data4(3) = &HAA
   .Data4(4) = &H0
   .Data4(5) = &H30
   .Data4(6) = &HC
   .Data4(7) = &HAB
 End With

 With uPicInfo
   .Size = Len(uPicInfo)
   .Type = PICTYPE_BITMAP
   .hPic = hPic
   .hPal = 0
 End With

 OleCreatePictureIndirect uPicInfo, IID_IDispatch, True, IPic

 Set ConvertToIPicture = IPic
End Function


Загрузка изображений происходит в модуле RibbonCallbacks в процедуре getItemImage, которая, в свою очередь, определена в XML-схеме для галереи.

Загрузка изображений для элементов галереи Копировать код без номеров строк

'galleryImagesFromFolder (компонент: gallery, атрибут: getItemImage)
Sub getItemImage(control As IRibbonControl, index As Integer, ByRef image)
 If ImagesCount = 0 Then Exit Sub
 Set image = LoadImage(arImagePaths(index))
End Sub

В этой процедуре arImagePaths — массив с путями к файлам изображений, index — номер элемента в галерее.

Во-вторых, на примере данного шаблона можно понять как работает механизм изменения состояния одних элементов ленты в зависимости от состояния других. Начнём с XML-схемы трёх флажков, расположенных в правой части группы, которые определяют правила вставки названия к вставляемому изображению.

XML-код флажков Копировать код без номеров строк

51 
52 <separator id="sep1" />
53 <checkBox id="chbInsertImageWithCaption"
54 label="Вставлять название"
55 supertip="Установите этот флажок, чтобы автоматически вставлять подпись к вставляемому рисунку."
56 onAction="chb_onAction" />
57 <checkBox id="chbUsePathInCaption"
58 label="Имя файла в названии"
59 supertip="Установите этот флажок, чтобы подпись к вставляемому рисунку содержала имя файла рисунка."
60 getEnabled="getEnabled"
61 onAction="chb_onAction" />
62 <checkBox id="chbNumberImage"
63 label="Нумеровать изображение"
64 supertip="Установите этот флажок, чтобы автоматически нумеровать вставляемое изображение."
65 getPressed="chb_getPressed"
66 getEnabled="getEnabled"
67 onAction="chb_onAction" />

У всех трёх флажков определён один общий динамический атрибут onAction, определяющий процедуру, которая выполняется при клике на соответствующем флажке. Двум последним флажкам задан атрибут getEnabled, определяющий процедуру, изменяющую активность этих флажков. Активность этих флажков меняется в зависимости от состояния первого флажка.
И, наконец, у третьего флажка задан атрибут getPressed, определяющий процедуру, изменяющую состояние флажка.
Теперь посмотрим, как это реализовано в VBA:

Процедура getEnabled Копировать код без номеров строк

29 'galleryImagesFromFolder (компонент: gallery, атрибут: getEnabled)
30 'chbUsePathInCaption (компонент: checkBox, атрибут: getEnabled)
31 'chbUsePathInCaption (компонент: checkBox, атрибут: onAction)
32 'chbNumberImage (компонент: checkBox, атрибут: getEnabled)
33 Sub getEnabled(control As IRibbonControl, ByRef enabled)
34 Select Case control.ID
35 Case "chbUsePathInCaption"
36 enabled = chbInsertImageWithCaptionChecked
37 Case "chbNumberImage"
38 enabled = chbInsertImageWithCaptionChecked
39 Case Else
40 enabled = CBool(ImagesCount)
41 End Select
42 End Sub

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

Процедура chb_onAction Копировать код без номеров строк

110 'chbInsertImageWithCaption (компонент: checkBox, атрибут: onAction)
111 'chbUsePathInCaption (компонент: checkBox, атрибут: onAction)
112 'chbNumberImage (компонент: checkBox, атрибут: getPressed)
113 Sub chb_onAction(control As IRibbonControl, pressed As Boolean)
114 Select Case control.ID
115 Case "chbUsePathInCaption"
116 chbUsePathInCaptionChecked = pressed
117 Case "chbNumberImage"
118 chbNumberImageChecked = pressed
119 Case "chbInsertImageWithCaption"
120 chbInsertImageWithCaptionChecked = pressed
121 If Not myRibbon Is Nothing Then
122 myRibbon.InvalidateControl "chbUsePathInCaption"
123 myRibbon.InvalidateControl "chbNumberImage"
124 Else
125 MsgBox "Связь с пользовательским интерфейсом customUI утеряна. Попробуйте переоткрыть документ, или переподключить шаблон", vbInformation + vbOKOnly
126 End If
127 End Select
128 End Sub

В этой процедуре, также с помощью селективного оператора, определяется флажок, на котором щёлкнул пользователь и состояние этого флажка, переданное параметром pressed, записывается в соответствующую глобальную переменную. Кроме того, если сработал первый флажок, то обновляется состояние остальных двух.

Процедура chb_getPressed Копировать код без номеров строк

140 'chbNumberImage (компонент: checkBox, атрибут: getPressed)
141 Sub chb_getPressed(control As IRibbonControl, ByRef returnValue)
142 returnValue = chbNumberImageChecked
143 End Sub

Здесь всё просто: состояние флажка, на которое ссылается переменная returnedValue, устанавливается в соответствии со значением глобальной переменной. Здесь не используется селективный оператор, поскольку эта процедура вызывается только для одного флажка.

Замечания и пожелания приветствуются.

Динамическое меню (продолжение 3)

2009-06-14T12:18:00.001+03:00

В своей заметке я привел пример динамического меню для работы с закладками в документе. Как это обычно бывает, первый блин оказался комом. Меню, хотя и работало, не было избавлено от недостатков.
При большом количестве закладок в документе в нем было трудно ориентироваться. Попал мне в руки документ, в котором было более 200 закладок. Меню сформировалось, но найти в нем нужную закладку было довольно сложно. Поэтому я решил доработать это меню, расширив его функциональность и сделав более удобным в эксплуатации.
Что было сделано:

Добавлена возможность сортировки списка закладок по алфавиту или по положению в документе

Добавлена кнопка включения/выключения отображения закладок. Спасибо за идею Антону Кокину

После имени закладки добавляются первые 10 символов из текста закладки

На кнопке «Управление закладками» в скобках отображается количество закладок.

В подсказке к каждой закладке в меню отображается полный её текст.

Выглядит меню так:

Скачать шаблон с примером можно отсюда
При совершенствовании меню самой неожиданной стала проблема с формированием текста пунктов меню и всплывающей подсказки. Дело в том, что если в тексте закладки есть символы, которые в языке XML рассматриваются как служебные, то это вызовет ошибку. К таким символам относятся: двойная кавычка «"», одинарная кавычка «'», знаки больше «>» и меньше «<», квадратные скобки «[]», двойное тире «--». Я решил эту проблему, написав функцию, которая заменяет все эти символы на их ASCII-код так, чтобы они могли правильно отображаться в меню. Вот код этой функции:

Замена литералов на сущности Копировать код без номеров строк

Public Function GetRightXMLString(ByVal str As String) As String
'
'Замена в строке XML спецсимволов на их коды
'
 Dim ar(), i%
 ar = Array("""", "<", ">", "[", "]", "'", "-", vbTab, vbCr, vbCrLf, vbLf)
 For i = 0 To UBound(ar)
   str = Replace(str, ar(i), "&#" & AscW(ar(i)) & ";")
 Next
   str = Replace(Replace(str, ChrW(7), ""), ChrW(21), "")
 GetRightXMLString = CleanString(str)
End Function

Нет предела совершенству

2009-02-10T15:06:00.000+02:00

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

Динамическое меню (продолжение 2)

2009-01-06T16:44:00.000+02:00

Теперь поговорим о динамическом меню для макросов. Здесь я описал функции, которые помогают в составлении этого меню. Здесь подробнее об XML-начинке.
Вот так выглядит результат:

В XML-схеме шаблона меню задано так:

Динамическое меню для макросов Копировать код без номеров строк

1 <dynamicMenu id="DynMenuGetMacroAuto"
2 label="Авто Макросы"
3 getContent="DynMenuGetMacroAuto_GetContent"
4 screentip="Макросы, доступные для выполнения"
5 supertip="Динамическое меню, которое составляется автоматически.Если документ еще ни разу не сохранялся, то перед открытием меню документ нужно обязательно сохранить. Иначе это вызовет ошибку."/>

И наконец, само формирование меню (getContent)

Формирование динамического меню с макросами Копировать код без номеров строк

Sub DynMenuGetMacroAuto_GetContent(control As IRibbonControl, ByRef content)
'
'Формирование динамического меню со всеми макросами, доступными для данного документа
'
 Dim sXML As String 'строка, в которую записывается содержимое динамического меню
 Dim i, j, IDcounter As Integer 'счетчики циклов и идентификаторов компонентов
 Dim asModulesNames, asFuncNames As Variant 'массивы для хранения имен функций и модулей
'Начало формирования динамического меню
 sXML = "<menu xmlns=""" & "http://schemas.microsoft.com/office/2006/01/customui" & """>" & vbCr
'--------------------------
'Кнопка «Обновить»
'--------------------------
 sXML = sXML & vbTab & _
         "<button id=""RefreshDynMenu"" " & _
           "label=""Обновить"" " & _
           "screentip=""Обновить содержимое этого меню"" " & _
           "supertip=""Нажмите для обновления содержимого меню. &#13;Это необходимо делать, " & _
             "если вы изменяете проект Visual Basic для данного документа. Или присоединяете " & _
             "новые шаблоны."" " & _
           "onAction=""RefreshDynMenu_OnAction"" " & _
           "imageMso=""RecurrenceEdit""/>" & vbCr & vbTab & _
         "<menuSeparator id=""MenuSep1""/>" & vbCr
'----------------------------------------------------------------------
'Формирование пунктов меню для каждого доступного шаблона с макросами
'----------------------------------------------------------------------
 Dim oTemplate As Object 'объект для шаблона из которого будут читаться макросы
 Dim bLockedProjOpened As Boolean 'флаг для определения состояния шаблона: закрыт он или открыт для чтения
 For Each oTemplate In Application.templates
   bLockedProjOpened = False
   If oTemplate.VBProject.Protection = vbext_pp_locked Then
     Set oTemplate = Application.Documents.Open(oTemplate.FullName, ReadOnly:=True)
     bLockedProjOpened = True
   End If
'Записываем строку, начинающую меню для каждого шаблона.
'Пробелы для идентификаторов заменяем на нижнее подчеркивание.
   sXML = sXML & vbTab & _
           "<menu id=""ID_" & Replace(oTemplate.Name, " ", "_") & IDcounter & """ " & _
             "label=""Макросы из «" & oTemplate.Name & "»""> " & vbCr
'Счетчик для идентификаторов
   IDcounter = IDcounter + 1
'Попытка прочитать имена программных модулей из указанного шаблона
   On Error Resume Next
   asModulesNames = fGetModulesNames(oTemplate) 'читаем программные модули из шаблона и записываем их в наш массив
'Если произошла ошибка при чтении модулей, то выводится сообщение и процедура прерывается.
   If Err.Number <> 0 Then
     MsgBox "Не удалось прочитать список модулей из " & oTemplate.Name, vbOKOnly, "Ошибка при формировании меню"
     Err.Clear
     Exit Sub
   End If
   For j = 0 To UBound(asModulesNames)
'Разделитель меню для каждого программного модуля в проекте шаблона.
     sXML = sXML & vbTab & vbTab & _
             "<menuSeparator id=""ID_" & Replace(oTemplate.Name, " ", "_") & IDcounter & """ " & _
               "title=""" & asModulesNames(j) & """/> " & vbCr
     IDcounter = IDcounter + 1
'Попытка прочитать имена функций из указанного шаблона указанного модуля.
     On Error Resume Next
     asFuncNames = fGetFuncNames(oTemplate, oTemplate.VBProject.VBComponents(asModulesNames(j)))
'Если произошла ошибка при чтении имен функций, то выводится сообщение и процедура прерывается.
     If Err.Number <> 0 Then
       MsgBox "Не удалось прочитать список функций из модуля " & asModulesNames(j) & _
         " шаблона " & oTemplate.Name, vbOKOnly, "Ошибка при формировании меню"
       Err.Clear
       Exit Sub
     End If
     For i = 0 To UBound(asFuncNames)
'Создаем кнопку в меню, которая запускает соответствующий макрос. Путь к макросу записываем в свойство
'«tag». При вызове макроса «onAction» свойство «tag» передается в качестве аргумента. Свойство «tag»
'записываем в виде ‹имя_проекта›.‹имя_модуля›.‹имя_макроса›. Это позволяет запускать любые макросы из
'загруженных проектов.
       sXML = sXML & vbTab & vbTab & _
               "<button id=""menubtn_" & asModulesNames(j) & IDcounter & """ " & _
                 "label=""" & asFuncNames(i) & """ " & _
                 "tag=""" & oTemplate.VBProject.Name & "." & asModulesNames(j) & "." & asFuncNames(i) & """ " & _
                 "onAction=""MyButtonAction""" & "/>" & vbCr
       IDcounter = IDcounter + 1
     Next i
   Next j
'Заканчиваем формирование меню с макросами для данного шаблона
   sXML = sXML & vbTab & "</menu>" & vbCr
'Проверяем открывался ли закрытый для просмотра документ. Если да, то закрываем его.
   If bLockedProjOpened Then
     oTemplate.Close
   End If
 Next oTemplate
'Добавляем стандартные кнопки управлением средой Visual Basic через разделитель
 sXML = sXML & vbTab & _
       "<menuSeparator id=""MenuSep2"" title=""Visual Basic for Application""/>" & vbCr & vbTab & _
       "<control idMso=""MacroPlay"" showLabel=""false""/>" & vbCr & vbTab & _
       "<control idMso=""MacroRecordOrStop"" showLabel=""false""/>" & vbCr & vbTab & _
       "<control idMso=""MacroRecorderPause"" showLabel=""false""/>" & vbCr & vbTab & _
       "<control idMso=""VisualBasic"" showLabel=""false""/>" & vbCr
'Завершаем формирование меню
 content = sXML & "</menu>"
'Отладочные строки. Нужны для просмотра готового кода в редакторе XML. При нормальной работе эти строки
'нужно закомментировать.
''''''''''''''''''''''''  Selection.InsertAfter content
''''''''''''''''''''''''  Selection.Cut

Итак, что же происходит?
Сначала добавляем кнопку «Обновить». Это, я полагаю, стандартный шаг для любого динамического меню, т.к. его всегда полезно лишний раз обновить.
Затем вставляем разделитель и формируем вложенные меню для каждого шаблона, доступного для документа. Стоит отметить, что этот этап может вызывать некоторую задержку при формировании, т.к. макросы могут читаться из шаблонов, код которых недоступен для просмотра, но доступен для выполнения. Чтобы добраться до макросов такого закрытого шаблона, он временно открывается для чтения, из него читаются макросы, и он тут же закрывается.
В каждом вложенном меню мы создаем разделители меню с названием модуля, а под этим разделителем — макросы из этого модуля.
Полностью сформированный код динамического меню выглядит так (чтобы его получить нужно раскомментировать строки 97 и 98):

Формирование динамического меню с макросами Сформированное динамическое меню

<menu xmlns="http://schemas.microsoft.com/office/2006/01/customui">
 <button id="RefreshDynMenu" label="Обновить" screentip="Обновить содержимое этого меню" supertip="Нажмите для обновления содержимого меню. &#13;Это необходимо делать, если вы изменяете проект Visual Basic для данного документа. Или присоединяете новые шаблоны." onAction="RefreshDynMenu_OnAction" imageMso="RecurrenceEdit"/>
 <menuSeparator id="MenuSep1"/>
 <menu id="ID_Шаблон_с_панелью_инструментов_и_макросами.dotm0" label="Макросы из «Шаблон с панелью инструментов и макросами.dotm»">
   <menuSeparator id="ID_Шаблон_с_панелью_инструментов_и_макросами.dotm1" title="Macroses"/>
   <button id="menubtn_Macroses2" label="ФормулаСНумерацией" tag="ПроектСМакросамиИЛентой.Macroses.ФормулаСНумерацией" onAction="MyButtonAction"/>
   <button id="menubtn_Macroses3" label="ВзятьВКавычки" tag="ПроектСМакросамиИЛентой.Macroses.ВзятьВКавычки" onAction="MyButtonAction"/>
   <button id="menubtn_Macroses4" label="УвеличитьШрифт" tag="ПроектСМакросамиИЛентой.Macroses.УвеличитьШрифт" onAction="MyButtonAction"/>
   <button id="menubtn_Macroses5" label="УменьшитьШрифт" tag="ПроектСМакросамиИЛентой.Macroses.УменьшитьШрифт" onAction="MyButtonAction"/>
   <button id="menubtn_Macroses6" label="СделатьРимскойЦифрой" tag="ПроектСМакросамиИЛентой.Macroses.СделатьРимскойЦифрой" onAction="MyButtonAction"/>
 </menu>
 <menu id="ID_Normal.dotm7" label="Макросы из «Normal.dotm»">
   <menuSeparator id="ID_Normal.dotm8" title="ThisDocument"/>
   <button id="menubtn_ThisDocument9" label="Формула_с_нумерацией" tag="Normal.ThisDocument.Формула_с_нумерацией" onAction="MyButtonAction"/>
   <button id="menubtn_ThisDocument10" label="ВзятьВКавычки" tag="Normal.ThisDocument.ВзятьВКавычки" onAction="MyButtonAction"/>
   <button id="menubtn_ThisDocument11" label="УвеличитьШрифт" tag="Normal.ThisDocument.УвеличитьШрифт" onAction="MyButtonAction"/>
   <button id="menubtn_ThisDocument12" label="УменьшитьШрифт" tag="Normal.ThisDocument.УменьшитьШрифт" onAction="MyButtonAction"/>
   <menuSeparator id="ID_Normal.dotm13" title="NewMacros"/>
   <button id="menubtn_NewMacros14" label="BigCardText" tag="Normal.NewMacros.BigCardText" onAction="MyButtonAction"/>
   <button id="menubtn_NewMacros15" label="EndOfWord" tag="Normal.NewMacros.EndOfWord" onAction="MyButtonAction"/>
   <button id="menubtn_NewMacros16" label="СделатьРимскойЦифрой" tag="Normal.NewMacros.СделатьРимскойЦифрой" onAction="MyButtonAction"/>
   <button id="menubtn_NewMacros17" label="Макрос2" tag="Normal.NewMacros.Макрос2" onAction="MyButtonAction"/>
 </menu>
 <menuSeparator id="MenuSep2" title="Visual Basic for Application"/>
 <control idMso="MacroPlay" showLabel="false"/>
 <control idMso="MacroRecordOrStop" showLabel="false"/>
 <control idMso="MacroRecorderPause" showLabel="false"/>
 <control idMso="VisualBasic" showLabel="false"/>
</menu>

Как видно из этого кода в свойстве tag прописан полный путь к макросу, что позволяет его запускать из любого открытого документа.
Естественно, что для вашего случая код динамического меню будет другой.

Динамическое меню (продолжение)

2009-01-05T08:41:00.000+02:00

Оказывается, что формировать ленту на лету не только можно, но и чрезвычайно полезно.
Я решил, по примеру Антона Кокина сделать свое меню для работы с закладками, только в версии для Word2007.
Сказано — сделано.
Вот что получилось:

При добавлении закладки в документ меню обновляется и имя закладки появляется внизу списка. Щелчок на имени приводит к переходу на эту закладку. В подменю «Управление закладками» появляются пункты, позволяющие удалить нужную закладку. Например, вот так:

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

Создать динамическое меню в схеме документа при помощи RibbonXMLEditor

В этом меню определить макрос, который отвечает за наполнение меню содержимым

Написать сам макрос в документе, или, что намного лучше, в шаблоне.

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

XML-код для динамического меню закладок Копировать код без номеров строк

1 <dynamicMenu id="DynMenu"
2 label="Закладки"
3 getContent="DynMenuGetBookmarks_GetContent"/>

В шаблоне, где мы делаем все манипуляции с ленточным интерфейсом, пишем код макроса DynMenuGetBookmarks_GetContent. Код этот довольно сложен для восприятия с первого раза, но, разобравшись, он не представляет трудностей.

Макрос формирования меню с закладками документа Копировать код без номеров строк

Sub DynMenuGetBookmarks_GetContent(control As IRibbonControl, ByRef content)
'
'Формирование меню с закладками документа
'
 Dim sXML As String
 Dim i As Integer
 Set bm = ActiveDocument.Bookmarks
 sXML = "<menu xmlns=""" & "http://schemas.microsoft.com/office/2006/01/customui" & """>" & vbCr
'--------------------------
'Кнопка «Обновить»
'--------------------------
 sXML = sXML & _
   "<button id=""RefreshDynMenu"" " & _
   "label=""Обновить"" " & _
   "onAction=""RefreshDynMenu_OnAction"" " & _
   "imageMso=""RecurrenceEdit""/>" & vbCr
'--------------------------
'Меню «Управление закладками»
'--------------------------
 sXML = sXML & _
   "<menu id=""ManageBookMarks"" " & _
         "label=""Управление закладками"" " & _
         "imageMso=""ControlToolboxOutlook"">" & vbCr & _
     "<button id=""menu_AddBookmark"" " & _
           "label=""Добавить закладку"" " & _
           "onAction=""menu_AddBookmark_onAction""/>" & vbCr & _
     "<menuSeparator id=""MenuSep2"" title=""Удалить закладки""/>" & vbCr
'--------------------------
'Кнопки Удаления закладок
'------------------------
     For i = 1 To bm.count
       sXML = sXML & _
         "<button id=""delbm" & i & """ " & _
         "label=""" & bm.Item(i).Name & """ " & _
         "onAction=""" & "delbm_onAction"" " & _
         "imageMso=""OutlineCollapse"" " & _
         "tag=""" & bm.Item(i).Name & """ />" & vbCr
     Next i
     sXML = sXML & "</menu>" & vbCr
'--------------------------
'Разделитель
'--------------------------
 sXML = sXML & _
   "<menuSeparator id=""MenuSep1"" title=""Существующие в документе закладки""/>" & vbCr
'--------------------------
'Кнопки с именами закладок
'--------------------------
 If bm.count = 0 Then
   sXML = sXML & _
       "<button id=""NoBookmarks"" " & _
       "label=""В документе нет ни одной закладки""" & " />" & vbCr
 Else
   For i = 1 To bm.count
     sXML = sXML & _
       "<button id=""bm" & i & """ " & _
       "label=""" & bm.Item(i).Name & """ " & _
       "imageMso=""FrontPageToggleBookmark"" " & _
       "onAction=""" & "GoToBookmark"" " & _
       "tag=""" & bm.Item(i).Name & """ />" & vbCr
   Next i
 End If
 content = sXML & "</menu>" 'возвращаем значение в компонент
End Sub

Как видно первой создается кнопка «Обновить» и для нее назначается макрос RefreshDynMenu_OnAction, который обновляет меню.

Обновление меню Копировать код без номеров строк

1 Sub RefreshDynMenu_OnAction(control As IRibbonControl)
2 '
3 'Обновление динамического меню
4 '
5 CustomRibbon.Invalidate
6 End Sub

При удалении закладки меню обновляется автоматически, но не без нашего участия. Чтобы эта автоматика работала, мы при создании меню «Управление закладками» создаем кнопки, которые отвечают за удаление той или иной закладки. Имя закладки пишем в свойство tag. Удаление закладки происходит при выполнении макроса delbm_onAction

Удаление закладки из меню Копировать код без номеров строк

1 Public Sub delbm_onAction(control As IRibbonControl)
2 '
3 'Удаление закладки при выборе ее в соответствующем меню
4 '
5 bm.Item(control.Tag).Delete
6 CustomRibbon.Invalidate
7 End Sub

Также при выполнении макроса GoToBookmark осуществляется переход к выбранной закладке.

Переход к закладке Копировать код без номеров строк

1 Sub GoToBookmark(control As IRibbonControl)
2 '
3 'Переход к закладке
4 '
5 On Error Resume Next
6 Selection.GoTo What:=wdGoToBookmark, Name:=control.Tag
7 If Err.Number <> 0 Then
8 MsgBox "Не удалось перейти к закладке «" & control.Tag & "»", vbOKOnly
9 End If
10 End Sub

Для добавления закладки вызывается стандартный диалог работы с закладками

Добавление закладки Копировать код без номеров строк

1 Public Sub menu_AddBookmark_onAction(control As IRibbonControl)
2 '
3 'Появление окна для добавления закладки в документ
4 '
5 Dialogs(wdDialogInsertBookmark).Show
6 CustomRibbon.Invalidate
7 End Sub

При любых действиях с закладками вызывается метод CustomRibbon.Invalidate, который обновляет содержимое ленты.
С закладками получилось все довольно просто. Теперь другая задача стоит: как сформировать динамическое меню из доступных для выполнения макросов, которые можно запустить через стандартное диалоговое окно по Alt+F8? Сразу скажу, что в черновом варианте эту задачу я уже решил. Подробности далее в публикациях.

Динамические меню

2008-12-29T05:17:00.001+02:00

Стало мне интересно: «А можно формировать код ленты на лету?» На это меня натолкнул Антон Кокин с «Шаблоном для работы с закладками»

Обновление ленты в зависимости от внешних условий

2008-12-27T21:31:00.000+02:00

Вчера разговор закончился на том, что была поставлена задача об обновлении данных в поле ввода при изменении выбора.
Решается это так. Для начала нужно научиться ловить события, которые генерирует Word. В нашем случае нужно определять, что пользователь изменил набор выбранных объектов. При этом генерируется событие WindowSelectionChange. Как его ловить? Это подробно описано в моем блоге, посвященном макросам.
Здесь же мы подробно рассмотрим вопрос, связанный с обновлением информации на ленте.
Итак. Чтобы работала обратная связь с лентой, код XML, который описывает ленту, нужно доработать.
Во-первых, нужно добавить событие onLoad. Делается это так:

Процедура onLoad Копировать код без номеров строк

1 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
2 onLoad="LoadRibbon">

Во-вторых, добавить в наше поле событие getText:

Событие getText Копировать код без номеров строк

1 <editBox id="SetLineSpacing"
2 onChange="УстановитьМежстрочныйИнтервал"
3 sizeString="3"
4 screentip="Установить междустрочный интервал"
5 supertip="Укажите число для междустрочного интервала.Для одинарного указать 1,5, для двойного — 2 и т.д.Значение интервала применяется к выделенному тексту."
6 getText="SetLineSpacing_GetText"/>

Этот код отличается от того, что я приводил раньше, но не принципиально. Я сделал имена макросов более понятными, чтобы не путаться. Параметр sizeString определяет длину поля ввода в символах.
Событие getText отвечает как раз за управление содержимым поля ввода.
В-третьих, нужно правильно написать обработчики событий onLoad и getText. Я это сделал так:

Обработчики событий ленты onLoad и getText Копировать код без номеров строк

1 Public CustomRibbon As IRibbonUI 'указатель для хранения ссылки на ленту. Здесь необязателен, но рекомендуется
2 Dim MyEvents As New EventClassModule 'конструктор класса для отслеживания событий
3
4 Sub LoadRibbon(ribbon As IRibbonUI) 'загружаем ленту
5 Set CustomRibbon = ribbon 'создаем указатель на ленту
6 ribbon.Invalidate 'обновляем ленту
7 Set MyEvents.App = Word.Application 'перенаправляем события из приложения в наш класс.
8 End Sub
9
10 Sub SetLineSpacing_GetText(control As IRibbonControl, ByRef text)
11 text = PointsToLines(Selection.ParagraphFormat.LineSpacing) 'устанавливаем в поле ввода значение межстрочного интервала выделенного абзаца.
12 End Sub

Еще раз напомню, что узнать о том, как работать с событиями приложения можно здесь.

Получение данных из текстового поля

2008-12-27T01:02:00.000+02:00

При работе с текстовыми документами мне часто приходится изменять междустрочный интервал. Постоянно открывать для этого соответствующее меню мне надоело. Поэтому я подумал:«А как сделать, чтобы интервал задавать числом? 2 — для двойного интервала, 1 — для одинарного, или просто конкретное значение?»
Во-первых, поместить на ленту поле editbox.
Вот так, например:

Код для вставки поля для редактирования Копировать код без номеров строк

1 <editBox id="__SetLineSpacing"
2 onChange="Macroses.УстановитьМежстрочныйИнтервал"
3 supertip="Укажите число для междустрочного интервала"/>

Во-вторых, написать код макроса, который бы брал текст из поля и соответственно устанавливал междустрочный интервал. Довольно долгие поиски дали вот такой результат (с этого сайта):

Код VBA Копировать код без номеров строк

Sub УстановитьМежстрочныйИнтервал(editbox As IRibbonControl, text As String)
   Selection.ParagraphFormat.LineSpacing = LinesToPoints(Val(text))
End Sub

Как видно код очень даже не сложный, но очень сложно вообще откопать информацию, особенно на русском языке, по работе с новым интерфейсом. На MSDN при вводе в поле поиска фразы «ribbon vba» страница просто закрывалась. Прямо масонский заговор
Итак, весь секрет заключался в параметре text, который очень не очевиден, и просто объявляется.
Теперь задача в другом: как выставлять значение в этом поле в соответствии со строчным интервалом уже выделенного текста? И все это только средствами VBA.

2008-12-25T08:48:00.000+02:00

Возникает вопрос: как все это получилось?
Само создание панели инструментов на ленте не представляет особой сложности и довольно подробно рассмотрено на уже упомянутом сайте Максима Новикова.
А как же прикрутить к нему собственные кнопки или меню, которые должны выполнять мои собственные макросы?
Начнем по порядку.
Во-первых, нужно создать кнопку, или любой другой элемент, который должен запускать на выполнение определенный макрос.
Во-вторых, нужно указать параметр onAction, в котором определить имя макроса, который, собственно и должен запускаться при нажатии на данную кнопку или пункт меню, что в общем-то одно и тоже.
В-третьих, написать правильно сам макрос.
Вот меню, которое я использую постоянно в своей работе. Оно еще не содержит всех пунктов, которые мне нужны, но уже работает.

Меню и код к нему Копировать код без номеров строк

1 <menu id="__MyMacroses" label="Макросы">
2 <menuSeparator id="__Separator1" title="Вставка в документ" />
3 <button id="InsertQuotes"
4 label="Взять в кавычки"
5 image="QUOTES.png"
6 onAction="MyButtonAction"
7 tag="Macroses.ВзятьВКавычки"
8 supertip="Выделенный текст заключается в угловые кавычки."/>
9 <button id="ConvertToRoman"
10 label="Сделать римской цифрой"
11 image="roman.png"
12 onAction="MyButtonAction"
13 tag="Macroses.СделатьРимскойЦифрой"
14 supertip="Выделенный текст преобразуется в римскую цифру."/>
15 <button id="InsertFormula"
16 label="Вставить формулу с нумерацией"
17 image="function.png"
18 onAction="MyButtonAction"
19 tag="Macroses.Формула_с_нумерацией"
20 supertip="Вставка формулы по центру страницы и нумерацией по правому краю"/>
21 <menuSeparator id="__Separator2" title="Правка документа" />
22 <button id="ClearDoubleParagraphs"
23 label="Удалить абзацы"
24 image="parags.png"
25 onAction="MyButtonAction"
26 tag="Macroses.Удалить сдвоенные абзацы"
27 supertip="Удаление 2-х и более символов абзаца подряд."/>
28 <button id="ClearDoubleSpaces"
29 label="Удалить пробелы"
30 onAction="MyButtonAction"
31 tag="Macroses.Удалить_лишние_пробелы"
32 supertip="Удаление 2-х и более пробелов подряд."/>
33 </menu>

Как видно из кода макроса он запускает на выполнение другой макрос, имя которого прописано в свойстве tag нашей кнопки. Этот простой маневр позволяет использовать только один макрос, для обработки нажатий на все кнопки. Главное, не забывать, что для каждой кнопки нужно указывать свое свойство tag.
Пока все.

2008-12-23T19:17:00.000+02:00

Предыдущая запись в блоге была сделана в начале года и она является первой вехой на этапе преобразования интерфейса.
Начал я изменение интерфейса Office 2007 после того, как мне надоело листать вкладки в поисках нужного инструмента. Огромную пользу в этом оказал сайт Максима Новикова и его программа для редактирования интерфейса.
Результатами моих усилий стала панель с инструментами

Вся польза этой панели заключается в том, что в 80% случаев мне не нужны другие вкладки. Все есть на этой. Кроме редактирования рисунков.
Следующей заботой стала необходимость прикрутить на эту панель кнопки, которые выполняли бы мои собственные макросы.
Это потребовало определенных усилий. Результат на картинке

Работаем над Office 2007

2008-01-25T05:34:00.000+02:00

Вот уже месяц, как я начал настраивать поначалу недоступный интерфейс нового офиса. Как оказалось, информации на русском языке по этой теме совсем немного (я сумел найти 2 места где более или менее толково объясняется, что надо делать и куда нажимать).

Посему решил обратиться к мировому русско- украиноязычному сообществу с просьбой о совместной работе. Кстати, подвернулся и со своим , поскольку не охота начинать такую тему на форуме.

Со своей стороны я уже немного разобрался как и где нажимать. Научился подключать к кнопкам свои макросы.

Пример моих кнопок:

Кого заинтересовала эта тема, милости просим.

На Украине (именно «на» а не «в» как хочется Задорнову) есть поговорка «Гуртом і батька легше бити», поэтому нужно подналечь и разобраться и этой темой.