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

[Busine2009]

Есть документ.

Я его открываю, запускаю макрос и выделяется весь текст в документе кроме таблиц.

Как можно это сделать?

[Sasha_Smirnov]

Похоже, вы намерены применить к выделенному тексту некую замену, да?

Тогда загляните сначала сюда, а также выше по той теме. (Возможно, что лучше плясать не от выделения, я думаю.)

[viter.alex]

Выделить только текст, без таблиц, можно только вручную. По крайней мере такой возможности в макросе я не знаю. А вот работать с текстом (изменять, производить замены, копировать), который вне таблиц, очень даже можно.

[Busine2009]

как можно манипулировать текстом вне таблиц?

[Busine2009]

а от чего плясать?

[Slavik]

Это зависит под что плясать (тоесть под какую музыку)

[Busine2009]

Пляска в следующем.

Мне дают документ. Мне надо чтобы в тексте между абзацами было по 6 пт впереди и после.

[Sasha_Smirnov]

Sub AutoOpen()

Dim N As Integer        'переменная для номера таблицы'
' Макрос записан 24.05.2009 Customer
        
    With ActiveDocument.Paragraphs  'во ВСЕХ абзацах документа'
    
            If .SpaceBefore = 0 Then .SpaceBefore = 6 'отступ до'
            If .SpaceAfter = 0 Then .SpaceAfter = 6     'отступ после'
    
    End With


    With ActiveDocument.Tables      'а в таблицах - делаем как было'
    
            For N = 1 To .Count
            .Item(N).Range.ParagraphFormat.Reset
            Next
    
    End With
    
End Sub

Этот код вставите в Normal.dot (можно макрос-пустышку записать — и на его место, нажав альт-F11, поставить AutoOpen() — программу, срабатывающую при открытии всех документов).

[Busine2009]

А пустые знаки абзацев можно добавлять или удалять таким образом?
Просто в одник случаях, между абзацами должны быть 6 пт, а в др. случаях пустые знаки абзацев.

И еще такой вопрос, где вы достаете все эти команды? Например, To .Count? Где можно отыскать перечень всего, что касается таблиц?

Sasha_Smirnov

в данном макросе снимается форматирование в т.ч. и то, которое нужно, например, выступы.

[Sasha_Smirnov]

Сообщение от Busine2009

А пустые знаки абзацев можно добавлять или удалять таким образом?

Если сумеете указать Ворду, где именно, то да.

И еще такой вопрос, где вы достаете все эти команды?

Перечень в интернете по F1 (помощь) — когда курсор на слове кода.

в данном макросе снимается форматирование в т.ч. и то, которое нужно, например, выступы.

Ведь это ещё надо развить до того уровня, который вам нужен.

P/s: зачем вы повторяете тот же вопрос в "новой" теме? ...Ага, понял (по следующей странице).