Set WordApp = New Word.Application
On Error Resume Next
WordApp.Documents.Add (App.Path & "\SunSparkHeb.dot") 'Подключение своего темплейта со своими стилями
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=3
sel.Range.Borders.Enable = True
sel.TypeText ("Дата")
sel.Style = "normal" ' Выбор стиля
sel.Columns(1).Width = 60
sel.MoveRight (12) ' Переход на следующую ячейку
sel.TypeText ("Посещаемость")
sel.Columns(1).Width = 25
sel.MoveRight (12)
sel.TypeText ("Оценка")
sel.Columns(1).Width = 30
If Data2.Recordset.RecordCount > 0 Then
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
sel.MoveRight (12)
sel.TypeText (Format(Data2.Recordset!d_less, "dd.MM.yyyy"))
sel.Style = "normal"
sel.MoveRight (12)
sel.TypeText ("" & Data2.Recordset!yes)
sel.Style = "normal"
sel.MoveRight (12)
sel.TypeText ("" & Data2.Recordset!grade)
sel.Style = "normal"
Data2.Recordset.MoveNext
Loop
sel.MoveDown Unit:=wdLine 'Завершение таблицы и выход из нее в тело документа
End If
Set doc = Nothing
Set sel = Nothing
Set WordApp = Nothing
Импорт текста в Документ
Подскажите пожалуйста, как импортировать текст из проги в документ. Было бы не плохо если подскажите как форматировать текст.
Буду признателен!
Буду признателен!
Из проги в документ?
C помощью open можно сделать все!
C помощью open можно сделать все!
Цитата:
open <filepath> For Output As <numb>
print <numb>, <string для считывания>
Close <numb>
print <numb>, <string для считывания>
Close <numb>
Ищи ещё примеры с ней
Цитата:
Было бы не плохо если подскажите как форматировать текст.
А форматировать только в richtextboxe можно, здесь на сайте по него хорошая статья есть ;)
Хороший вопрос, часто бывает надо.
Хотелось бы уточнить его, или это будет отдельный вопрос?
Есть база данных Acceess - VB6
По запросу данные отобраны в DataGrid
Вот из этого DataGrid и надо передать данные в Word
Как это делается?
Спасибо!
Хотелось бы уточнить его, или это будет отдельный вопрос?
Есть база данных Acceess - VB6
По запросу данные отобраны в DataGrid
Вот из этого DataGrid и надо передать данные в Word
Как это делается?
Спасибо!
Вот так это делается (рабочий пример)
Перед всем этим надо подключить библиотеку Word через Project -> References
Перед всем этим надо подключить библиотеку Word через Project -> References
Код: