Слетает форматирование текста при выполнение макроса в Ворде

@m_kareva88 · Регистрация: 01.12.2011

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

Код такой (корявенький конечно...

)

Visual Basic

Sub txt()
x = ActiveDocument.Paragraphs.Count
For i = 2 To x
    With ActiveDocument.Paragraphs(i).Range
        s = .Text
        t = Right(s, 2)
        a = Asc(t)
        If (a = 45) Then
            .Text = Left$(s, Len(s) - 2)
            i = i - 1
            x = ActiveDocument.Paragraphs.Count
        Else
            If (a <> 46) Then
                .Text = Left$(s, Len(s) - 1)
                .Text = Right$(s, Len(s) - 1)
            i = i - 1
            x = ActiveDocument.Paragraphs.Count
            End If
        End If
    End With
Next
 
End Sub

Суть в том, что я хочу с минимальными усилиями отформатировать текст, перегнанный из журнала (колонки текста) в формате pdf в ворд. Т.е. мне надо убрать переносы слов (-) и лишние знаки абзаца, оставив знаки абзаца, если они стоят после точки.
Это всё работает нормально, но вот если в строке встречается слово выделенное жирным, то текст, переносимый в эту строку, тоже становится жирным

, чего мне совсем на надобно!
Может кто подскажет, как этого избежать?!! Очень надо!
Или есть какой-нибудь более простой способ реализации такого макроса? Я просто на vba в основном для екселя пишу, а для ворда первый раз и еще не разобралась.

@Казанский · 01.12.2011, 16:29

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

мне надо убрать переносы слов (-) и лишние знаки абзаца, оставив знаки абзаца, если они стоят после точки.

Без макросов это делают так:
1. Заменить все ".^p" (без кавычек) на уникальный символ, например "~" или группу символов.
2. Заменить "-^p" на пусто.
3. Заменить "^p" на пусто.
4. Заменить "~" на ".^p".

Если не подойдет, выложите кусок текста.

@m_kareva88 · 01.12.2011, 23:11 **[ТС]**

Спасибо) Я знаю, как это делать без макроса...)
Но мне надо с макросом, чтобы один раз нажать и всё "посчиталось"

@Казанский · 01.12.2011, 23:38

Можете записать действия макрорекордером в Normal.dot и пользоваться им, не видя его (ужасный) текст ни разу

Если же хотите "допилить" свой макрос, используйте методы .InsertAfter, .InsertBefore и т.д.

@m_kareva88 · 02.12.2011, 01:34 **[ТС]**

Спасибо
макрорекордером ни разу не пользовалась, не охота разбираться
а .InsertAfter, .InsertBefore попробую

@Казанский · 02.12.2011, 17:50

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

макрорекордером ни разу не пользовалась

Странно. Обычно знакомство с VBA начинается с этого инструмента. И потом, это быстрый путь для составления макроса для решения задачи: можно взять за основу код, записанный рекордером и добавить циклы, условные операторы. Вот свежий пример: Как перставить + с конца предложения на начало в Wordе?

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.12.2011, 16:29	2
	Сообщение от m_kareva88 мне надо убрать переносы слов (-) и лишние знаки абзаца, оставив знаки абзаца, если они стоят после точки. Без макросов это делают так: 1. Заменить все ".^p" (без кавычек) на уникальный символ, например "~" или группу символов. 2. Заменить "-^p" на пусто. 3. Заменить "^p" на пусто. 4. Заменить "~" на ".^p". Если не подойдет, выложите кусок текста. 0

@m_kareva88 0 / 0 / 0 Регистрация: 01.12.2011 Сообщений: 3
	01.12.2011, 23:11 [ТС]	3
	Спасибо) Я знаю, как это делать без макроса...) Но мне надо с макросом, чтобы один раз нажать и всё "посчиталось" 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.12.2011, 23:38	4
	Можете записать действия макрорекордером в Normal.dot и пользоваться им, не видя его (ужасный) текст ни разу Если же хотите "допилить" свой макрос, используйте методы .InsertAfter, .InsertBefore и т.д. 1

@m_kareva88 0 / 0 / 0 Регистрация: 01.12.2011 Сообщений: 3
	02.12.2011, 01:34 [ТС]	5
	Спасибо макрорекордером ни разу не пользовалась, не охота разбираться а .InsertAfter, .InsertBefore попробую 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	02.12.2011, 17:50	6
	Сообщение от m_kareva88 макрорекордером ни разу не пользовалась Странно. Обычно знакомство с VBA начинается с этого инструмента. И потом, это быстрый путь для составления макроса для решения задачи: можно взять за основу код, записанный рекордером и добавить циклы, условные операторы. Вот свежий пример: Как перставить + с конца предложения на начало в Wordе? 1