Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Olyaa
0 / 0 / 1
Регистрация: 12.07.2013
Сообщений: 250
#1

Сгруппировать каждую 33-ю строку - MS Word

30.03.2015, 18:00. Просмотров 332. Ответов 5
Метки нет (Все метки)

Здравствуйте! Скажите, может быть кто-то сталкивался с необходимостью группировки каждых каких-то строк. Дело в том, что у меня есть стихотворение из 132 строк, но все строки находятся почти в хаосе. Есть закономерность - каждая строка расположена на следующего 33 по счёту строке. Кто-то знает, как я могу автоматизировать решение этой задачи с помощью Ворда? во вложениях текст, который нужно отредактировать и, собственно сами стихи, которые нужно получить.
P.S. может кто-то знает, как потом погруппировать строки по куплетам?(то есть разрыв строки через каждые четыре строки)
0
Вложения
Тип файла: docx Шифр Ласковая легенда.docx (21.0 Кб, 5 просмотров)
Тип файла: rar Ласковая легенда.rar (808.6 Кб, 3 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2015, 18:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сгруппировать каждую 33-ю строку (MS Word):

Прокомментировать каждую строку кода (или хотя бы каждую функцию)
нашел программу в интернете, только ничего не понял) можете прокомментировать...

Сгруппировать данные с разными датами, но одним номером в одну строку
таблица имеет три поля: id data num 1 2016-06-01 1000 2 2016-06-01 1001 3...

Заменить каждую пустую строку файла на строку «Пустая строка»
Здравствуйте, помогите пожалуйста с данной задачей. Создать текстовый файл с...

Сгруппировать строки, а разные значения в столбце записать в одну строку через запятую
Как сделать? :sorry:Все значения по полям совпадают кроме значений в двух (в...

Преобразовать строку, удалив из нее каждую пару символов ‘<<’ и повторив каждую пару символов ‘>>’.
В веденной пользователем строке, найти все вхождения подстроки и заменить ее на...

PLINQ: Читать файл, каждую строку преобразовывать и записывать преобразованную строку в другой файл
есть простая задача: читать файл, каждую строку преобразовывать и записывать...

5
Fairuza
Модератор
5204 / 2632 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
30.03.2015, 19:04 #2
http://www.cyberforum.ru/ms-word/thread1090746.html
2
ViterAlex
6348 / 3552 / 1458
Регистрация: 11.02.2013
Сообщений: 7,824
Завершенные тесты: 3
30.03.2015, 21:44 #3
Ну какой же тут хаос, всё очень упорядочено. А макросом можно расставить по местам.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ArrangePoem()
  Dim n As Integer, count As Integer
  Dim textEnd As Long
  n = 1 'Счётчик абзацев в строфе с шагом 33
  count = 0 'Общий счётчик обработанных абзацев
  textEnd = Range.Paragraphs.count 'Количество абзацев в документе
'  Вставка пустого абзаца после исходного текста
  Range.InsertParagraphAfter
  Do
    'Берём каждую 33-ю строку, начиная с n
    While n <= textEnd
      'Вставляем её в конец документа
      Range.InsertAfter (Paragraphs(n).Range.Text)
      n = n + 33
    Wend
    'Разбивка на четверостишия
    Range.InsertParagraphAfter
    count = count + 1
    n = count + 1
  Loop While count < textEnd
'  Удаление старого текста. От начала документа
'  до конца последнего абзаца старого текста
  Range(0, Paragraphs(textEnd).Range.End).Delete
End Sub
Кстати, пример работы не с выделением, а с дипазоном (Range), про который ты спрашивала в соседней теме
2
Казанский
13881 / 5644 / 1439
Регистрация: 24.09.2011
Сообщений: 8,857
31.03.2015, 09:25 #4
Ну да, Olyaa как всегда забыла указать, что сделать это надо без VBA.

А как сделана нумерация строк в этом документе? Никогда такого не видел, в Параметрах не нашел, в Справке тоже (Word 2007).
0
Fairuza
Модератор
5204 / 2632 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
31.03.2015, 09:30 #5
Казанский, у меня включается и выключается нумерация строк в этом документе. Разметка страниц - Номера строк
1
Казанский
13881 / 5644 / 1439
Регистрация: 24.09.2011
Сообщений: 8,857
31.03.2015, 09:38 #6
Fairuza, спасибо, нашел: Разметка страницы - (Параметры страницы) - Номера строк.
0
31.03.2015, 09:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2015, 09:38
Привет! Вот еще темы с решениями:

Описать каждую строку кода
Всем доброй ночи! Помогите с этим кодом(нашел код,который берет данные с URL...

Удалить каждую десятую строку
При написании макроса (удаление 9 из 10 строчек большой таблицы) не могу...

Взять каждую N-ую строку из таблицы
Всем привет! Подскажите как взять из таблицы tbl каждую N-ую строку. Пусть N...

Прокоментировать каждую строку программы
Private Sub CommandButton1_Click() UserForm1.Hide End Sub Private Sub...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru