создание макроса для открытия файла Ворд из Ексель

Дата: Четверг, 26.06.2025, 20:01 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Есть макрос для открытия файла ВОРД из Ексель, но проблема в том, что файл открывается но не отображается на экране монитора. На панели задач появляется значок Ворда. Если по нему кликнуть, то файл отображается, если нет экран пустой. Что прописать чтоб он отображался при запуске макроса? СПАСИБО
[vba]

Код

Sub Открыть_Ворд()
    Dim WordObj As Object
    Dim WordDoc As Object
        Set WordObj = CreateObject("Word.Application")
        Set WordDoc = WordObj.Documents.Open("D:\ПУ\Текст.doc")
        WordObj.Visible = True
    Set WordDoc = Nothing
    Set WordObj = Nothing
End Sub

[/vba]

Пенсионер

Дата: Пятница, 27.06.2025, 02:37 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 104 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Egider, Из этой же серии но на соседнем форуме. [vba]

Код

Option Explicit

Sub FindWordPath()
    Debug.Print CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WINWORD.EXE\")
End Sub

Sub ЗапуститьWordСФайлом()

    ' Путь к Word
    Dim wordPath    As String
    wordPath = """C:\Program Files\Microsoft Office\root\Office16\WINWORD.EXE"""

    ' Путь к документу Word, который нужно открыть
    Dim docPath     As String
    docPath = """D:\ПУ\Текст.doc"""

    ' Создаем объект Shell
    Dim shell       As Object
    Set shell = CreateObject("WScript.Shell")

    ' Запускаем Word с документом
    shell.Run wordPath & " " & docPath, 1, False
End Sub

[/vba]Там ещё много полезной информации найдёте. Читаем и запоминаем. Удачи.

Ученик.
Одесса - Украина

Дата: Пятница, 27.06.2025, 11:06 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

К сожалению не открывается и выдает ошибку на этой последней строке
[vba]

Код

shell.Run wordPath & " " & docPath, 1, False

[/vba]

Пенсионер

Дата: Пятница, 27.06.2025, 11:10 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 104 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Egider, Кстати, этим же способом что выше вам указал можно решить вопрос и по другим вашим последним темам. Необходимо только указать путь к исполняемому файлу .exe и путь к файлу который хотитете открыть .ods.

Ученик.
Одесса - Украина

Дата: Пятница, 27.06.2025, 11:14 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 104 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Egider, А вы полностью ту тему прочитали? Что там сказано про путь к самой программе? Заменили на свой? Или за вас мне надо искать в вашем компьютере путь к программе Word?

Ученик.
Одесса - Украина

Дата: Пятница, 27.06.2025, 15:40 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Спасибо за помощь уважаемый MikeVol, была ошибка в написании пути, исправил и все заработало. Извините, но если теперь открывать файл ods в Libreoffice, то нужно поменять только путь к программе и файлу или и в других составляющих макроса? Если не трудно подскажите что. СПАСИБО.

Пенсионер

Дата: Пятница, 27.06.2025, 16:14 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 442

Репутация: 104 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

Цитата Egider, 27.06.2025 в 15:40, в сообщении № 6 (

)

нужно поменять только путь к программе и файлу

Да, вы совершенно правы. Любую внешнюю программу так можно запустить сделав поправки в путях к программе и к файлу который вы хотите открыть. Впредь будьте Внимательнее к тому что вам советуют, не просто копи - пасте а потом "Вай, а почему не работает?". Удачи.

Ученик.
Одесса - Украина

Дата: Пятница, 27.06.2025, 18:10 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 55

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

И естественно заменить:
[vba]

Код

wordPath на LibrePath, а docPath на odsPath

[/vba]
Я правильно Вас понял?

Пенсионер