Открытие файла excel в ворде

[mistx]

Друзья подскажите плиз.

У меня есть файл вордовский, берет слиянием данные из excel.
Как сделать, что бы при открытие вордовского файла открывался екселевский файл, из которого берутся данные?

Заранее благодарю!

[Тупой]

А попробуйте при нажатии на данные, полученные из екселя нажать контрол + х (русская буква "х"). Ничего не обещаю. Этот способ работает, если ексель берет данные из екселя. Может сработает и в Вашем случае.

[mistx]

Сообщение от Тупой

А попробуйте при нажатии на данные, полученные из екселя нажать контрол + х (русская буква "х"). Ничего не обещаю. Этот способ работает, если ексель берет данные из екселя. Может сработает и в Вашем случае.

мне нужно, чтобы это происходило автоматом, без лишних нажатий кнопок.

[EducatedFool]

При открытии документа Word срабатывает макрос Document_Open.

Если файл, который требуется открыть, расположен в той же папке, что и документ Word, используйте такой вариант:

Private Sub Document_Open()
    ИмяФайла = "НТД.xls"
    ПутьКФайлу = Chr(34) & Replace(ThisDocument.FullName, ThisDocument.Name, ИмяФайла) & Chr(34)
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

Если же в другой папке, то можно попробовать так:

Private Sub Document_Open()
    ПутьКФайлу = """C:\Documents and Settings\Игорь\Рабочий стол\НТД.xls"""
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

В обоих случаях вместо файла Excel можно открывать любой другой файл.

[mistx]

Сообщение от EducatedFool

При открытии документа Word срабатывает макрос Document_Open.

Если файл, который требуется открыть, расположен в той же папке, что и документ Word, используйте такой вариант:

Private Sub Document_Open()
    ИмяФайла = "НТД.xls"
    ПутьКФайлу = Chr(34) & Replace(ThisDocument.FullName, ThisDocument.Name, ИмяФайла) & Chr(34)
    CreateObject("WScript.Shell").Run ПутьКФайлу
End Sub

В обоих случаях вместо файла Excel можно открывать любой другой файл.

Это можно только с помощью VBA?

Спрашиваю, т.к. попался мне файл, сделанный с помощью слияния - без макросов, открывается параллельно excell. Утверждают, что делали в более старой версии и делали только подключение к файлу excel.

Еще вопрос - при слияние в полях, который импортируются из excel, шрифт отображается courier new. как сделать, чтобы был только Times New Roman во всех полях? Пробывал вручную изменить, меняет только конткретные записи?

[viter.alex]

Сообщение от mistx

Друзья подскажите плиз.

У меня есть файл вордовский, берет слиянием данные из excel.
Как сделать, что бы при открытие вордовского файла открывался екселевский файл, из которого берутся данные?

Заранее благодарю!

Открывать файл при открытии документа можно только с помощью VBA.
Каким полем сделано слияние? Database?
Лучше всего если бы вы приложили документ и тогда можно было на месте разобраться в чем там дело.

[mistx]

Сообщение от viter.alex

Открывать файл при открытии документа можно только с помощью VBA.
Каким полем сделано слияние? Database?
Лучше всего если бы вы приложили документ и тогда можно было на месте разобраться в чем там дело.

Со шрифтами разобрался, в пробеле был применен шрифт и всегда проявлялся при вставке.

По поводу файл екселя в ворде - очень странная ситуация. Так ка я 2 дня искал, где запрятана ссылка на открытие файла, но так и ненашел, причем никаких макросов нет 100%. Народ настаивает, что это сделали без всяких макросов. Мистика прям.

[EducatedFool]

Народ настаивает, что это сделали без всяких макросов.

Ну, раз так, то можно поискать.
Прикрепите к своему сообщению сей загадочный файл - вдруг нам что-нибудь удастся отыскать...

Можно попробовать сохранить файл в формате XML, потом открыть его при помощи Блокнота, и поискать упоминание файла Excel (имя открывающегося файла Excel, думаю, известно)
А там уже будет видно, где именно в документе зарыта ссылка на этот файл...

[viter.alex]

Если вы не хотите выкладывать файл, то сами посмотрите, например в полях. Только включите отображение кодов полей вместо их значений (Alt+F9). Других вариантов внедрения я не знаю. Может узнаю

[mistx]

viter.alex
EducatedFool

Спасибо ребята. завтра попробую и отпишусь. уж самому больно интересно