Из Excel открыть документ Word

09.03.2007, 12:22. **Показов** 28967. **Ответов** 6

Author24 — интернет-сервис помощи студентам

Как из Excel открыть документ Word, в котором был бы определенный текст

@Pavel55 · 09.03.2007, 21:27

1) Для того, чтобы создать новый документ Word, напечатать там что-нибудь, сохранить его и закрыть

Visual Basic

Option Explicit
Sub CreateWordDoc()
Dim WordObj As Object  'Объект Word.application
Dim WordDoc As Object   'Создаваемый документ
    Set WordObj = CreateObject("Word.Application")
    WordObj.Visible = True
    Set WordDoc = WordObj.Documents.Add
    WordObj.Keyboard (1033) 'English
    WordObj.Selection.TypeText Text:="Hello, World!!!"
    WordObj.Selection.TypeParagraph
    WordObj.Application.Keyboard (1049) 'Russian
    WordObj.Selection.TypeText Text:="Привет, Мир!!!"
    'WordDoc.SaveAs Filename:="C:Temp" & WordDoc & ".doc"  'сохраняем его
    'WordDoc.Close 'закрываем только документ
    'WordObj.Quit 'закрываем всё приложение
    Set WordDoc = Nothing
    Set WordObj = Nothing
End Sub

2) Чтобы открыть уже существующий документ, распечатать его и закрыть

Visual Basic

Sub PrintOutWordFile()
    Dim WordObj As Object
    Dim WordDoc As Object
        Set WordObj = CreateObject("Word.Application")
        Set WordDoc = WordObj.Documents.Open("C:TempPrint.doc")
       ' WordObj.Visible = True 'можно его отображать, можно не отображать
       ' Call wDoc.PrintOut 'распечатываем его
       ' Call WordObj.Quit(False) 'закрываем всё приложение
    Set WordDoc = Nothing
    Set WordObj = Nothing
End Sub

10.03.2007, 22:13

Спасибо

15.03.2007, 19:58

Уже совсем наглость - как выдать текст с новой строки?

@Pavel55 · 15.03.2007, 23:30

Точно не знаю, попробуй

Visual Basic

1	Selection.TypeParagraph

@CrazyTonik · 07.11.2016, 19:32

А если путь к файлу документа будет меняться?
На каждом компьютере будет на разных дисках. Или, например, на рабочем столе. Или с флешки запускаться. Можно как то прописать путь не с самого начала, а чтобы он находил файл документа в папке, в которой находится открытая книга эксель?
Например, книга, с которой запускается макрос, находится по адресу: "G:\Документы\Хлам\Книга.xlsm", а адрес документа, который нужно запустить: "G:\Документы\Хлам\Папка\Biatlon.docx".
Как прописать, чтобы указать только "Папка\Biatlon.docx"? Тогда когда файлы будут кочевать с компьютера на компьютер, адрес меняться не будет.

@Казанский · 07.11.2016, 20:20

CrazyTonik, путь книги с макросом это thisworkbook.Path
Соответственно,

Visual Basic

1	Set WordDoc = WordObj.Documents.Open(thisworkbook.Path & "\Папка\Biatlon.docx")

Float
		1
	Из Excel открыть документ Word 09.03.2007, 12:22. Показов 28967. Ответов 6 Метки нет (Все метки) Как из Excel открыть документ Word, в котором был бы определенный текст

Float
	15.03.2007, 19:58	4
	Уже совсем наглость - как выдать текст с новой строки?

@CrazyTonik 0 / 0 / 0 Регистрация: 10.07.2014 Сообщений: 41
	07.11.2016, 19:32	6
	А если путь к файлу документа будет меняться? На каждом компьютере будет на разных дисках. Или, например, на рабочем столе. Или с флешки запускаться. Можно как то прописать путь не с самого начала, а чтобы он находил файл документа в папке, в которой находится открытая книга эксель? Например, книга, с которой запускается макрос, находится по адресу: "G:\Документы\Хлам\Книга.xlsm", а адрес документа, который нужно запустить: "G:\Документы\Хлам\Папка\Biatlon.docx". Как прописать, чтобы указать только "Папка\Biatlon.docx"? Тогда когда файлы будут кочевать с компьютера на компьютер, адрес меняться не будет. 0

Float
	10.03.2007, 22:13	3
	Спасибо

	07.11.2016, 20:20

Из Excel открыть документ Word

Решение