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

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

30.03.2015, 18:00. Просмотров 351. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

5
Fairuza
Модератор
5206 / 2634 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
30.03.2015, 19:04 2
Создание текста по образцу
2
ViterAlex
6737 / 3732 / 1530
Регистрация: 11.02.2013
Сообщений: 8,236
Завершенные тесты: 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
Казанский
14309 / 5927 / 1570
Регистрация: 24.09.2011
Сообщений: 9,337
31.03.2015, 09:25 4
Ну да, Olyaa как всегда забыла указать, что сделать это надо без VBA.

А как сделана нумерация строк в этом документе? Никогда такого не видел, в Параметрах не нашел, в Справке тоже (Word 2007).
0
Fairuza
Модератор
5206 / 2634 / 471
Регистрация: 23.11.2010
Сообщений: 8,690
31.03.2015, 09:30 5
Казанский, у меня включается и выключается нумерация строк в этом документе. Разметка страниц - Номера строк
1
Казанский
14309 / 5927 / 1570
Регистрация: 24.09.2011
Сообщений: 9,337
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

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

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

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


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

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

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