Нужна помощь с подстановочным словом-кодом для быстрой замены по всему документу

[helen777]

Верстка словаря, двух колоночная, текст распознала, но каждое слово с новой строки нужно выделить жирным и перед ним длинное тире поставить. Как такое осуществить с помощью найти.заменить?

 

[anakoman]

Найти ^p
Заменить на ^p^_^s

Это для вставки тире. Дальше не знаю

 

[andrejK]

Дальше не знаю

))))

grep

найти:

^\w+

заменить

~_\s$0

 

[helen777]

))))

grep

найти:

^\w+

заменить

~_\s$0

а значек абзаца перед этими знаками ставить нужно? И еще документ в ворде

 

[andrejK]

документ в ворде

тогда с какого перепугу вопрос задан в ветке индизайн??????????????


я вам написал как заменить в ИД.
а коли надо в ворде - идите... в ветку "ворд".

 

[helen777]

тогда с какого перепугу вопрос задан в ветке индизайн??????????????


я вам написал как заменить в ИД.
а коли надо в ворде - идите... в ветку "ворд".

ссори, раздел по ворду не нашла((

 

[andrejK]

не нашла

Microsoft Office

 

[helen777]

спсб)

 

[George]

Тема летит в свой раздел

 

[LeonidB]

Верстка словаря, двух колоночная, текст распознала, но каждое слово с новой строки нужно выделить жирным и перед ним длинное тире поставить. Как такое осуществить с помощью найти.заменить?

С помощью "найти/заменить" - это вряд ли.

С помощью макроса - вот так (при этом тире тоже выделится полужирным):

Sub FirstWord_ofPara_Bold()

' Выделение первого слова каждого абзаца полужирным шрифтом и вставка перед этим словом тире

Dim nParag As Long           ' всего абзацев в документе
Dim cParag As Long           ' номер текущего абзаца
Dim nn As Long

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

nParag = ActiveDocument.Paragraphs.Count
cParag = 1

Do
nn = Selection.MoveDown(Unit:=wdParagraph, Count:=1, Extend:=wdExtend)
    Selection.MoveLeft
    Selection.TypeText Text:="—"
    Selection.MoveLeft
    Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
    With Selection
        .Font.Bold = True
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    If cParag < nParag Then
        Selection.MoveDown Unit:=wdParagraph, Count:=1
    Else
        Selection.HomeKey Unit:=wdStory
        GoTo bye
    End If
cParag = cParag + 1
Loop Until nn = 0
Selection.HomeKey Unit:=wdStory

bye:

End Sub

 

[Linxy]

Шаг 1. Вставляем тире, делаем болдом первое слово и тире.

Шаг 2. Убираем болд для тире.

Примечания.
1. На первом шаге в строке Заменить на я добавила пробел между тире и первым словом. Если он Вам не нужен, просто не набирайте его.
2. Не работает для первого абзаца документа, перед которым нет знака абзаца, разрыва колонки или страницы.
3. Чтобы назначить нужное начертание шрифту — нажимаем кнопку Формат (в нижнем блоке окна Найти и Заменить), далее Шрифт. В открывшемся диалоговом окне выбираем нужное начертание в соответствующем месте. Для первого шага Полужирный, для второго Обычный.

 

[Nicky]

Не по теме:
Да Вы, мадам, маньяк замены

 

[George]

Не по теме:

Не по теме:
Да Вы, мадам, маньяк замены

Определённо знает толк

 

[andrejK]

@Linxy, Анют) абзац (знак его сам) ещё в твоей цепочке становится полужирным)))

 

[LeonidB]

@Linxy, Анют) абзац (знак его сам) ещё в твоей цепочке становится полужирным)))

Вторую замену можно видоизменить:

Найти: ([^13^n^m]^+)
полужирный

Заменить на \1
Не полужирный

Тогда и абзац станет не п/ж, а не только тире.

 

[Linxy]

Не по теме:
Да Вы, мадам, маньяк замены

Не по теме:

Определённо знает толк

Не по теме:
Лень двигатель прогресса.
Я очень не люблю делать за компьютер его работу.

@Linxy, Анют) абзац (знак его сам) ещё в твоей цепочке становится полужирным)))

Андрюш, я знаю, но в своих заменах обычно игнорирую этот момент. Подозреваю, что когда-то мне этот абзац и выйдет боком, но пока всё было нормально.

Вторую замену можно видоизменить:

 

[helen777]

Не по теме:
Лень двигатель прогресса.
Я очень не люблю делать за компьютер его работу.


Андрюш, я знаю, но в своих заменах обычно игнорирую этот момент. Подозреваю, что когда-то мне этот абзац и выйдет боком, но пока всё было нормально.

подскажите, где можно найти шпаргалку с подстановочными знаками для замен

 

[LeonidB]

подскажите, где можно найти шпаргалку с подстановочными знаками для замен

Поиск и замена текста или других элементов - Word
Поиск и замена текста с помощью регулярных выражений (расширенные возможности) - Word
Поиск и замета текста и других данных в файлах Word 2010
Специальные символы и подстановочные знаки в операциях поиска и замены MS Word 97/2000/XP

и т. д.