Сохранение текста в FB2 c помощью макроса

На сколько я разобрался в вопросе FB2 - разновидность xml. Соответственно поддерживает кодировку UTF-8. Но т.к. VBA сохранит текстовый файл в windows-1251, то я, не мудрствуя лукаво, забил как заголовок файла
<?xml version="1.0" encoding="windows-1251"?>
Как реализовать сохранение в кодировке UTF-8 используя Open # For - хороший вопрос.
Про пересохранение Normal.dot не понял? Это критично? Я использовал старый способ добавления меню (правда до этого применя его в Excel)

Хм. есть над чем задуматься и куда стремиться)) Спасибо

Писал марос в Word 2007. В Word 2010 не проверял. Если поддержка макросов в документе включена, то попробуйте нажать Alt+F8. Из списка доступных макросов выбрать ShowFormFB2Create. Нажать "Выполнить"

Вот файл

Может так будет лучше. Ссылка на документ присваивается объектной переменной при старте файла. Если нет - придется скачать 2010 офис и разбираться.

Файл скачан с сервера на диск, и я открываю его с диска.

Ничего особенного не применял. Библиотеки в приложении. Может не идет под 2010 офисом... Придется установить

objDoc - объектная переменная, содержащая ссылку на документ. Так вот все предыдущие ошибки связаны с тем, что на вашем компьютере Vba не может передать этой переменной ссылку на документ. Странно. У меня работает и на работе и дома.

Вождь, я попробовал также применить ваше творение.
Вкладка Надстройки с кнопкой у меня образовалась и файл FB2 также сформировался.
Как вы считаете, почему ваш макрос сработал, а макрос коллеги By_lesavik на конкретной установке Word 2010 выдавал ошибку, что не сформирована объектная переменная? В чем была проблема?

Файл FB2 с помощью вашего макроса сформировался, но программа STDU его не открывает. Выдает ошибку:

Сформированный файл FB2 прилагаю.

Вы правы. Моя ошибка. Недосмотрел. Леплю на коленке, т.к. не профессионал. Работа заставила выучить VBA, а тут еще и читалку купил.
За идею запихнуть все это в *dot отдельная благодарность.
До необходимости отлова и замены знаков юникода(особенно"<>") я  и сам дошел. Реализовал, но у вас получилось как-то изящнее))

Тегов Section больше чем надо. Этим тегом размечаются части, главы. За их корректную расстановку отвечает конструкция

If blFirstSection = True Then
                    blFirstSection = False
                    myStream.writetext OpenTag("section") & vbCr
                    myStream.writetext OpenCloseTag("title", PTag(rngRange.Text)) & vbCr
                Else
                    myStream.writetext CloseTag("section") & vbCr
                    myStream.writetext OpenTag("section") & vbCr
                    myStream.writetext OpenCloseTag("title", PTag(rngRange.Text)) & vbCr
                End If

Так что открывающий тег в начале убираем.
Может и топорно, но работает.

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

В файле By_lesavik, в разделе Microsoft Word Objects.ThisDocument я нашел следующий макрос, который должен активизироваться при открытии документа:

И затем, в разделе Modules.Menu - следующую процедуру:

Sub CreateMenu()
    Dim cbrMenu As CommandBar
    Dim ctlCBar As CommandBarControl
    Dim strMenuName As String
    
    DelMenu
    strMenuName = "Создать FB2"
    
    Set cbrMenu = Application.CommandBars.Add(strMenuName)
    cbrMenu.Visible = True
    
    Set ctlCBar = cbrMenu.Controls.Add(Type:=msoControlButton, Temporary:=True)
        With ctlCBar
            .Caption = "Создание книги FB2"
            .OnAction = "ShowFormFB2Create"
            .Style = msoButtonIconAndCaption
            .FaceId = 463
        End With
End Sub

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

Alex_Gur Вождь Спасибо большое за несколько дней столько фишек по макросам!
При таком подходе этот шаблон можно закинуть в папку с шаблонами Word и, когда нужно создать книгу fb2 через меню "создать" загрузить шаблон для книги. Как все просто оказывается
Опять же макрос не ломится изменять Normal.dot

вот и файл.

Уважаемые коллеги, теперь все у всех работает корректно!

Вождь, не могли бы вы пояснить нам, в чем отличие вашего способа загрузки вкладки, от способа, предложенного коллегой?

В том то и вопрос - как?
Вариант:

Sub Document_Open()
    Set objDoc = Application.ActiveDocument
    CreateMenu
End Sub

в некоторых случаях не срабатывает, а ваш - срабатывает везде.
Не могли бы вы написать код создания вкладки, если, конечно, это не секрет?

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

Привет всем. Макрос для перевода doc в fb2 уже давно существует и называется ExportXML. Попробуйте его для сравнения.