Закладка в таблице, в документе Word

olga.a
Дата: 08.02.2016 12:10:48
Добрый день.
Подскажите, пожалуйста, возможно ли в документ Word вставить закладку так чтобы слово печаталось с разбивкой по полям таблицы? Т.е. каждая отдельная буква в отдельном поле.
Predeclared
Дата: 08.02.2016 12:44:44
.
olga.a
Дата: 08.02.2016 13:31:47
Я извиняюсь, наверное не точно задала вопрос.
Добавляю закладку в таблицу напротив Фамилии, соответственно закладка вставляется в первое поле таблицы. Получаю после генерации документа см. рис.ниже.
Т.е. фамилия клиента прописывается в одном поле, а надо чтобы каждая отдельная буква фамилии прописывалась в каждом отдельном поле таблицы.
guest_rusimport
Дата: 08.02.2016 13:37:02
olga.a,

можно обойтись без закладок (см. пример)
ПЕНСИОНЕРКА
Дата: 08.02.2016 13:50:58
guest_rusimport,

этот вариант не пройдет, если в таблица неоднородная --имеются объединенные ячейки

Public Function fff()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from t1")
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(CurrentProject.Path & "\DOC2.doc")
rst.MoveFirst
objWord.Visible = True
i = 1
Do While i <= Len(rst.Fields(0))
s = Mid(rst.Fields(0), i, 1)
objDoc.Tables(1).Columns(i).Cells(1).Range.Text = s
i = i + 1
Loop
End Function
Predeclared
Дата: 08.02.2016 13:59:22
Замечательно проходит.
ПЕНСИОНЕРКА
Дата: 08.02.2016 14:11:27
Predeclared
Замечательно проходит.

не уверена --пример прилагаю
guest_rusimport
Дата: 08.02.2016 14:38:17
ПЕНСИОНЕРКА,
ну, это поправимо (только не думаю , что у ТС именно такой случай) :)
Public Function fff()
Dim rst As DAO.Recordset
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set rst = CurrentDb.OpenRecordset("select * from t1")
'Set objWord = CreateObject("Word.Application")
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(CurrentProject.Path & "\DOC2.doc")
rst.MoveFirst
objWord.Visible = True
i = 1
Do While i <= Len(rst.Fields(0))
s = Mid(rst.Fields(0), i, 1)
'objDoc.Tables(1).Columns(i).Cells(1).Range.Text = s
objDoc.Tables(1).Cell(1, i).Range.Text = s
i = i + 1
Loop
End Function
Predeclared
Дата: 08.02.2016 14:41:36
ПЕНСИОНЕРКА
...
не уверена --пример прилагаю

:)
А и правда что.
Я в трех соснах примерах "заблудился".
Проверял в своем, оказывается.

Так проходит:
objDoc.Tables(1).Cell(1, i).Range.Text = s