visual basic problem - wie weiter?!?!

Sub speichern()
    Static objRange As Object
    Static dname As String
    Static speichernu As String
    Static objZeile As Words
    For Each objZeile In objRange.Document
        If objZelle = "1111" Then
            Set speichernu = objZeile
            Exit For
        End If
    Next objZelle
    dname = speichernu & ".doc"
    ActiveDocument.saveas FileName:=name, FileFormat:=wdFormatDocument, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
End Sub