求大神修改代码？

我用以下代码向word模板中输入窗体控件中的值，打印报表，但是窗体控件中入出现空值时，导出的word报表中，后面的书签都成空项，举例说，如果学生信息！text111是空值的话，模板书签2以后的项全部为空，程序报错，求大神们帮助修改一下，控件中有空值时，继续后面的程序！！！谢谢

Private Sub 打印_Click()

Dim wordapp As New word.Application

Dim worddoc As word.Document
Dim str As String
str = CurrentProject.Path & "\模板.dotx"
Set worddoc = wordapp.Documents.Add(str, False)
wordapp.Visible = True
 With wordapp.Selection
  .GoTo what:=wdGoToBookmark, Name:="模板书签1"
     .TypeText Forms!学生信息!Text107
  .GoTo what:=wdGoToBookmark, Name:="模板书签2"
     .TypeText Forms!学生信息!Text111
  .GoTo what:=wdGoToBookmark, Name:="模板书签3"
     .TypeText Forms!学生信息!Text109
 End With

Set wordapp = Nothing   '释放变量
Set worddoc = Nothing
End Sub