|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.05.2011, 20:42 | #1 |
Новичок
Джуниор
Регистрация: 15.05.2011
Сообщений: 1
|
VBA EXCEL and WORD
Здравствуйте, пишет с просьбой о помощи вам девушка, которая далека от программирования примерно настолько же, насколько туфли от Лабутена от среднестатистического молодого человека.
Итак, у меня есть программа: PHP код:
задание после написания программы, что выше Код HTML:
13. Запуск из программы редактора MS WORD и создание документа с введенными данными. 14. Предварительное действие: 1) В конце программы ввести следующий код Dim oWord As Word.Application Dim oDoc As Word.Document Set oWord = CreateObject("Word.Application") Set oDoc = oWord.Documents.Add() oWord.Visible = True oDoc.Activate With oWord Код предназначен для открытия MS WORD 2) Добавить в VBA поддержку работы с MS WORD Зайти в меню Tools – Reference И выбрать Microsoft Word 11.0 Object Library 15. Откройте редактор MS WORD. Начните запись макроса (Сервис->Макрос->Начать запись…) 16. Аккуратно без ошибок напечатайте ваш документ, если у вас есть поле с текущей даты, то вставьте его следующим образом: Вставка ->Дата и время… 17. Остановите запись макроса 18. Зайти в Сервис->Макрос->Макросы выбрать только что созданный макрос и нажать кнопку Изменить 19. Скопировать код программы (между “Sub …()” и “End Sub”) и перенести его в конец создаваемой программы 20. После скопированного фрагмента напишите команду End With 21. В скопированном фрагменте перед каждым употреблением Selection поставить точку ( . ) Например: Было: Selection.TypeParagraph Сделать .Selection.TypeParagraph 22. Необходимо подставить переменные с информацией из UserForm в документ. (Все необходимые переменные уже использовались в пункте 11) Для этого нужно найти в скопированном фрагменте текст за место, которого необходимо выводить значение переменной. Например: Необходимо вывести фамилию заполнившего бланк Находим в программе слово Имя: .Selection.TypeText Text:="Имя: " .Selection.Font.Bold = wdToggle .Selection.Font.Italic = wdToggle .Selection.TypeText Text:="Семен" .Selection.TypeParagraph Там же видим команду выводящее само имя Семен .Selection.TypeText Text:="Семен" вместо этого имени пишем нашу переменную хранящую имя (TextBox2.Text ) .Selection.TypeText Text:= TextBox2.Text Очень надеюсь на вашу помощь! Сдавать завтра!! Мне нужно пошагово понять, что, куда и почему! А главное "КААК?!" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выделение ячеек в таблице word из VBA excel | Святой Дьявол | Microsoft Office Excel | 5 | 12.11.2022 00:57 |
VBA Word,VBA Excel решить 2 задачи | fafolo4ka | Фриланс | 6 | 05.03.2012 01:15 |
макровирусы в VBA для MS word, Excel | Aleksa_ks | Помощь студентам | 0 | 07.12.2010 14:41 |
VBA в Excel & Word | vfayans | Помощь студентам | 0 | 21.06.2010 12:25 |
Как средствами VBA экспортировать данные из Excel в Word? | Pavel_Ine | Microsoft Office Excel | 3 | 20.04.2009 14:14 |