Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Презентация по теме: "Создание интегрированных документов на языке VBA"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Презентация по теме: "Создание интегрированных документов на языке VBA"

библиотека
материалов
Разработка приложения для создания интегрированных документов в среде MS Offi...
Актуализация знаний Это свойство позволяет регулировать видимость объекта на...
Актуализация знаний Этот объект обозначает приложение Ms Word или Ms Excel. О...
Актуализация знаний Этот объект позволяет обращаться к выделенному фрагменту...
Интегрированный (составной) документ. Что это? В рабочий документ можно встав...
Создание интегрированного документа
Заполнение документа MS Word данными из MS Excel
Постановка задачи Создать программу – «Помощник классного руководителя», позв...
Действия VBA-программы
Dim wdApp, wdDoc As Object Set wdApp = CreateObject ("Word.Application") wdAp...
R = Selection.Row wdDoc.Tables(1).Cell(1, 2).Range = Cells(R, 2) For i = 3 To...
Private Sub CommandButton1_Click() Dim wdApp, wdDoc As Object Dim i, R As Int...
Контрольные вопросы CreateObject 1. В программе использовалась функция, позво...
13 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Описание презентации по отдельным слайдам:

№ слайда 1 Разработка приложения для создания интегрированных документов в среде MS Offi
Описание слайда:

Разработка приложения для создания интегрированных документов в среде MS Office на языке VBA Автор: Ковалев Сергей Николаевич, учитель информатики и ИКТ, МБУ лицей №67 г.о. Тольятти Открытый урок по теме: 29.04.2014 Приложение №1

№ слайда 2 Актуализация знаний Это свойство позволяет регулировать видимость объекта на
Описание слайда:

Актуализация знаний Это свойство позволяет регулировать видимость объекта на экране и принимает значения True или False. 1. Для чего в языке VBA используется свойство Visible и какие значения оно может принимать? 2. Что произойдет при выполнении следующей команды? Documents.Add Visible:=False В среде MS Word создается новый документ и скрывается.

№ слайда 3 Актуализация знаний Этот объект обозначает приложение Ms Word или Ms Excel. О
Описание слайда:

Актуализация знаний Этот объект обозначает приложение Ms Word или Ms Excel. Он включает в себя все другие объекты. 3. Что обозначает и для чего используется объект Application? 4. Что произойдет при выполнении следующей команды? Application.Quit Данная команда приводит к закрытию приложения.

№ слайда 4 Актуализация знаний Этот объект позволяет обращаться к выделенному фрагменту
Описание слайда:

Актуализация знаний Этот объект позволяет обращаться к выделенному фрагменту документа Word или рабочей книги Excel. 5. Для чего в языке VBA используется объект Selection? 6. Что произойдет при выполнении следующей команды? Range("E10") = Selection.Row В ячейку Е10 будет записан номер выделенной строки электронной таблицы Excel.

№ слайда 5 Интегрированный (составной) документ. Что это? В рабочий документ можно встав
Описание слайда:

Интегрированный (составной) документ. Что это? В рабочий документ можно вставить фрагмент из другого документа, созданного в другой программной среде и имеющего иной тип данных. Например, в текст, созданный в текстовом редакторе MS Word, можно включить таблицу, тип данных в которой определяется табличным процессором Excel,

№ слайда 6 Создание интегрированного документа
Описание слайда:

Создание интегрированного документа

№ слайда 7 Заполнение документа MS Word данными из MS Excel
Описание слайда:

Заполнение документа MS Word данными из MS Excel

№ слайда 8 Постановка задачи Создать программу – «Помощник классного руководителя», позв
Описание слайда:

Постановка задачи Создать программу – «Помощник классного руководителя», позволяющую на основе имеющейся ведомости оценок создать табель успеваемости для выбранного ученика.

№ слайда 9 Действия VBA-программы
Описание слайда:

Действия VBA-программы

№ слайда 10 Dim wdApp, wdDoc As Object Set wdApp = CreateObject ("Word.Application") wdAp
Описание слайда:

Dim wdApp, wdDoc As Object Set wdApp = CreateObject ("Word.Application") wdApp.Application.Visible = True 1. Объявляем переменные объектного типа 2. Создаем приложение MS Word 3. Отображаем приложение MS Word на экране Код VBA-программы (начало программы) 4. Открываем нужный документ Set wdDoc = wdApp.Documents.Open (“C:\Табель.docx")

№ слайда 11 R = Selection.Row wdDoc.Tables(1).Cell(1, 2).Range = Cells(R, 2) For i = 3 To
Описание слайда:

R = Selection.Row wdDoc.Tables(1).Cell(1, 2).Range = Cells(R, 2) For i = 3 To 17 wdDoc.Tables(2).Cell(i - 1, 2).Range = Cells(R, i) Next 1. Получаем номер выделенной в таблице строки 2. Вставляем в табель фамилию ученика 3. Заполняем табель оценками Код VBA-программы (основной блок)

№ слайда 12 Private Sub CommandButton1_Click() Dim wdApp, wdDoc As Object Dim i, R As Int
Описание слайда:

Private Sub CommandButton1_Click() Dim wdApp, wdDoc As Object Dim i, R As Integer Set wdApp = CreateObject ("Word.Application") wdApp.Application.Visible = True Set wdDoc = wdApp.Documents.Open ("C:\VBA\Бланк.docx") R = Selection.Row wdDoc.Tables(1).Cell(1, 2).Range = Cells(R, 2) For i = 3 To 17 wdDoc.Tables(2).Cell(i - 1, 2).Range = Cells(R, i) Next End Sub Полный код VBA-программы

№ слайда 13 Контрольные вопросы CreateObject 1. В программе использовалась функция, позво
Описание слайда:

Контрольные вопросы CreateObject 1. В программе использовалась функция, позволяющая запустить приложение MS Word. Как она называется? 2. Переменные какого типа использовались в программе для доступа к приложению MS Word и его объектам? Объектные переменные типа Object 3. Как должен быть записан оператор, позволяющий из MS Excel занести данные в 1-ю ячейку таблицы Word ? wdDoc.Tables(1).Cell(1, 1).Range


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 22.01.2016
Раздел Информатика
Подраздел Презентации
Просмотров187
Номер материала ДВ-366912
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх