Работа с MS Word с помощью VBA. Нужна помощь.

[bunfaot]

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

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

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

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

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

Т.е. 3 разных задания, которые видимо имеют свой способ решения (а НЕ 3 в 1). Кто сможет помочь? Буду признателен!

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

Код: Выделить всё

Private Sub CommandButton1_Click()     
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft     
End Sub     
     
Private Sub CommandButton2_Click()     
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter     
End Sub     
     
Private Sub CommandButton3_Click()     
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight     
End Sub     
     
Private Sub CommandButton4_Click()     
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify     
End Sub 

[alibek]

Не вижу даже попыток самостоятельного решения.

[gjghjc]

А если записать макрос на все задания? И потом проанализировать все это?

[bunfaot]

to alibek, ну как бы я сказал что в программировании не разбираюсь + нет методических указаний, только задания...

[bunfaot]

Хотел сделать в 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 задании при записи макросов не могу ничего нарисовать (линии, обьекты и т.д.).

Как быть?

[bunfaot]

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

[Денис]

Моя начальная ставка: 500€

[alibek]

Денис, не флудим.
Для подобных разговоров есть раздел "Работа".