Ошибка файла после пересохранения

[DUNAEV78]

Ребята подскажите после того как открыл файл в формате "*.docm" и сохранил кодом ,
поправлюсь пишу на VB6


Public f$
Sub saveDOC() 'в модуле
f$ = App.Path & "\вывод\" & Form1.Text1 & ".docx"
wa.ActiveDocument.SaveAs2 FileName:=f$
End Sub


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

[Iska]

DUNAEV78, нужен сам файл, упакованный в архив.

[DUNAEV78]

161064вот пример, алгоритм такой :
1. из списка выберите организацию - кликните на кнопку записать
2. появится вордовский файл на некоторое время
4. потом зайти в папку вывод и запустить файл

[Iska]

DUNAEV78, может быть — «сохранить»:
Begin VB.CommandButton Command1
Caption = "сохранить"
Height = 855
Left = 5040
TabIndex = 7
Top = 3720
Width = 3015
End

?

[DUNAEV78]

Begin VB.CommandButton Command1 » не совсем понимаю этот код, ведь это VB6 а не VBA - остальное понятно это параметры кнопки

[Iska]

DUNAEV78, ну, так Вы и выложили VB-проект. Также непонятно, зачем Вам .docm, если в документе нет VBA-проекта.

Вы пишете:
кликните на кнопку записать »
Покажите скриншот с кнопкой «записать». Я её не вижу в коде.

[DUNAEV78]

Я её не вижу в коде. » скрин приложил

[Iska]

И где тут:
кнопку записать »
?!

[DUNAEV78]

Iska » я так понимаю требуется написать код для сохранения документа в формате *.doc?

[Iska]

DUNAEV78, покажите скриншот, где бы я мог увидеть пресловутую кнопку «записать».

[DUNAEV78]

я тут немного подумал и решил вопрос и вообще сам код переосмыслил,

Sub saveDOC()
f$ = App.Path & "\вывод\"
wa.ActiveDocument.SaveAs f$ & Form1.Text1 & ".doc"
End Sub