Замена знаков пунктуации

[Valyano]

Здравствуйте! У меня такой вопрос. Есть текст и в нем нужно исправить такие ковычки «...текст...» на такие "...текст..." И знак ; на знак , Заранее благодарен!!!

[viter.alex]

Ctrl+H, а дальше разберёшься

[garik64]

Сообщение от viter.alex

Ctrl+H, а дальше разберёшься

С кавычками не разберётся. Если включена дефолтная автозамена знаков, то угловые кавычки будут меняться на такие же. Значит, надо задавать явную замену на ^34.

С кавычками, кстати, всё не так просто. Word пишет так: «Крейсер «Варяг»». А по правилам надо писать так: "Крейсер «Варяг»". Я даже как-то макрос сочинил на эту тему.

[Valyano]

Делать то с этим что?

[garik64]

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

Делать то с этим что?

Волшебные кнопки Ctrl и H, нажатые вместе, откроют окошко "Поиск и замена". Там всё ясно.

[Sasha_Smirnov]

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

Word пишет так: «Крейсер «Варяг»». А по правилам надо писать так: "Крейсер «Варяг»". Я даже как-то макрос сочинил на эту тему.

А покажите-ка!
В 1000 раз чаще пишут не «Ресторан «Крейсер «Варяг»»», а просто (ООО) «Ресторан «Крейсер «Варяг»!

Неужели (из последнего) вы получаете "Ресторан «Крейсер „Варяг”»"?

[garik64]

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

А покажите-ка!
В 1000 раз чаще пишут не «Ресторан «Крейсер «Варяг»»», а просто (ООО) «Ресторан «Крейсер «Варяг»!

Неужели (из последнего) вы получаете "Ресторан «Крейсер „Варяг”»"?

Не покажу, потому что это было ещё в девяностые и написано для MultiEdit 6.0, так что даже и не знаю, сохранился ли он где-нибудь. (Поскольку ME был ASCII редактор, там были свои заморочки). А чему Вы удивляетесь? Проверялась чётность кавычек в пределах одного абзаца; если их было чётное количество и больше двух, они менялась попарно. Ну да, Ваш пример так бы и выглядел. Но у меня их просто не было.

[Sasha_Smirnov]

Ясно, слава мультиэдиту! Сложность-то вся в том, что парность кавычек редко соблюдают.

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

Здравствуйте! У меня такой вопрос. Есть текст и в нем нужно исправить такие ковычки «...текст...» на такие "...текст..." И знак ; на знак , Заранее благодарен!!!

Sub mainchanger() 'замены во всём тексте'
Dim dullText$, keenText$

    dullText$ = ActiveDocument.Content.Text 'исходный текст документа'

    keenText$ = Replace(dullText$, ";", ",") 'замена точки с запятой на запятую'    
    keenText$ = Replace(keenText$, "«", """")
    keenText$ = Replace(keenText$, "»", """")
    
                    ActiveDocument.Content.Text = keenText$ 'новый, исправленный текст документа'

End Sub

[Dim777]

Sub mainchanger() 'замены во всём тексте'
Dim dullText$, keenText$

    dullText$ = ActiveDocument.Content.Text 'исходный текст документа'

    keenText$ = Replace(dullText$, ";", ",") 'замена точки с запятой на запятую'    
    keenText$ = Replace(keenText$, "«", """")
    keenText$ = Replace(keenText$, "»", """")
    
                    ActiveDocument.Content.Text = keenText$ 'новый, исправленный текст документа'

End Sub

[/QUOTE]

Этот макрос сбивает все абзацы в тексте и жирный текст на обычный меняет.

[Sasha_Smirnov]

Да, это побочное действие. А иначе макрос был бы посложнее!