Перенос данных из поля со списком в Word

.Bookmarks.Item("Отделение").Range.Text = Nz(Код_отд.Column(1), "")

Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Word.Application
Dim DlgUser As Integer
      Dim p, r
p = CurrentProject.Path & "\Коронарография\" 'Указать имя папки
r = Mid(strPathWord, InStrRev(strPathWord, "."))
If Dir(p & Forms!История_болезни!Номер_операции & r) <> "" Then
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
        If DlgUser = vbNo Then
            Set app = CreateObject("Word.Application")
            With app
                .Visible = True
                .Documents.Open strPathWord
            End With
            Set app = Nothing
        Else
            GoTo nn
        End If
    Else
        
nn:
        Set app = New Word.Application
        app.Visible = True
        app.Documents.Add strPathDot
        With app.ActiveDocument
            .Bookmarks.Item("ФИО_пац").Range.Text = Nz(ФИО_пац, "")
            .Bookmarks.Item("ИБ_номер").Range.Text = Nz(Номер_истории, "")
            .Bookmarks.Item("Отделение").Range.Text = Nz(Код_отд.Column(1), "")
            .Bookmarks.Item("Номер_иссл").Range.Text = Nz(Номер_операции, "")
            .Bookmarks.Item("Время_иссл").Range.Text = Nz(Время_операции, "")
            .Bookmarks.Item("Госпрограмма").Range.Text = Nz(Me.Код_госпр.Column(1), "")
            .Bookmarks.Item("Рентгенохирург").Range.Text = Nz(Me.Код_хир.Column(1), "")
            .Bookmarks.Item("Дата").Range.Text = Nz(Дата_исследования, "")
            .SaveAs p & Forms!История_болезни!Номер_операции & r
 
 
        End With
        Set app = Nothing
     End If
    funOutputWord = True
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function