(no subject)
Jan. 11th, 2006 11:52 am![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
katastrofi4eski.livejournal.com posting in ![[community profile]](https://www.dreamwidth.org/img/silk/identity/community.png){kind=small}
useful_faqМногие замечали, наверное, что когда сохраняешь документ из Интернета в текстовом формате (*.тхт) в Блокноте, то при переносе его в Ворд остаются широкие поля по бокам. "Растянуть" его на всю ширину страницы обычными средствами (линейкой вверху) не получается. Если левое поле еще как-то сдвигается, то правое стоит намертво. Остается удалять все пробелы вручную, что при маленькой объеме текста не так сложно, хоть и муторно.
У меня много-много страниц такого текста, и что с ним делать, я совершенно не представляю.
Подскажите, пожалуйста.
У меня много-много страниц такого текста, и что с ним делать, я совершенно не представляю.
Подскажите, пожалуйста.
no subject
Date: 2006-01-11 08:30 am (UTC)no subject
Date: 2006-01-11 08:44 am (UTC)Идея в том, что то, что вы видите после открытия текстового файла в Ворде - это не СТРОЧКИ, это, с точки зрения Ворда - полноценные абзацы. Т.к. в текстовом файле каждая строка заканчивается знаком возврата каретки, а в Ворде он обозначает конец абзаца. А раз для Ворда они - абзацы, то и начинаются каждый - с новой строки.
Нужно просто заменить все возвраты кареток на пробел - но исключив при этом те места, где действительно заканчиваются абзацы :) Я что-то такое сто лет назад для Ворда писал, могу текст макроса поискать. Что-то очень простое. Надо?
no subject
Date: 2006-01-11 08:59 am (UTC)no subject
Date: 2006-01-11 09:54 am (UTC)Проглядите, кстати, если не сложно, парой комментов ниже текст макроса - я его левой ногой написал восемь лет назад и с тех пор много чего позабыл. Может, чего глупое совсем можно убрать. Но работать он работает :)
Я, оказывается, использовал "собачку" как уникальный символ для двух концов абзаца, и ещё "тильду" - чтоб обозначить конец абзаца и идущие сразу за ним пробелы, что тоже может обозначать абзац в текстовых файлах: отступ, отбитый пробелами. В текстах из библиотеки Мошкова, ради которых всё затевалось, эти символы не попадались вроде :)
no subject
Date: 2006-01-11 09:00 am (UTC)На данный момент я уже разделала текст так, как мне хотелось (просто зашла на эту интернет-страницу и скопировала снова весь текст прямо в Ворд, абзацы исчезли), но с этой ситуацией я довольно часто сталкиваюсь и очень нервничаю :))
no subject
Date: 2006-01-11 09:42 am (UTC)no subject
Date: 2006-01-11 10:02 am (UTC)no subject
Date: 2006-01-11 09:46 am (UTC)После этого - как хотите: можно кнопку или клавишу назначить макросу, можно просто заходить Сервис-Макросы, выбирать вот этот вот и нажимать "Выполнить"
Он, по идее, ещё считает "настоящим абзацем" строку, которая начинается с нескольких пробелов - ну, в дос-текстах часто начальный отступ делают несколькими пробелами.
Sub format_dos_text()
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="^p^p", ReplaceWith:="@", _
Replace:=wdReplaceAll
myRange.Find.Execute FindText:=" -", ReplaceWith:=" " + "^0150", _
Replace:=wdReplaceAll
myRange.Find.Execute FindText:="^p ", ReplaceWith:="~", _
Replace:=wdReplaceAll
myRange.Find.Execute FindText:="^p", ReplaceWith:=" ", _
Replace:=wdReplaceAll
myRange.Find.Execute FindText:="@", ReplaceWith:="^p^p", _
Replace:=wdReplaceAll
myRange.Find.Execute FindText:="~", ReplaceWith:="^p ", _
Replace:=wdReplaceAll
ActiveDocument.Paragraphs.Alignment = wdAlignParagraphJustify
With ActiveDocument
.HyphenationZone = InchesToPoints(0.63)
.HyphenateCaps = True
.AutoHyphenation = True
End With
End Sub
no subject
Date: 2006-01-11 10:42 am (UTC)no subject
Date: 2006-01-11 10:49 am (UTC)no subject
Date: 2006-01-11 09:43 am (UTC)no subject
Date: 2006-01-11 09:50 am (UTC)