Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как из VBAExcel cоздать файл Word... / 9 сообщений из 9, страница 1 из 1
01.09.2006, 12:14:53
    #33958030
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
... и заполнить его данными находящимися на листе в Екселе?
Конкретные два вопроса:
1. Как программно из VBAExcel создать вордовский файл Отчет.doc?
2. Как из строковой переменной (в VBAExcel) вписать данные в Отчет.doc с присвоением стиля абзаца, например Заголовок1?

С уважением.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2006, 12:37:38
    #33958120
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
Всё очень просто на 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:39:18
    #33958135
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
Здесь у меня русский текст пошел каракулями.
Первая каракуля это "Заголовок 1", т.е. название стиля, которым ты хочешь отформатировать свой текст.
А второе просто имя файла, "Отчет.doc"
Ну собственно все.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2006, 13:12:32
    #33958322
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
orunbekВсё очень просто ...
2orunbek: Суперспасибо! С таким подробным ответом действительно всё просто :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2006, 10:27:03
    #33967147
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
А вот еще пара вопросов по 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:59:19
    #33967267
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VBAExcel cоздать файл Word...
100g1. Как отключить конфирмацию при выполнении макроса, а потом включить её обратно?
2. Как сделать, чтобы Word не открывался для пользователя? Сейчас юзер смотрит как заполняется документ Word, а должен видеть то, что рисует ему Excel (там окошко с прогрессбаром, и с сообщениями всякими системными).

С уважением

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

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


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