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

Добрый день.
Подскажите, пожалуйста, возможно ли в документ Word вставить закладку так чтобы слово печаталось с разбивкой по полям таблицы? Т.е. каждая отдельная буква в отдельном поле.

.

Я извиняюсь, наверное не точно задала вопрос.
Добавляю закладку в таблицу напротив Фамилии, соответственно закладка вставляется в первое поле таблицы. Получаю после генерации документа см. рис.ниже.
Т.е. фамилия клиента прописывается в одном поле, а надо чтобы каждая отдельная буква фамилии прописывалась в каждом отдельном поле таблицы.

olga.a,

можно обойтись без закладок (см. пример)

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
Замечательно проходит.

не уверена --пример прилагаю

ПЕНСИОНЕРКА,
ну, это поправимо (только не думаю , что у ТС именно такой случай) :)

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

ПЕНСИОНЕРКА
... не уверена --пример прилагаю

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

Так проходит:

objDoc.Tables(1).Cell(1, i).Range.Text = s