Выделение текста

[natter]

Здравствуйте !

В документе есть текст (2 т.строк) Как средствами VBA выделить этот текст и cконвертировать в таблицу ?

Спасибо

[Ципихович Эндрю]

а вручную бы это Вы как сделали бы? какие действия для этого нужны?

[natter]

Вручную да, можно. Задача только другая. Текст (допустим 1000 строк) вставляется из буфера. Ежели строка шире страницы она (строка) соответственно разворачивается. В итоге получаем текст не из 1000 строк, а, например, из 1500. Мне надо программно определить сколько строк физически было вставлено.

[Борис_Р]

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

Мне надо программно определить сколько строк физически было вставлено.

Попробуйте код

Sub Строки_абзацы()
'
'
Dim myRange As Range, LinesCount As String, ParagraphsCount As String
    Set myRange = ActiveDocument.Content
    myRange.Collapse Direction:=wdCollapseEnd
    myRange.Paste

    LinesCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines)
    ParagraphsCount = myRange.Paragraphs.Count
    MsgBox "Во вставленном фрагменте содержится " & LinesCount _
        & " строк и " & ParagraphsCount & " абзацев."

'Значения параметров для ComputeStatistics
'Name                             Value Description
'wdStatisticCharacters              3   Count of characters.
'wdStatisticCharactersWithSpaces    5   Count of characters including spaces.
'wdStatisticFarEastCharacters       6   Count of characters for Asian languages.
'wdStatisticLines                   1   Count of lines.
'wdStatisticPages                   2   Count of pages.
'wdStatisticParagraphs              4   Count of paragraphs.
'wdStatisticWords                   0   Count of words.

End Sub