Команда замены по всему тексту

[shanemac51]

возможно

frepl30 ". Т. ", ", т." & chr(160)

[caute]

порядок, спасибо!

[caute]

не подскажете ли, почему аналогичный макрос срабатывает только в сносках? в основном тексте не заменяет, это странно

Sub Угловые_кавычки_вместо_фигурных()
 frepl30 Chr(147), Chr(171)
 frepl30 Chr(148), Chr(187)
End Sub

[shanemac51]

сняла галочку в параметрах

---замена прямых кавычек --парными

[caute]

а как ее командой vba снять, а потом вернуть на место?
допишу в макрос

[shanemac51]

Sub frepl30(chto, chem)
'
Dim z1, z1k
z1 = chto
z1k = chem
'''''''''''''''''''''''''''''''''
With Options
    .AutoFormatReplaceQuotes = False
End With
 ''''''''''''''''''''''''''''''''
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = z1
  .Replacement.Text = z1k
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = 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
 ''''''''''''''''''''''''''''''
 With Options
    .AutoFormatReplaceQuotes = True
   End With
   '''''''''''''''''''''''''''''''''
End Sub

[caute]

мерсите боку! а какая команда возвращает курсор в то место, с которого макрос начал работать? извините за домогательства
или посоветуйте онлайн справочник по vba, хотя бы