Помогите с VBA

[ereality]

В программировании не разбираюсь вообще... но препод гад дал всем задания.. и установил конечную дату. Как кто делать будет его не волнует. Вот поэтому обращаюсь к вам господа. Может ли кто помочь?

Задания следующие:

1. Работа с документами и текстом в MS Word с помощью VBA.
Задание. Операции: Добавление пустого абзаца, установка различных типов выравнивания абзаца, отступа первой строки, установка межстрочного ин-тервала.

2. Интегрирование приложений MS Office с помощью VBA.
Задание. Таблица имеет следующую структуру: код, название книги, автор, цена, кол-во листов

3. Использование графики в VBA.
Задание. Нарисовать с помощью графических элементов произвольную открытку. Она должна содержать минимум 7 элементов, надписи и произвольный рисунок.

Т.е. 3 разных задания (а НЕ 3 в 1). Буду признателен!

К примеру.. пробовал делать 1 задание.. получилось только выравнивание.. остальное увы не выходило

Private Sub Left_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
End Sub

Private Sub Center_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

Private Sub Right_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End Sub

Private Sub Justify_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
End Sub

[MaTBeu]

А ты слышал про запись макросов? Так вот, макросы эти... сохраняются в виде программы на VBA (это если ты не знал). Так что берешь, нажимаешь кнопочку "Запись макроса", делаешь все свои операции (выравнивание, отступы и так далее), а потом открываешь список макросов, и нажимаешь кнопку "Изменить". Открывается встроенный редактор VBA-кода. Там уже разберешься.

[ereality]

Спасибо. Попробую разобраться

[ereality]

Хотел сделать в 1 задании к каждому пункту кнопку.
Получилось вот такое:

Private Sub CommandButton1_Click()
Selection.TypeText Text:="Работа с документами и текстом в MS Word с помощью VBA. Цель: Познакомится с наиболее часто используемыми объектами VBA, их свойствами и методами и научится работать с ними. Закрепить знания об использовании VBA при работе с документами в MS Word, составление программ с применением основных объектов и методов работы с текстом."
End Sub

Private Sub CommandButton2_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
End Sub

Private Sub CommandButton3_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

Private Sub CommandButton4_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End Sub

Private Sub CommandButton5_Click()
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
End Sub

Private Sub CommandButton6_Click()
Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
End Sub

Private Sub CommandButton7_Click()
Selection.TypeText Text:=vbTab
End Sub

Private Sub CommandButton8_Click()
Selection.TypeParagraph
End Sub

Только как сделать так, чтобы все функции применялись к заданному тексту? А то, к примеру при нажатии на кнопку "по правому краю", перемещается не текст, а кнопка и т.д...

Во 2 задании нужна интеграция листа Excel в Word. С макросами не пойму как это сделать.

А в 3 задании при записи макросов не могу ничего нарисовать (линии, обьекты и т.д.).

Как быть?

[ereality]

Да.. видимо никто не хочет безвозмездно помочь))
То озвучьте сумму, за которую готовы помочь

[ereality]

Так, сделал 1 и 3 задания)) Осталось задание №2... Как его реализовать?
Напомню, что:
2. Интегрирование приложений MS Office с помощью VBA.
Задание. Таблица имеет следующую структуру: код, название книги, автор, цена, кол-во листов