Помогите написать макрос для...

[КотФиларет]

Помогите написать макрос, с помощью которого можно выделить только текст в выделенном фрагменте, а чтобы таблицы не выделялись.

[viter.alex]

Не понял… Подробнее опишите, что надо. Какой выделенный фрагмент? Кто его выделяет: программа или пользователь?

[КотФиларет]

Допустим я вручную выделяю какой-то фрагмент в документе, затем нажимаю на макрос и выделенным становиться только текст, а таблицы становятся не выделенными.

[viter.alex]

Нужно как-то работать с Selection.Tables. Даже не знаю как подступиться. Есть метод Select, но нет метода Deselect. Есть конечно Collapse, но он не подходит.

[Sasha_Smirnov]

Sub MyPrinterHatesTables()
' Макрос записан 21.01.2009'
'Сохраняет копию документа - под именем, составленным из старого с добавлением "_1"'
'(в папке Мои докуметы); затем (из этой копии документа) удаляет все таблицы.'

Dim lngNN As Long, intN As Integer, strName As String
lngNN = ActiveDocument.Tables.Count 'количество таблиц в активном документе'
  
strName = StrReverse(Mid(StrReverse(ActiveDocument), InStrRev(ActiveDocument, ".")))
'теперь strName содержит имя файла без расширения, но с постфиксом _1'
    
If lngNN > 0 Then
        ActiveDocument.SaveAs FileName:=strName & "_1", AddToRecentFiles:=False

        For intN = 1 To lngNN
            ActiveDocument.Tables(intN).Delete
        Next
        
        Else: MsgBox "В этом документе нет таблиц Word."
End If
    
End Sub

[viter.alex]

2 Sasha_Smirnov
Удалить таблицы не вопрос. А вот снять выделение…

[Sasha_Smirnov]

Как впоследствии заявил КотФиларет, он хочет применять формат к тексту вне таблиц.
Но, после скидывания таблиц в отдельный документ, вернуть их обратно (на те же места) не так-то просто. Так что здесь мои потуги излишни.

Всё же, если макрос найдет какое-то применение, то там необходимо вставить

strName = StrReverse(Mid(StrReverse(ActiveDocument), 1 + InStrRev(StrReverse(ActiveDocument), ".")))

вместо строчки с похожей «белибердой».