Выделение чиста текста в документе

[Busine2009]

Because появилось новое направление: не выделение текста, а делание с ним определенных действий

[viter.alex]

У меня получилось немного сложнее, чем у Sasha_Smirnov, но работает только с текстом, который находится вне таблиц. Можно делать с этим текстом все, что угодно. Думаю, логика макроса понятна.

Sub DoNotTouchTables()
  Dim oRng As Range, i&
  For i = 1 To ActiveDocument.Tables.Count
'      Чтобы точно установить интервал между абзацами, нужно сначала убрать автоматический интервал
    Select Case i
      Case 1
        'Текст до первой таблицы. Диапазон (Range) от нулевого символа в документе до первого символа в первой таблице
        Set oRng = ActiveDocument.Range(0, ActiveDocument.Tables(i).Range.Start)
        With oRng
          .Paragraphs.SpaceAfterAuto = False
          .Paragraphs.SpaceBeforeAuto = False
          .Paragraphs.SpaceAfter = 6
          .Paragraphs.SpaceBefore = 6
        End With
      Case .Tables.Count
        'Текст до и после последней таблицы. 
        Set oRng = ActiveDocument.Range(ActiveDocument.Tables(i - 1).Range.End, ActiveDocument.Tables(i).Range.Start)
        With oRng
          .Paragraphs.SpaceBeforeAuto = False
          .Paragraphs.SpaceAfterAuto = False
          .Paragraphs.SpaceBefore = 6
          .Paragraphs.SpaceAfter = 6
        End With
        'Диапазон (Range) от последнего символа последней таблицы до конца документа
        Set oRng = ActiveDocument.Range(ActiveDocument.Tables(i).Range.End, ActiveDocument.Range.End)
        With oRng
          .Paragraphs.SpaceBeforeAuto = False
          .Paragraphs.SpaceAfterAuto = False
          .Paragraphs.SpaceBefore = 6
          .Paragraphs.SpaceAfter = 6
        End With
      Case Else
        'Текст между таблицами в документе. Диапазон (Range) от последнего символа предыдущей таблицы до первого символа в текущей
        Set oRng = ActiveDocument.Range(ActiveDocument.Tables(i - 1).Range.End, ActiveDocument.Tables(i).Range.Start)
        With oRng
          .Paragraphs.SpaceBeforeAuto = False
          .Paragraphs.SpaceAfterAuto = False
          .Paragraphs.SpaceBefore = 6
          .Paragraphs.SpaceAfter = 6
        End With
    End Select
  Next
End Sub

Если есть вопросы, то милости прошу.

[Busine2009]

Спасибо за помощь.

Посмотрю макрос сего дня, о результатах напишу.