Строки в массив в word

Копировать строки в массив

Сообщений [ 10 ]

MyArray(1)="Это 1-ая строка"
MyArray(2)="Это 2-ая строка"
...
MyArray(10)="Это последняя строка"

      Это 1-ая строка
Это 2-ая строка, да.
Это последняя строка, да.

MyArray(1)="      Это 1-ая строка"
MyArray(2)="Это 2-ая строка, да"
...
MyArray(10)="Это последняя строка, да"

Public Function AllStroke_inArray() As Variant
Dim AWind As Window
Dim APane As Pane
Dim Pages As Pages
Dim Page As Page
Dim Rect As Rectangle
Dim LineCount As Long
Dim lst() As Variant
Dim Line As Line

    Set AWind = Application.ActiveWindow
    Set APane = AWind.ActivePane
    Set Pages = APane.Pages
'---------------------------------------------------------------------
        For Each Page In Pages
            If Page.Rectangles.Count = 1 Then
                Set Rect = Page.Rectangles(1)
            Else
                Set Rect = Page.Rectangles(2)
            End If
                LineCount = LineCount + Rect.Lines.Count
        Next Page
        LineCount = LineCount - 1
'---------------------------------------------------------------------
    ReDim Preserve lst(0 To LineCount)
    
'---------------------------------------------------------------------
    i = -1
    For Each Page In Pages
        If Page.Rectangles.Count = 1 Then
            Set Rect = Page.Rectangles(1)
        Else
            Set Rect = Page.Rectangles(2)
        End If
            For Each Line In Rect.Lines
                i = i + 1
                lst(i) = Line.Range.Text
            Next Line
    Next Page
'---------------------------------------------------------------------

    AllStroke_inArray = lst

End Function

Public lst() As Variant
Public Function CopyToArray() As Variant
Dim AWind As Window
Dim APane As Pane
Dim Pages As Pages
Dim Page As Page
Dim Rect As Rectangle
Dim LineCount As Long
'Dim lst() As Variant
Dim Line As Line

    Set AWind = Application.ActiveWindow
    Set APane = AWind.ActivePane
    Set Pages = APane.Pages
'---------------------------------------------------------------------
        For Each Page In Pages
            If Page.Rectangles.Count = 1 Then
                Set Rect = Page.Rectangles(1)
            Else
                Set Rect = Page.Rectangles(2)
            End If
                LineCount = LineCount + Rect.Lines.Count
        Next Page
        LineCount = LineCount - 1
'---------------------------------------------------------------------
    ReDim Preserve lst(0 To LineCount)
    
'---------------------------------------------------------------------
    i = -1
    For Each Page In Pages
        If Page.Rectangles.Count = 1 Then
            Set Rect = Page.Rectangles(1)
        Else
            Set Rect = Page.Rectangles(2)
        End If
            For Each Line In Rect.Lines
                i = i + 1
                lst(i) = Line.Range.Text
            Next Line
    Next Page
'---------------------------------------------------------------------

    'CopyToArray = lst

End Function

Public Sub Macros1()
CopyToArray 'копировать все строки в массив lst, внимание индексация начинается с 0
MsgBox (lst(2)) 'вывести на экран 3-ю строку
End Sub

Сообщений [ 10 ]

Копировать строки в массив

Постоянно работая с теми  либо иными инструментами и выполняя однотипные задачи, пользователь любой программы вырабатывает со временем способы наиболее рационального их исполнения. Наш сайт о Microsoft Office Word даст ответ про: как нумеровать страницы в ворде.
Но,  сталкиваясь с задачей другого типа, часто оказывается в тупике и вынужден обращаться за помощью. Наш сайт о Microsoft Office Word даст ответ про: применить формулу умножения в ворде.

На форуме сайта Ворд Эксперт пользователи различных версий Ворда делятся друг с другом вариантами решений привычных для них операций. Наш сайт о Microsoft Office Word даст ответ про: комбинация клавиш открытие буфера обмена в word.
При этом то, что кажется вам самим собой разумеющимся может быть неизвестно другому участнику и наоборот, поэтому обмен получается очень взаимовыгодным. На портале о Microsoft Office Word вы узнаете про: как проставить нумерацию в таблице.

Здесь обсуждаются настройки, форматирование документов, например, удаление лишних пробелов, оформление содержания и придания требуемых стилей разделам автоматически и так далее. Наш сайт о Microsoft Office Word даст ответ про: word а1.
Очень много внимания уделено принципам написания макросов и шаблонов, изложенным очень доступно, приведены готовые варианты. На портале о Microsoft Office Word вы узнаете про: скопировать таблицу из word.
Информацию можно отыскать по всем версиям приложения. Также можно оставить заявку на выполнение любой работы, связанный с Вордом. На портале о Microsoft Office Word вы узнаете про: убрать в word колонтитулы раздел.

Найдете на форуме и ответы на базовые вопросы, и дополнительный список источников. Обсудить проблемы, прямо не касающиеся Ворда, и оставить отзыв можно в разделе «Общение». На портале о Microsoft Office Word вы узнаете про: вставить кнопку в ворде 2007.

1) Непонятно что означает «от home до end» ? Имеется в виду нажатие клавиш
в активном документе ? Вы уверены что правильно сформулировали вопрос и вас действительно интересуют строки внешнего представления документа (без связи
с данными). Поясню, что я имею в виду.
a) aaaaaaaaaaaaaaaaaaa;bbbbbbbbbbbbbbbb;ccccccccccccccccccccccn ddddddddd
b) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa;bbbbbbbbbbbbbbbbbbbbbbbbb;ccccccccccccccccccccc
ddddddddddddddddd

в варианте a) переход на новую строку осуществляется поле кода chr(13)
в варианте b) 2-я строка начинается без специального разделителя

2) Если » в тексте n строк, нужно выбрать от 1 до n», то это означает что выбирается весь текст что противоречит

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

Или мы должны догадаться
что обработка вам нужна для каждой строки?

3) Вы имеете в виду a(1) = первое слово , b(1) = второе слово, c(1) = третье слово ?

закинуть первое слово в один массив, второе слово в другой массив, третье слово в третий массив.

Или всё таки не в «другой массив» а в другой элемент массива ?
Резюмируя ещё раз : «нужно чётче формулировать вопрос»

Если предположить, что вам нужно обработать документ каждая строка которого
представляет собой параграф и содержит 3 слова разделённых «;» , то это будет выглядеть так:

Public Sub Example()
    Dim w As Range
    Dim a(1 To 3) As String
    Dim i As Long
    i = 1
    With ActiveDocument
        For i = 1 To .Words.Count Step 6
            a(1) = .Words(i)
            a(2) = .Words(i + 2)
            a(3) = .Words(i + 4)
            ' выводим очередные 3 слова как элементы массива a
            Debug.Print a(1), a(2), a(3)
        Next i
    End With
End Sub