Ошибка команды 4198

Private Sub кнПровести_Click()
Dim wda As Word.Application
Dim wdd As Word.Document
Dim intPrint As Integer
Dim db As Database
Dim rst As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset
Dim str, str2, str3, str4, str5, str6, str7, str8, strPath As String
Dim k, t, i As Integer
Set db = CurrentDb
 
Set rst3 = CurrentDb.OpenRecordset("MSysObjects", dbOpenSnapshot)
rst3.FindFirst "name = 'USysRibbons'"
strPath = rst3!Database
strPath = Left(strPath, Len(strPath) - 14)
 
str4 = "select * from тбпродажа where кодзаказ = " & Me.кодЗаказ
Set rst = db.OpenRecordset(str4)
str8 = "select * from зпДанныеДоговор where код = " & Me.кодЗаказ
Set rst2 = db.OpenRecordset(str8, dbOpenSnapshot)
 
rst.MoveLast
t = rst.RecordCount
rst.MoveFirst
str5 = ""
For i = 1 To t
str5 = str5 & " - " & UCase(Left(rst!названиеТовар, 1)) & Mid(rst!названиеТовар, 2) & " - " & rst!количество & " шт." & vbNewLine
rst.MoveNext
Next i
 
str = strPath & "\Договор_рекламаПроект.dotx"
str7 = strPath & "\Договоры\Договор_" & Me.компания & "_" & Me.клиент & "_" & Me.номерДоговор & ".doc"
Set wdd = CreateObject(str)
Set wda = wdd.Parent
wda.visible = True
 
wdd.Bookmarks("номер").Select
wda.Selection.TypeText Text:=Me.номерДоговор
wdd.Bookmarks("тема").Select
wda.Selection.TypeText Text:=Me.тема
wdd.Bookmarks("дата").Select
wda.Selection.TypeText Text:=Me.датаДоговор
wdd.Bookmarks("компания").Select
wda.Selection.TypeText Text:=Me.компания
wdd.Bookmarks("директора").Select
wda.Selection.TypeText Text:=Me.нашДиректор
wdd.Bookmarks("основание").Select
wda.Selection.TypeText Text:=Me.нашеОснование
wdd.Bookmarks("клиент").Select
wda.Selection.TypeText Text:=Me.клиент
wdd.Bookmarks("контакт").Select
wda.Selection.TypeText Text:=Me.клиентДиректор
wdd.Bookmarks("основаниеклиент").Select
wda.Selection.TypeText Text:=Me.клиентОснование
wdd.Bookmarks("товар").Select
wda.Selection.TypeText Text:=str5
str6 = strokaSumma(Me.сумма)
wdd.Bookmarks("сумма").Select
wda.Selection.TypeText Text:=Me.сумма & "р. (" & str6 & ")"
wdd.Bookmarks("срок").Select
wda.Selection.TypeText Text:=Me.срок
wdd.Bookmarks("НДС").Select
If Left(Me.клиент, 2) = "ИП" Then
wda.Selection.TypeText Text:="НДС не предусмотрен."
Else
wda.Selection.TypeText Text:="В том числе НДС 18% - " & Round((Me.сумма - Me.сумма / 1.18), 2) & "р."
End If
wdd.Bookmarks("гарантия").Select
wda.Selection.TypeText Text:=Me.гарантия
 
str2 = Me.компания & vbNewLine _
& "ИНН " & rst2![тбКомпания.инн] & vbNewLine _
& "Юр.адрес: " & rst2!юрАдрес & vbNewLine _
& "Р/с: " & rst2![тбКомпания.рсчет] & "БИК: " & rst2![тбКомпания.бик] & vbNewLine _
& "Банк: " & rst2![тбКомпания.банк] & vbNewLine _
& "тел.: " & rst2!телефон & vbNewLine _
& "e-mail: " & rst2!почта
 
wdd.Bookmarks("реквизиты").Select
wda.Selection.TypeText Text:=str2
wdd.Bookmarks("дир").Select
wda.Selection.TypeText Text:=rst2!фамилия & " " & Left(rst2!имя, 1) _
& ". " & Left(rst2!отчество, 1) & ". "
 
str3 = Me.клиент & vbNewLine _
& "ИНН " & rst2![тбКлиенты.инн] & vbNewLine _
& "Юр.адрес: " & rst2!юридическийАдресКл & vbNewLine _
& "Р/с: " & rst2![тбКлиенты.рсчет] & "БИК: " & rst2![тбКлиенты.бик] & vbNewLine _
& "Банк: " & rst2![тбКлиенты.банк] & vbNewLine _
& "тел.: " & rst2!телефонКл & vbNewLine _
& "e-mail: " & rst2!интернетПочтаКл
wdd.Bookmarks("реквизитыЗаказчик").Select
wda.Selection.TypeText Text:=str3
 
wda.ActiveDocument.SaveAs (str7)
wda.Activate
 
rst.Close
rst2.Close
rst3.Close
Set rst = Nothing
Set rst2 = Nothing
Set rst3 = Nothing
Set wdd = Nothing
Set wda = Nothing
DoCmd.Close acForm, "фмДоговор"
End Sub