починка макроса замены по всему тексту

[caute]

Очень полезный макрос, но в нем таится один глюк: если подстрочная сноска начинается с курсивного слова, макрос превращает ВСЮ сноску в курсив. А если сноска начинается не с курсива, но курсивом написаны какие-то слова в сноске, то макрос ВСЮ сноску делает некурсивной. Не пойму, как с этим справиться. Помогите!
Возможно, нужно просто вставить команду "игнорировать формат текста"?
Вот, например (в самом низу три замены):

Sub frepl30(chto, chem)
Dim z1, z1k
z1 = chto
z1k = chem
Options.AutoFormatAsYouTypeReplaceQuotes = False
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = z1
  .Replacement.Text = z1k
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 ActiveWindow.ActivePane.VerticalPercentScrolled = 0
 Dim sn1 As Footnote, s1
 For Each sn1 In Word.ActiveDocument.Footnotes
 s1 = Replace(sn1.Range.Text, z1, z1k, , , vbTextCompare)
 sn1.Range.Text = s1
 Next sn1
 Dim sn2 As Endnote, s2
 For Each sn2 In Word.ActiveDocument.Endnotes
 s1 = Replace(sn2.Range.Text, z1, z1k, , , vbTextCompare)
 sn2.Range.Text = s1
 Next sn2
Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub
Sub том_страница()
 frepl30 ", т. ", ". Т." & Chr(160)
 frepl30 ", с. ", ". С." & Chr(160)
 frepl30 ", ч. ", ". Ч." & Chr(160)
End Sub