Поделиться через

Настройка ленты Office Fluent с помощью файла форматов Open XML

  • Статья

Компонент "Лента" пользовательского интерфейса Microsoft Office Fluent предоставляет пользователям гибкий способ работы с приложениями Office. Расширение ленты (RibbonX) использует простую, текстовую, объявляемую разметку XML для создания и настройки ленты.

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

  1. Создайте файл настройки в любом текстовом редакторе и сохраните файл с именем customUI.xml.

  2. Добавьте следующую разметку XML в файл, а затем закройте и сохраните файл.

     <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon> 
     <tabs> 
       <tab id="CustomTab" label="My Tab"> 
         <group id="SampleGroup" label="Sample Group"> 
           <button id="Button" label="Insert Company Name" size="large" onAction="ThisDocument.InsertCompanyName" /> 
         </group > 
       </tab> 
     </tabs> 
   </ribbon> 
 </customUI>

  3. Создайте на рабочем столе папку с именем customUI и скопируйте в нее файл настройки XML.

  4. Проверьте разметку XML с помощью настраиваемой схемы.

    Примечание.

    Это действие необязательно.

  5. Создайте документ в Word и сохраните его с именем RibbonSample.docm.

  6. Откройте редактор Visual Basic и добавьте следующую процедуру в модуль кода ThisDocument . Закройте и сохраните документ.

      Sub InsertCompanyName(ByVal control As IRibbonControl) 
  ' Inserts the specified text at the beginning of a range or selection. 
  Dim MyText As String 
  Dim MyRange As Object 
  Set MyRange = ActiveDocument.Range 
  MyText = "Microsoft Corporation" 
  ' Range Example: Inserts text at the beginning 
  ' of the active document 
  MyRange.InsertBefore (MyText) 
  ' Selection Example: 
  'Selection.InsertBefore (MyText) 
End Sub

  7. Добавьте расширение .zip к имени файла документа и затем дважды щелкните его, чтобы открыть файл.

  8. Добавьте файл настройки в контейнер, перетащив папку customUI с рабочего стола в ZIP-файл.

  9. Извлеките файл .rels на свой рабочий стол. Папка _rels, которая содержит файл .rels, скопирована на рабочий стол.

  10. Откройте файл .rels и добавьте следующую строку между последним тегом Relationship и тегом Relationships. Это действие создает отношение между файлом документа и файлом настройки.

     <Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />

  11. Закройте и сохраните файл.

  12. Добавьте rels-папку обратно в файл контейнера, перетащив ее с рабочего стола, перезаписав существующий файл.

  13. Переименуйте файл документа в исходное имя, удалив расширение .zip.

  14. Откройте документ и обратите внимание, что на ленте теперь отображается вкладка Моя вкладка.

  15. Перейдите на вкладку и обратите внимание на группу Пример группы с элементом управления "Кнопка".

  16. Нажмите кнопку, чтобы вставить название компании в документ.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.