Открытие файла .doc с помощью VBA

[ruavia3]

Как открыть файл.doc в книге.xls с помощью макроса. Файл находится в той же дирректории, что и книга.xls?

Что-то из этой оперы?

Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "файл.doc"

[ruavia3]

Или как открыть файл.doc с указанием дирректории через путь
ChDir _
"C:\...\...\файл.doc

[EducatedFool]

Посмотрите макросы для работы с документами Word
(по ссылке есть примеры открытия файлов Word, их заполнения и сохранения)

Sub ОткрытьДокументWord(ByVal ПутьКФайлу As String)
    On Error Resume Next
 
    If Dir(ПутьКФайлу) = "" Then MsgBox "Файл  " & ИмяФайла & "  не найден ", vbExclamation, "Файл не найден": Exit Sub

    ПутьКФайлу = Chr(34) & ПутьКФайлу & Chr(34)    ' добавляем кавычки до и после пути к файлу
    CreateObject("WScript.Shell").Run ПутьКФайлу    ' аналогично двойному щелчку мыши на файле

End Sub

Ну или как-то так:

Sub ОткрытьДокументWord2()
    On Error Resume Next

    Set wa = CreateObject("Word.Application")    ' создаём приложение Word (без подключения библиотеки Word)

    wa.Visible = True    ' делаем Word видимым
    
    Set wd = wa.Documents.Open(ПутьКФайлу)
 
    wd.Paragraphs(18).Range.InsertAfter Текст    ' вставляем текст в нужное место (после 18-го параграфа)
    wd.Save    ' сохраняем документ
End Sub

А можно так:

Sub ОткрытьДокументWord(ByVal ИмяФайла As String)
    On Error Resume Next
    ПутьКФайлу = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла)
    If Dir(ПутьКФайлу) = "" Then MsgBox "Файл  " & ИмяФайла & "  не найден", vbExclamation, "Файл не найден": Exit Sub

    ПутьКФайлу = Chr(34) & ПутьКФайлу & Chr(34)    ' добавляем кавычки до и после пути к файлу
    CreateObject("WScript.Shell").Run ПутьКФайлу    ' аналогично двойному щелчку мыши на файле
End Sub

Sub ПримерИспользования()
    ОткрытьДокументWord "файл.doc"
End Sub

------------------ добавлено позже --------------------------

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[Дмитрий Фукс]

Если не трудно, напишите за одно код :
Как открыть файл Отчет.txt в книге Отчет.xls на листе Отчет1С с помощью макроса. Файл находится в той же дирректории, что и книга.xls?
Обязательно ли помещать их в одну папку или можно разместить файлы на рабочем столе?

[Sasha_Smirnov]

Да нет, не обязательно.

Я тут автору темы кое-что набацал... может, пригодится.

Sub GoToWordDocOpen()
'имитирует действия по открытию Word и предлагает открыть документ в тек. папке'
Dim strDumn As String

Shell "winword", vbNormalFocus 'открывает Windows Word и его окно'

SendKeys "%", True      'соответствует нажатию Alt - переход в гл. меню Word'
SendKeys "+~", True     'соотв. нажатию Shift-Enter - раскрывает меню'
SendKeys "~", True      'соотв. нажатию Enter - обычно открывает пункт "Открыть..."'

strDumn = Dir("*.doc*") 'имя 1-го документа Word в ТЕКУЩЕЙ ПАПКЕ'

SendKeys StrConv(strDumn, vbUnicode), True
'впечатываем это имя в поле ввода (чтобы затем открыть файл)'
End Sub

(Из-за SendKeys для Word и Excel 97 это не годится; в 2003-х — работает.)

Прямо в архиве кнопка (opWo) не работает, но можно скачать. И по альт-F11 посмотреть и скопировать выприведённый код.

[SAS888]

Как открыть файл Отчет.txt в книге Отчет.xls на листе Отчет1С с помощью макроса.

С файлами ".txt" Excel "дружит" очень даже хорошо. Поместите следующий код в файл "Отчет.xls" и запустите макрос.

Sub ReadTxtToSheet()
    Application.ScreenUpdating = False
    FName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If FName = False Then Exit Sub
    Workbooks.OpenText Filename:=FName, DataType:=xlDelimited, Tab:=True
    Cells.Copy ThisWorkbook.Sheets("Отчет1С").[A1]: ActiveWorkbook.Close
End Sub

[ruavia3]

EducatedFool, посмотри сообщение ниже.

[ruavia3]

SAS888, есть варианты по открытию .doc* файла?

[ruavia3]

EducatedFool, спасибо, третий вариант сработал.

А можно в 3-м варианте вместо фиксированной дирректории сделать привязку к "корневой" папке, где находится сама книга.xls?

[EducatedFool]

А можно в 3-м варианте вместо фиксированной дирректории сделать привязку к "корневой" папке, где находится сама книга.xls?

А разве там сделано как-то иначе?

Код ПутьКФайлу = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла) формирует полный путь к файлу, предполагая, что файл файл.doc находится в той же папке, что и книга Excel, из которой запускается макрос.