Здравствуйте, Stiva!
В приложении две процедуры одна преобразует все открытые документы doc
в txt, другая в RTF. Чтобы они срабатывали по нажатии на кнопку просто
вызывайте их в обработчике OnClicK кнопки. Вот так:
если кнопки на форме
Private Sub CommandButton1_Click()
ToRTF
End Sub

Private Sub CommandButton1_Click()
ToTXT
End Sub

Если кнопки на панели инструментов то используйте метод OnAction
MytxtButton.OnAction = "ToTXT"
MyrtfButton.OnAction = "ToRTF"

Процедуры лучше хранить в модуле. Для этого в редакторе выберите
Insert-Module и скопируйте их туда.
Успехов!!!

Приложение:
Public Sub ToRTF()Dim d As DocumentChangeFileOpenDirectory ThisDocument.PathFor Each d In Application.Documentsd.SaveAs FileName:=d.Name, FileFormat:=wdFormatRTF, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ FalseNextEnd SubPublic Sub ToTXT()Dim d As DocumentChangeFileOpenDirectory ThisDocument.PathFor Each d In Application.Documentsd.SaveAs FileName:=d.Name, FileFormat:=wdFormatText, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ FalseNextEnd Sub

Здравствуйте, Stiva!
Есть универсальный способ создания подобный макросов:
Сервис->Макросы->Начать запись, после делаешь ту последовательнсоть,
которую надо. После этого макросом можно пользоваться, но часто и приходиться править, то что навоял Оффис в редакторе Visual Basic (Диалог "Макросы" кнопка "Изменить"), но там обычно совсем чуть-чуть.