ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение
11 сообщений из 11, страница 1 из 1
Сохранение
    #39065447
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
Добрый день, может кто нибудь поправить меня или подсказать в чем ошибка.

на кнопку вешаю следующий код

Код: vbnet
1.
2.
3.
4.
Set wa=CreateObject("Word.Appliction")
wa.Visible=True
wa.Documents.Open("C:\Новая папка\Doc1.docx")
wa.Documents.SaveAs FileName:="C:\Новая папка\Doc2.docx"



Полностью картина выглядит так, при нажатии на кнопку открывается документ ворд, в закладки документа вставляются определенные данные, и потом нужно сохранить его под другим именем чтобы не терять документ с закладками.
...
Рейтинг: 0 / 0
30.09.2015, 17:09
| Ответить | Цитировать | Написать  
Сохранение
    #39065461
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Чип&Дейл,

Ну а ошибка-то где? Вы хоть описывайте на какой строке возникает и текст, чтобы другие не гадали. На последней строке ошибка?
Код: vbnet
1.
wa.Documents.SaveAs FileName:="C:\Новая папка\Doc2.docx"


попробуйте так:
Код: vbnet
1.
wa.Documents("Doc2.docx").SaveAs FileName:="C:\Новая папка\Doc2.docx"
...
Рейтинг: 0 / 0
30.09.2015, 17:18
| Ответить | Цитировать | Написать  
Сохранение
    #39065475
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
Извиняюсь, забыл указать где была ошибка. Именно на последней. Спасибо завтра попробую
...
Рейтинг: 0 / 0
30.09.2015, 17:27
| Ответить | Цитировать | Написать  
Сохранение
    #39065709
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Чип&Дейл, лучше так
Код: vbnet
1.
2.
3.
4.
Set wa=CreateObject("Word.Appliction")
wa.Visible=True
Set wd = wa.Documents.Open("C:\Новая папка\Doc1.docx")
wd.SaveAs FileName:="C:\Новая папка\Doc2.docx"
...
Рейтинг: 0 / 0
01.10.2015, 02:13
| Ответить | Цитировать | Написать  
Сохранение
    #39065726
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
The_PristЧип&Дейл,

[/src]
попробуйте так:
Код: vbnet
1.
wa.Documents("Doc2.docx").SaveAs FileName:="C:\Новая папка\Doc2.docx"




Работает, только была ошибка в Documents("Doc2.docx") нужно было написать Doc1.

КазанскийЧип&Дейл, лучше так
Код: vbnet
1.
2.
3.
4.
Set wa=CreateObject("Word.Appliction")
wa.Visible=True
Set wd = wa.Documents.Open("C:\Новая папка\Doc1.docx")
wd.SaveAs FileName:="C:\Новая папка\Doc2.docx"


Спасибо, так тоже работает. А почему этот вариант лучше?
...
Рейтинг: 0 / 0
01.10.2015, 06:21
| Ответить | Цитировать | Написать  
Сохранение
    #39065939
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Чип&ДейлА почему этот вариант лучше?потому что, например, дальше ты напишешь
Код: vbnet
1.
wd.Close

а не будешь постоянно обращаться к коллекции, чтобы получить документ
...
Рейтинг: 0 / 0
01.10.2015, 11:41
| Ответить | Цитировать | Написать  
Сохранение
    #39066686
Фотография i45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
i45
Участник
Set wa=CreateObject("Word.Applic a tion")
...
...
Рейтинг: 0 / 0
02.10.2015, 09:06
| Ответить | Цитировать | Написать  
Сохранение
    #39073080
cerberochek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cerberochek
Гость
Ну да, а чтоб вообще покрасивше, то вначале сделать:
Код: vbnet
1.
2.
doc1="C:\Новая папка\Doc1.docx"
doc2="C:\Новая папка\Doc2.docx"



а потом:
Код: vbnet
1.
2.
Set wd = wa.Documents.Open(name1)
wd.SaveAs FileName:=name2
...
Рейтинг: 0 / 0
09.10.2015, 15:57
| Ответить | Цитировать | Написать  
Сохранение
    #39073104
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
cerberochekа потом:какие нынче продвинутые спамеры, аж даже пытаются дать полезный совет.
Не без ошибок, правда ))
...
Рейтинг: 0 / 0
09.10.2015, 16:15
| Ответить | Цитировать | Написать  
Сохранение
    #39073149
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.Pro,

Ага. Тем более если разбирать именно представленный код и считать, что единственная его задача сохранить файл под другим именем, то совсем красиво будет так:
Код: vbnet
1.
FileCopy "C:\Новая папка\Doc1.docx", "C:\Новая папка\Doc2.docx"
...
Рейтинг: 0 / 0
09.10.2015, 16:50
| Ответить | Цитировать | Написать  
Сохранение
    #39073160
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Нет, непременно с промежуточными переменными! )
...
Рейтинг: 0 / 0
09.10.2015, 16:57
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39073104&tid=2155770]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 302ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


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