Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранить файл word / 10 сообщений из 10, страница 1 из 1
25.09.2007, 12:42
    #34824037
HolyG
HolyG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
люди добрые))), подскажите
как из VB сохранить файл word, чтобы пользователь сам мог вести имя для файла, но чтоб система предложила свой вариант по умолчанию (например тек.дата.)????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 13:27
    #34824281
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
Пробуйte использовать Word как обьект:
Код: plaintext
1.
 Dim objWord as Word.Application
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 15:59
    #34825036
HolyG
HolyG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
именно так и делаю...

сохраняю так:
Код: plaintext
wdDoc.Save

word предлагает имя файлу, что -то вроде "hhh.doc"...
а как программно задать предлагаемое имя???????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 16:10
    #34825096
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
попробуйте так
Код: plaintext
1.
2.
3.
4.
    Dim x As FileDialog

    Set x = Application.FileDialog(msoFileDialogSaveAs)
    x.InitialFileName = CStr(Now())
    x.Show

ЗЫЖ это сработает в Ворде, вот сработает это в ВБ?

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 16:28
    #34825180
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
Попробуйте использовать методы и свойство обьекта !!!
а там можно разобраться перибирая их близко к вашей задачи, примерно :

Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Command1_Click()
Dim objW As Word.Application
Set objW = New Word.Application
objW.OrganizerCopy(что-то,куда-то, имя и т.д.)
objW.  'здесь проексперементируйте !!!    

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 16:30
    #34825195
HolyG
HolyG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
работает!
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 16:33
    #34825207
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
Точнее это будет примерно так :
Код: plaintext
1.
2.
3.
4.
Private Sub Command1_Click()
Dim objW As Word.Application
Set objW = New Word.Application
objW.ActiveDocument.SaveAs(............
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2007, 16:45
    #34825261
HolyG
HolyG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
ValeriuТочнее это будет примерно так :
Код: plaintext
1.
2.
3.
4.
Private Sub Command1_Click()
Dim objW As Word.Application
Set objW = New Word.Application
objW.ActiveDocument.SaveAs(............
End Sub


такой способ сразу сохранит файл и н спросит ни о чем...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2007, 10:40
    #34840040
pan_kolbasa
pan_kolbasa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
Здравствуйте, всем!
Столкнулся с той же проблемой (необходимо вывести пользователю диалоговое окно, в котором он указал бы имя вордовского файла) - пробовал сделать так как предлагает Valeriu, а именно
Код: plaintext
1.
2.
3.
4.
5.
Private Sub CommandButton1_Click()
Dim objW As Word.Application
Set objW = New Word.Application
objW.FileDialog (msoFileDialogSaveAs)

End Sub
после чего выдается ошибка
Compile error:
Invalid Use of property

подскажите, что делаю не так....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2007, 11:56
    #34840350
HolyG
HolyG
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сохранить файл word
HandKotпопробуйте так
Код: plaintext
1.
2.
3.
4.
    Dim x As FileDialog

    Set x = Application.FileDialog(msoFileDialogSaveAs)
    x.InitialFileName = CStr(Now())
    x.Show

ЗЫЖ это сработает в Ворде, вот сработает это в ВБ?

I Have Nine Lives You Have One Only
THINK!

чтобы СОХРАНЯЛО...))))
после этого кода нужно еще добавить:

Код: plaintext
x.Execute
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сохранить файл word / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 390ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163313]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 68ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 231ms
total:  390ms
x
x
Закрыть


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