Работа с Word в VBA

[RaTeN]

Нужно сделать форму заявления, прикреплена, но не могу сделать выравнивание и переход на новую строку.

Dim objWord As Object
Dim Paragraph  As Object
    Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open ("F:\Лабы по КИТ\1.docx")
objWord.Selection.Paragraphs.Add //типо добавили параграф
objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight //выравнивание не происходит
objWord.Selection.Text = "Директору БКТ"

Объясните, кто знает...

[Вождь]

Вставка параграфа с переходом на новую строку:

Selection.TypeParagraph

Еще может пригодиться вставка текста:

Selection.TypeText "Директору БКТ"

Обе команды работают как набор на клавиатуре, т.е. по завершении курсор в конце вставленного.

[RaTeN]

спасибо

организовал так, потому что выравнивание не работает

Private Sub CommandButton1_Click()
Dim objWord As Object
Dim Paragraph  As Object
    Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open ("F:\Лабы по КИТ\1.docx")
objWord.Selection.TypeParagraph

'objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
objWord.Selection.ParagraphFormat.FirstLineIndent = 300
objWord.Selection.Text = "Директору БКТ" + Chr(10) + TextBox3 + " " + TextBox4 + Chr(10) + "от студента" + Chr(10) + TextBox6 + " " + TextBox5


objWord.Selection.Collapse Direction:=wdCollapseStart
objWord.Selection.TypeParagraph
objWord.Selection.ParagraphFormat.FirstLineIndent = 200
objWord.Selection.Text = "Заявление"

objWord.Selection.Collapse Direction:=wdCollapseStart
objWord.Selection.TypeParagraph
objWord.Selection.ParagraphFormat.FirstLineIndent = 30
objWord.Selection.Text = "Прошу заменить мне студенчиский билет по той причине, что его " + ComboBox1 + ". Сумма в колличестве " + TextBox7 + " внесена на кассу."

objWord.Selection.Collapse Direction:=wdCollapseStart
objWord.Selection.TypeParagraph
objWord.Selection.ParagraphFormat.FirstLineIndent = 350
objWord.Selection.Text = "Дата " + TextBox1

End Sub

[Пименов Александр]

Ну во первых сложности с выравниванием у Вас в другом, например:

'objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
objWord.Selection.ParagraphFormat.FirstLineIndent = 300
objWord.Selection.Text = "Директору БКТ" + Chr(10) + TextBox3 + " " + TextBox4 + Chr(10) + "от студента" + Chr(10) + TextBox6 + " " + TextBox5

1. Строка

'objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

оформлена как комментарий и не выполняется т.к. в начале стоит символ '
2. Строка

objWord.Selection.ParagraphFormat.FirstLineIndent = 300

Должна выглядеть так:

objWord.Selection.ParagraphFormat.FirstLineIndent = 0

так как абзац является шапкой Заявления, выровненный по правому краю
3. Соответственно следуюий код

objWord.Selection.ParagraphFormat.FirstLineIndent = 200
objWord.Selection.Text = "Заявление"

Должен выглядеть так

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWord.Selection.ParagraphFormat.FirstLineIndent = 0
objWord.Selection.ParagraphFormat.FirstLineIndent = 200
objWord.Selection.Text = "Заявление"

4. Код для теста Заявления должен выглядеть так:

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWord.Selection.ParagraphFormat.FirstLineIndent = MiilimetersToPoints(12.5)
objWord.Selection.Text = "Прошу заменить мне студенчиский билет по той причине, что его " + ComboBox1 + ". Сумма в колличестве " + TextBox7 + " внесена на кассу."

5. Код ввода даты должен выглядеть так:

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
objWord.Selection.ParagraphFormat.FirstLineIndent = 0
objWord.Selection.Text = "Дата " + TextBox1

[Пименов Александр]

3. Соответственно следуюий код
Код:

objWord.Selection.ParagraphFormat.FirstLineIndent = 200
objWord.Selection.Text = "Заявление"

Должен выглядеть так
Код:

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWord.Selection.ParagraphFormat.FirstLineIndent = 0
objWord.Selection.Text = "Заявление"

[RaTeN]

так я говорю, что

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

не работает вообще, он не выравнивае никак текст

[Пименов Александр]

Сообщение от RaTeN

так я говорю, что

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

не работает вообще, он не выравнивае никак текст

Правильно, потому что ParagraphFormat относится к объекту Paragraph

objWord.Selection.Paragraph(1).ParagraphFormat.Alignment = wdAlignParagraphCenter

[Пименов Александр]

Текст абзаца:
objWord.Selection.Paragraph(1).Rang e.Text = "Заявление"

[Пименов Александр]

objWord.Selection.Paragraph(1).Range.Text = "Заявление"