Не работает макрос. Не видит пути к документту

Пользователь

Сообщений: 240 Регистрация: 01.01.1970

06.11.2013 13:36:57

Их файла *.XLS "01 ТЕКСТ ОТКУДА" (передаю дату (число - месяц- год) в закладку файла *.DOC "02 ТЕКСТ КУДА"
При запуске эксельного МАКРОСА он, макрос, говорит, что не найден путь к "02 Текст куда.doc"
Может кто-нибудь подсказать, отчего это происходит?

Заранее благодарен,
Александр

Код

Sub FillingWordFile() 
Dim WD 
Dim XL As Excel.Application 
Set WD = CreateObject("Word.Application";) 
WD.Visible =True 
WD.Documents.Open Filename:= 
Application.ThisWorkbook.Path & "c:\07 KAM2013\11 Ноябрь\06 ноября\02 Текст куда.doc" 
Range("A3";) .Copy 
WD.ActiveDocument.Bookmarks.Item("A3";).Range.Paste

Изменено: Antoni San - 06.11.2013 20:24:46 (код оформлен тегами)

Hugo Пользователь Сообщений: 23795 Регистрация: 22.12.2012	#2 06.11.2013 13:39:39 Ну конечно. Зачем Application.ThisWorkbook.Path & ?

Юрий М Модератор Сообщений: 61033 Регистрация: 14.09.2012 Контакты см. в профиле	#3 06.11.2013 14:00:17 Antoni San, 131 сообщение на форуме, а до сих пор не увидели, что код нужно оформлять тегом. Исправляйте своё сообщение.

Antoni San

Пользователь

Сообщений: 240 Регистрация: 01.01.1970

06.11.2013 16:38:04

Hugo, вы считаете что достаточно удалить эти слова и заработает?

Код
Application.ThisWorkbook.Path &

Изменено: Antoni San - 06.11.2013 16:38:34

The_Prist Пользователь Сообщений: 14889 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#5 06.11.2013 16:44:19 А попробовать? Application.ThisWorkbook.Path - возвращает путь к книге с макросом. Т.е. нечно вроде "c:\07 KAM2013\11 Ноябрь\06 ноября\" Додумаете сами, что получится, если объединить со строкой "c:\07 KAM2013\11 Ноябрь\06 ноября\02 Текст куда.doc"? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...