Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здраствуйте.
Юрий М(с этого сайта: внешняя ссылка)
посоветовал этот сайт: http://wordexpert.ru/
Вот мой вопрос:
Как можно скопировать все строки файла docx
в 1-мерный массив MyArray()???
Должно получиться так:
MyArray(1)="Это 1-ая строка"
MyArray(2)="Это 2-ая строка"
...
MyArray(10)="Это последняя строка" 
строка или параграф(абзац)
В чём разница?
Например дан текст:
Это 1-ая строка
Это 2-ая строка, да.
Это последняя строка, да.А должно получится так:
MyArray(1)=" Это 1-ая строка"
MyArray(2)="Это 2-ая строка, да"
...
MyArray(10)="Это последняя строка, да"Думаю сейчас прояснилось.
Если нет, то Вы мне объясните в чём разница, пожалуйста.
Перед фрагментом текста с новой ориентацией страниц и после него будут автоматически вставлены разрывы раздела . Если документ уже разбит на разделы, можно щелкнуть в любом месте нужного раздела (либо выделить несколько разделов), а затем изменить ориентацию страниц только в выбранных разделах.
===
ПАРАГРАФ=1
строк-5
shanemac51, извините я старался, но Вас не понял.При чём тут ориентация, разрывы и разделы 
Дело в том, что я работал всегда с excel vba.
А о word vba ничего не знаю.
Можете дать хоть какой-нибудь примерчик???Чтобы было ясно о чём идет речь.
Спасибо за внимание!
Вот мой файл. Там есть (переходы на следующую строку)- простой случай
Можете туда положить макрос?
Вот мой вопрос:
Как можно скопировать все строки файла docx
в 1-мерный массив MyArray()???
Должно получиться так:
MyArray(1)="Это 1-ая строка"
MyArray(2)="Это 2-ая строка"
MyArray(10)="Это последняя строка"
Примечание: Новая Строка начинается после (перехода на следующую строку)(или на жатия "enter")
Ответьте пожалуйста!
Вот функция для записи одномерного массива строк документа.
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Учтите что массив это область хранения информации, поэтому может быть функцией (Function) для присвоения ее другим переменным в других процедурах, либо свойством какого-либо класса (Property).
UserSuperPupsik, если возникают вопросы пишите.
aap77, Даже и не знаю что сказать, Вы весьма проницательный человек, Спасибо, за Ваш труд!!! 
Я немного изменил код под собственные нужды:
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
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Копировать строки в массив
Постоянно работая с теми либо иными инструментами и выполняя однотипные задачи, пользователь любой программы вырабатывает со временем способы наиболее рационального их исполнения. Наш сайт о 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.