Не открывается файл Word

Sub mm230430a()
If Len(Selection.Range.Text) > 0 Then
''Debug.Print Asc(Selection.Range.Text) 'для справок о кодах некоторых символоя
''Debug.Print AscW(Selection.Range.Text)
End If
Dim c1 As Object, j1 As Long, j2 As Long, ss
ss = ""
For Each c1 In Word.ActiveDocument.Characters
j1 = Asc(c1)
j2 = AscW(c1)
''''''''''''''''''''''
If Len(c1.Text) = 1 Then
    If j1 < 7 Then
        ss = ss & " "
    ElseIf j1 = 7 Then
        ss = ss & "`"
    ElseIf j1 = 9 Then
        ss = ss & " "
    ElseIf j1 = 11 Then
        ss = ss & " "
    ElseIf j1 = 13 Or j1 = 10 Then
        ss = ss & VBA.vbCrLf
    ElseIf j1 < 32 Then
        ss = ss & " "
    Else
        ss = ss & Chr(j1) 'c1.Text
    End If
GoTo n_c1
End If
''''''''''''''''''''''''''''
If j2 = 256 Then
    ss = ss & "#"
ElseIf j2 > 10000 Then
    ss = ss & " "
Else
    Debug.Print Len(c1.Text); j2;
    ss = ss & "~"
End If
''''''''''''''''''''''
n_c1:
Next c1
Debug.Print Now
Word.Documents.Add
Selection.Range.Text = ss
End Sub