Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение / 11 сообщений из 11, страница 1 из 1
30.09.2015, 17:09
    #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:18
    #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:27
    #39065475
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение
Извиняюсь, забыл указать где была ошибка. Именно на последней. Спасибо завтра попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2015, 02:13
    #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, 06:21
    #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, 11:41
    #39065939
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение
Чип&ДейлА почему этот вариант лучше?потому что, например, дальше ты напишешь
Код: vbnet
1.
wd.Close

а не будешь постоянно обращаться к коллекции, чтобы получить документ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2015, 09:06
    #39066686
i45
i45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение
Set wa=CreateObject("Word.Applic a tion")
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2015, 15:57
    #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, 16:15
    #39073104
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение
cerberochekа потом:какие нынче продвинутые спамеры, аж даже пытаются дать полезный совет.
Не без ошибок, правда ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2015, 16:50
    #39073149
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение
Shocker.Pro,

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


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