powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли в Worde функция открытия окна сохранения файла...
20 сообщений из 20, страница 1 из 1
Есть ли в Worde функция открытия окна сохранения файла...
    #32304018
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
... аналог функции Excel GetSaveAsFilename?
Процедура Exel :
ChDir "C:\"
fileSaveName = Application.GetSaveAsFilename( "ИмяФайла", _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
откроет окно сохранения, при этом по умолчанию будет уже подставлено "ИмяФайла".
В Word не нашёл ничего похожего, либо сразу гонит в файл, либо открывает "куцее" окно InputBox.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304045
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
MsgBox dlgSaveAs.SelectedItems(1)
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304048
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
имей ввиду,
что эта дрянь
в аксессе не работает.
только в екселе и ворде
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304077
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Работать то - работает(правда последняя строка кода, если отказаться от сохранения файла, выдаёт ошибку, но это мелочи), но в этой функции заранее задать имя сохраняемого файла, как в приведённом мною примере, не получается.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304116
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ща ругаться буду
НЕУЖЕЛИ нельзя
справку посмотреть?
почему у меня получается?
когда сам думать будешь?

Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.InitialFileName = "d:\Word\qqq"
If dlgSaveAs.Show Then MsgBox dlgSaveAs.SelectedItems(1)
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304135
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обидно, блин!!!
Я это св-во InitialFileName нашёл и применил минут 15 назад. Думаю - сейчас отвечу сам-себе, "распальцуюсь", мол тоже не дурак...пошёл покурить, вернулся, открыл форум и пальцы опустились .... :))
Спасибо за помощь!
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304178
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Куренье - вред
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304418
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вот и фиг!
Окно открывается, имя файла по умолчанию подставлено, а сохранения не происходит!!!
Пробовал и имя менять, и папку - толку нет!
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304612
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это окно для
ввода имени файла
и выдачи тебе пути.
оно ничего не сохраняет.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304675
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здрасте приехали... а как быть?
Я пробовал в последней строке задать условие:
If dlgSaveAs.Show Then
ActiveDocument.SaveAs FileName:="Имя.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
end if ,
но программа ругается, что вроде как файл занят.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304689
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я сохоанил вот так
ActiveDocument.SaveAs "d:\Word\qq"

во прикол.
работаю в аксессе
а разбираю ошибки
в ворде.
хотя ни разу программированием
в ворде не занмался
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304701
GoST
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сталкивался с такой проблемой Пришлось закрывать файл -
выдавалась ошибка 75 по ней автоматом акт док-т закрывался.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304746
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Закрывать файл в моём случае - вряд ли поможет. Я создаю его из хранящегося в таблице Access файла Word и до сохранения он вроде как "висит в воздухе". У него даже стандартная кнопка "Сохранить как..." выглядит "Сохранить копию как..."
А окно ввода имени файла метод Show имеет, а метода Hide (спрятать) - нет.
Может если его удалось бы сначала убрать и программа не ругалась бы?
Ведь сам код, без открытия диалога, прекрасно всё сохраняет на диск.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304764
GoST
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В ситуации как у тебя файл в общем-то и названия не имеетесли создан как новый. Если он создан из файла то здесь все в порядке и есть сохранить как....
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304787
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у меня ошибка все время 5487.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32304844
Alex_Juice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
Dim dlgSaveAs As Dialog
Set dlgSaveAs = Dialogs(wdDialogFileSaveAs)
dlgSaveAs.Name =  "C:\test.doc" 
dlgSaveAs.Show
If dlgSaveAs.Name <> "" Then dlgSaveAs.Execute
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32305827
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
Работает и не надо теперь заморачиваться на API !!!
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32708819
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хам трамвайныйимей ввиду,
что эта дрянь
в аксессе не работает.
только в екселе и ворде
А есть ли информация - чего делать в Аксесе?
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32709035
RVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
natalitvinenko Хам трамвайныйимей ввиду,
что эта дрянь
в аксессе не работает.
только в екселе и ворде
А есть ли информация - чего делать в Аксесе?

Посмотрите здесь.
...
Рейтинг: 0 / 0
Есть ли в Worde функция открытия окна сохранения файла...
    #32709146
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотрела, спасибо! Теперь пристаю с вопросами там ;-)
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли в Worde функция открытия окна сохранения файла...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]