ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как из VBAExcel cоздать файл Word...
9 сообщений из 9, страница 1 из 1
Как из VBAExcel cоздать файл Word...
    #33958030
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
... и заполнить его данными находящимися на листе в Екселе?
Конкретные два вопроса:
1. Как программно из VBAExcel создать вордовский файл Отчет.doc?
2. Как из строковой переменной (в VBAExcel) вписать данные в Отчет.doc с присвоением стиля абзаца, например Заголовок1?

С уважением.
...
Рейтинг: 0 / 0
01.09.2006, 12:14:53
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33958120
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Всё очень просто на MS Word'е пишешь такой же макрос.
Т.е. "записываешь" затем этот код копируешь в макросе под Excel добавляешь в Reference'ах ссылку на Word или вручную создаешь объект MS Word и вставляешь этот же код с некоторыми изменениями.

1. Сначала в VBA, в меню Tools>Refrences добавляешь ссылку на Microsoft Office Word.
2. И сам макрос для Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
    Dim objWA As Word.Application, objWD As Word.Document
    Set objWA = New Word.Application
    objWA.Visible = True
    Set objWD = objWA.Documents.Add
    With objWA.Selection
        .TypeText "Simple"
        .TypeParagraph
        .TypeText "Text"
        .TypeParagraph
        .HomeKey wdStory
        .EndKey wdLine, wdExtend
        .Style = objWD.Styles("Çàãîëîâîê 1")
    End With
    objWD.SaveAs "C:\Îò÷åò.doc"
    objWD.Close
    objWA.Quit False
    Set objWD = Nothing
    Set objWA = Nothing
...
Рейтинг: 0 / 0
01.09.2006, 12:37:38
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33958135
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Здесь у меня русский текст пошел каракулями.
Первая каракуля это "Заголовок 1", т.е. название стиля, которым ты хочешь отформатировать свой текст.
А второе просто имя файла, "Отчет.doc"
Ну собственно все.
...
Рейтинг: 0 / 0
01.09.2006, 12:39:18
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33958322
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
orunbekВсё очень просто ...
2orunbek: Суперспасибо! С таким подробным ответом действительно всё просто :)
...
Рейтинг: 0 / 0
01.09.2006, 13:12:32
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33967147
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
А вот еще пара вопросов по Word (управление из VBAExcel):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    
    ...
    objWA.Visible = True
    Set objWD = objWA.Documents.Open("F:\CoderReport.doc")
    With objWA.Selection
        .TypeText vText
        .Style = objWD.Styles(vStyle)
        .TypeParagraph
    End With
    ...
1. Как отключить конфирмацию при выполнении макроса, а потом включить её обратно?
2. Как сделать, чтобы Word не открывался для пользователя? Сейчас юзер смотрит как заполняется документ Word, а должен видеть то, что рисует ему Excel (там окошко с прогрессбаром, и с сообщениями всякими системными).

С уважением
...
Рейтинг: 0 / 0
06.09.2006, 10:27:03
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33967267
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
100g1. Как отключить конфирмацию при выполнении макроса, а потом включить её обратно?
2. Как сделать, чтобы Word не открывался для пользователя? Сейчас юзер смотрит как заполняется документ Word, а должен видеть то, что рисует ему Excel (там окошко с прогрессбаром, и с сообщениями всякими системными).

С уважением

2. убрать
Код: plaintext
objWA.Visible = True
1. А что такое "конфирмация" ?
...
Рейтинг: 0 / 0
06.09.2006, 10:59:19
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33967282
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
КОНФИРМАЦИЯ - Энциклопедический словарь
КОНФИРМАЦИЯ - (от лат. confirmatio - утверждение), у католиков и протестантов (в разных формах) обряд приема в церковную общину подростков, достигших определенного возраста.
...
Рейтинг: 0 / 0
06.09.2006, 11:03:27
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33967856
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
vkodor 2. убрать
Уй! Блина. Так просто. *как трудно быть тупым!*
vkodor А что такое "конфирмация" ?
Окошечко запрашивающее подтверждение выбранного действия ("Вы действительно хотите удалить этот файл?")

PS: Про католиков -> ЗАЧЁТ :)
...
Рейтинг: 0 / 0
06.09.2006, 13:24:24
| Ответить | Цитировать | Написать  
Как из VBAExcel cоздать файл Word...
    #33967861
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
100g
Участник
2vkodor: Спасибо :)
...
Рейтинг: 0 / 0
06.09.2006, 13:25:31
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как из VBAExcel cоздать файл Word...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33967282&tid=2184330]:
 0ms
get settings:
 8ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 238ms
total:  352ms
созд. / загр.: 352ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]