Выгрузка в ворд

@kpevetko · Регистрация: 25.10.2017

Author24 — интернет-сервис помощи студентам

Добрый день Уважаемые форумчане, прошу помочь советом.
Ситуация следующая: Необходимо выгрузить данные из БД в Word, но выгрузить их в новый документ, заостряю на этом внимание, т.к. через Bookmarks по "скелету" существующего файла я понял как это работает, но хотелось бы понять как сделать это именно с новым документом (созданным в процедуре vb).
При этом необходимо сделать так, чтобы каждая новая запись начиналась с новой строки.

Выглядит у меня это следующим образом (пример с Bookmarks):

Visual Basic

Private Sub Кнопка198_Click()
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim rs As DAO.Recordset
Dim strSQL As String
Dim Сила, Восп As String
 
Сила = Me.Сил.Value
Восп = Me.Вос.Value
 
'берем инфу из запроса
strSQL = "SELECT * from tblPerk where (Сила <= " & Сила & ") And (Воспр <= " & Восп & ")"
 
Set wapp = New Word.Application
Set wdoc = wapp.Documents.Open("C:\Users\WeAre\Desktop\Perk.docx")
Set rs = CurrentDb.OpenRecordset(strSQL)
 
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
wdoc.Bookmarks("perk").Range.Text = ("player.removeperk" + " " + rs!IDPerk)
wdoc.Bookmarks("perk").Range.InsertParagraphAfter
rs.MoveNext
Loop
wdoc.SaveAs2 "C:\Users\" & Environ("username") & "\Desktop\perk1.doc"
wdoc.Close False
wapp.Quit
 
Set wdoc = Nothing
Set wapp = Nothing
Set rs = Nothing
End Sub

Не могу понять как сделать чтобы можно было через:

Visual Basic

Private Sub Кнопка198_Click()
Dim wapp As Word.Application
Dim wdoc As Word.Document
Dim rs As DAO.Recordset
Dim strSQL As String
Dim Сила, Восп As String
 
Сила = Me.Сил.Value
Восп = Me.Вос.Value
 
'берем инфу из запроса
strSQL = "SELECT * from tblPerk where (Сила <= " & Сила & ") And (Воспр <= " & Восп & ")"
 
Set wapp = New Word.Application
Set wdoc = wapp.Documents.Add
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
'какой-то код, который будет работать
 
rs.MoveNext
Loop
wdoc.SaveAs2 "C:\Users\" & Environ("username") & "\Desktop\perk1.doc"
wdoc.Close False
wapp.Quit
 
Set wdoc = Nothing
Set wapp = Nothing
Set rs = Nothing
End Sub

@Казанский · 15.05.2018, 17:32

kpevetko, например

Visual Basic

1 2	'какой-то код, который будет работать wdoc.Range.InsertAfter rs!IDPerk & vbCr

@kpevetko · 15.05.2018, 17:54 **[ТС]**

Сообщение от Казанский

kpevetko, например

Visual Basic

1 2	'какой-то код, который будет работать wdoc.Range.InsertAfter rs!IDPerk & vbCr

Мда, оказывается ответ был на поверхности. Спасибо за ответ.
Еще вопрос вдогонку, вдруг подскажите:
Если, находясь в таблице Word нажимать "Tab" создается новая строка- продолжение таблицы. А вот к примеру как можно это реализовать через VB? Т.е. в таблице есть Закладка, в нее передается текст, после заполнения строки данными, идет переход на следующую строку и таблица продолжается?
Опять же через "wdoc.Range.InsertParagraphAfter" получается что я не создаю новую строку таблицы как бы это сделал переход через "Tab", а создаю строку внутри строки таблица.

@Казанский · 15.05.2018, 18:07

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

Если, находясь в таблице Word нажимать "Tab" создается новая строка- продолжение таблицы. А вот к примеру как можно это реализовать через VB?

Макрорекордер Ворда дает ответ на этот вопрос: Selection.MoveRight Unit:=wdCell. В случае внешнего управления надо указать принадлежность Selection:

Visual Basic

1
2

wapp.Selection.MoveRight Unit:=wdCell 'перейти в след. ячейку, при необходимости добавить строку
wapp.Selection.InsertAfter rs!IDPerk 'вписать текст в ячейку

@kpevetko · 15.05.2018, 19:34 **[ТС]**

Сообщение от Казанский

Макрорекордер Ворда дает ответ на этот вопрос: Selection.MoveRight Unit:=wdCell. В случае внешнего управления надо указать принадлежность Selection:

Visual Basic

1
2

wapp.Selection.MoveRight Unit:=wdCell 'перейти в след. ячейку, при необходимости добавить строку
wapp.Selection.InsertAfter rs!IDPerk 'вписать текст в ячейку

Да, это если с начала нового документа начинать. А в случае если необходимо с "Закладки"?

@Казанский · 16.05.2018, 10:32

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

Ситуация следующая: Необходимо выгрузить данные из БД в Word, но выгрузить их в новый документ, заостряю на этом внимание, т.к. через Bookmarks по "скелету" существующего файла я понял как это работает, но хотелось бы понять как сделать это именно с новым документом

Я так понимаю, речь идет о создании нового документа из шаблона, в котором есть таблица и закладка в ней?

Visual Basic

  Set wdoc = wapp.documents.Add("C:\Users\WeAre\Desktop\Perk.docx") 'создание из шаблона
  wapp.Selection.GoTo What:=wdGoToBookmark, Name:="perk"            'переход к закладке
  
  If Not rs.EOF Then rs.MoveFirst
  Do 'Until rs.EOF
    wapp.Selection.Range.Text = "player.removeperk " & rs!IDPerk
    rs.MoveNext
    If Not rs.EOF Then wapp.Selection.MoveRight Unit:=wdCell Else Exit Do
  Loop

Если не подойдет, приложите документ/шаблон и объясните внятно задачу.

@kpevetko · 16.05.2018, 14:52 **[ТС]**

Сообщение от Казанский

Я так понимаю, речь идет о создании нового документа из шаблона, в котором есть таблица и закладка в ней?

Visual Basic

  Set wdoc = wapp.documents.Add("C:\Users\WeAre\Desktop\Perk.docx") 'создание из шаблона
  wapp.Selection.GoTo What:=wdGoToBookmark, Name:="perk"            'переход к закладке
  
  If Not rs.EOF Then rs.MoveFirst
  Do 'Until rs.EOF
    wapp.Selection.Range.Text = "player.removeperk " & rs!IDPerk
    rs.MoveNext
    If Not rs.EOF Then wapp.Selection.MoveRight Unit:=wdCell Else Exit Do
  Loop

Если не подойдет, приложите документ/шаблон и объясните внятно задачу.

Спасибо большое за помощь. Но я понял что вставка в шаблон в котором присутствует таблица не подойдет для моих задач, т.к. таблица должна быть не всегда.
По-хорошему есть Служебный документ в котором необходимо вставлять данные в таблицу, однако данная таблица не всегда будет присутствовать (в зависимости от случая), в связи с этим мне кажется что лучше будет "рисовать" таблицу программно по мере надобности.
Приложил пример шаблона.

@Alex77755 · 16.05.2018, 18:30

создать документ с таблицей и колонтитулами
выбери нужное

	16.05.2018, 18:30

Выгрузка в ворд

Решение