Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Подскажите код, который открыл бы новый документ Word и вставил туда текст из ячейки A1
 
Добрый день.
Подскажите код, который открыл бы новый документ Word и вставил туда текст из ячейки A1.
Спасибо.
Изменено: Бахтиёр - 12 июл 2018 13:56:04
 
word эпидемия на планете :-)

https://support.microsoft.com/ru-kz/help/316383/how-to-automate-word-from-visual-basic-net-to-create-a-new-document
По вопросам из тем форума, личку не читаю.
 
Код
Sub dddd()
Set wd1 = CreateObject("Word.Document")
Set wd2 = wd1.Application
wd2.Selection.TypeText Range("A1").Value
wd1.SaveAs "D:\1.docx", wdFormatXMLDocument
wd2.Quit
End Sub

Спасибо.
 
Бахтиёр,  
Selection наверно не стоит
Content.InsertAfter
https://msdn.microsoft.com/en-us/vba/word-vba/articles/inserting-text-in-a-document
По вопросам из тем форума, личку не читаю.
 
Бахтиёр, а почему тема в "Курилке"?
 
Юрий, так Word жо. :-)
По вопросам из тем форума, личку не читаю.
 
Так макрос в Excel? )
 
А где это сказано? :-) ? только по #3 и догадаться можно, и то по Range("A1"). только  :-)
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал:
только по #3 и догадаться можно
Вот от этого Range и отталкиваюсь )
И вообще кот сегодня злой.
 
Юрий, побалуйте кота, пусть тему  грохнет. :-)
По вопросам из тем форума, личку не читаю.
 
Перенёс, но легче не стало...
 
Цитата
БМВ:  Content.InsertAfter
спасибо

Цитата
Юрий М:  а почему тема в "Курилке"?
Цитата
БМВ:  так Word жо
:-)
Страницы: 1
Читают тему (гостей: 1)
Наверх