Макрос: убрать разделение текста на абзацы (все содержимое файла слить в один абзац)

@Alex13889 · Регистрация: 05.06.2015

Author24 — интернет-сервис помощи студентам

Нужно Написать макрос, который переписывает произвольный текст Word в другой документ “Result.docx”, переделывая его согласно условию задачи.
Условие- Программа убирает разделение текста на абзацы, т.е. все содержимое файла сливается в один абзац.
!!!Макрос должен вызываться какой-то комбинацией клавиш из документа с исходным текстом (создать его самостоятельно).
Файл “Result.docx” надо создать вручную и в момент вызова макроса он должен быть открыт.

@Казанский · 26.06.2015, 18:46

Запишите макрорекордером: выделить все, скопировать, вставить в Result.docx, поиск-замена, найти ^p , заменить на пусто. Все.

@Alex13889 · 26.06.2015, 19:42 **[ТС]**

Казанский, Ого) Оказывается так просто!!! Спасибо большое!!!!!! Очень благодарна)
Но для интереса хочу узнать. Откуда вы знали, что нужно поставить ^p. Если бы Вы не подсказали, я бы не сделала. И уже не первый раз встречаю, что в Найти пишут разные такие символы. Где их можно найти -список там, или почитать что.

@Yury Komar · 26.06.2015, 19:47

Что-то вроде этого

Visual Basic

Sub MacRoS()
    Selection.WholeStory
    Selection.Copy
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .CollapsedByDefault = False
    End With
End Sub

@Казанский · 26.06.2015, 21:25

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

Откуда вы знали, что нужно поставить ^p... Где их можно найти

Да в самом диалоге Найти или Заменить: Больше - Специальный...

@Sasha_Smirnov · 27.06.2015, 05:11

Посмотреть бы теперь на этот текст.

Интересно: если в нём все абзацы кончались точкой (и не было сокращений), то разрешима и обратная задача!

@Yury Komar · 27.06.2015, 05:14

Sasha_Smirnov, путем замены точек на что-то типа vbCrLf ?

@Sasha_Smirnov · 28.06.2015, 06:52

Да. Но только не тех, что внутри абзаца (а не с краю).

@Alex13889 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 28
		1
	Макрос: убрать разделение текста на абзацы (все содержимое файла слить в один абзац) 26.06.2015, 18:26. Показов 1753. Ответов 7 Метки нет (Все метки) Нужно Написать макрос, который переписывает произвольный текст Word в другой документ “Result.docx”, переделывая его согласно условию задачи. Условие- Программа убирает разделение текста на абзацы, т.е. все содержимое файла сливается в один абзац. !!!Макрос должен вызываться какой-то комбинацией клавиш из документа с исходным текстом (создать его самостоятельно). Файл “Result.docx” надо создать вручную и в момент вызова макроса он должен быть открыт. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.06.2015, 18:46	2
	Сообщение было отмечено Alex13889 как решение Решение Запишите макрорекордером: выделить все, скопировать, вставить в Result.docx, поиск-замена, найти ^p , заменить на пусто. Все. 1

@Alex13889 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 28
	26.06.2015, 19:42 [ТС]	3
	Казанский, Ого) Оказывается так просто!!! Спасибо большое!!!!!! Очень благодарна) Но для интереса хочу узнать. Откуда вы знали, что нужно поставить ^p. Если бы Вы не подсказали, я бы не сделала. И уже не первый раз встречаю, что в Найти пишут разные такие символы. Где их можно найти -список там, или почитать что. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.06.2015, 21:25	5
	Сообщение от Alex13889 Откуда вы знали, что нужно поставить ^p... Где их можно найти Да в самом диалоге Найти или Заменить: Больше - Специальный... 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	27.06.2015, 05:11	6
	Посмотреть бы теперь на этот текст. Интересно: если в нём все абзацы кончались точкой (и не было сокращений), то разрешима и обратная задача! 0

@Yury Komar Модератор 4203 / 3287 / 497 Регистрация: 27.01.2014 Сообщений: 6,033
	27.06.2015, 05:14	7
	Sasha_Smirnov, путем замены точек на что-то типа vbCrLf ? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	28.06.2015, 06:52	8
	Да. Но только не тех, что внутри абзаца (а не с краю). 0

Макрос: убрать разделение текста на абзацы (все содержимое файла слить в один абзац)

Решение