Статьи из блога

Секреты Word. Поиск и замена текста

Стандартное окно замены фрагментов текста Microsoft Word, вызываемое соответствующей командой из меню "Правка", вполне привычно для пользователей этого редактора. И многие из них считают, что привычное всегда одно и то же: один текст - на другой, да и все. Но это не совсем так. Кнопка "Больше..." внизу справа окна замены открывает перед пользователем мощные возможности поиска, серьезно превосходящие стандартные. Удивительно, но многие пользователи Word, с которыми, в частности, мне доводилось беседовать, не знают о них...

 

Справа внизу в окне, распахнувшемся после нажатия кнопки "Больше", есть кнопка "Специальные символы". Они позволяют задать в условиях поиска и замены символы конца абзаца, разрыва страницы или строки, символы табуляции и др. Если вам нужно провести замены с участием именно этих символов, используйте этот список. К сожалению, там указаны не все допустимые специальные символы. К примеру, символ "^0xxx", где "ххх" - это какое-либо число, обозначает символ таблицы ASCII с кодом "ххх". Можно также заменять какой-либо текст на содержимое буфера обмена, заранее подготовленное и скопированное туда.

 

Кнопка "Формат", находящаяся слева от кнопки "Специальные символы", позволит вам заменять не только содержание текста, но и его оформление. К примеру, выделить во всем тексте какое-либо слово жирным шрифтом не составит труда.

 

В расширенном окне поиска и замены есть пункт "Подстановочные знаки". Используя подстановочные знаки, можно производить "нечеткий поиск" и замену, то есть, скажем, менять местами слова в словосочетаниях в тексте (скажем, вместо "Петр Иванов" везде поставить "Иванов Петр", и причем имя и фамилия могут быть в любом падеже), заменить, скажем, точку в дробях на запятую, и наоборот, оставив все остальные запятые и точки в неприкосновенности и многое чего еще.

 

Если вам нужно найти или заменить один из символов, который используется для обозначения подстановочных знаков, скажем, восклицательный знак - ! - то поставьте перед ним обратную косую черту - "\" (как в командной строке разделитель имен папок): "\!".

С помощью "подстановочных знаков" можно переиначить текст так, как хочется, всего за пару минут...

Секреты Word. Поиск и замена текста

 

Нажав на знак вопроса вверху справа, а затем кликнув на пункте "Подстановочные знаки", вы увидите небольшую справку о назначении этого пункта. Когда вы нажмете на маленькую стрелочку внизу, вам откроется подробнейшая справка по использованию подстановочных знаков. Разберитесь с ней и поэкспериментируйте - потом не пожалеете...

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 182

  1. Андрей
    10.01.2007 в 15:43 | #1

    Это самое полезное окно программы! С помощью него можно творить чудеса...

  2. aleksach
    18.09.2008 в 16:47 | #2

    вопрос по поводу поиска и замены в word. я работаю с двумя документами и мне нужно в одном взять слово и найти и заменить его в другом, но скопировав я не могу его вставить в поиск, а набирать в ручную морока, как найти ответ на этот вопрос или это просто недоработка word! спасибо

  3. My.Own.Word
    19.09.2008 в 00:19 | #3

    вопрос по поводу поиска и замены в word. я работаю с двумя документами и мне нужно в одном взять слово и найти и заменить его в другом, но скопировав я не могу его вставить в поиск, а набирать в ручную морока, как найти ответ на этот вопрос или это просто недоработка word! спасибо

    Попробуй через ClipBoard (буфер обмена). Выделив текст для поиска, скопируй его через CTRL-INS, затем, перейдя в другой документ - вызови поиск по CTRL-F, и вставь скопированное SHIFT-INS.

  4. Виктор Гурин
    01.07.2009 в 11:14 | #4

    К сожалению, ни одна статья по поиску и замене не дала мне ответа на вопрос, возможно ли ЧАСТИЧНОЕ форматирование слова с использованием этого механизма. Т.е., например, можно ли заменить м2 на м2, сделав двойку во втором случае является надстрочным символом.

  5. 01.07.2009 в 14:29 | #5

    Виктор, стандартной заменой не получится сделать, как вы хотите. Почитайте вот эту заметку.

    И не забывайте пользоваться поиском по сайту smile

  6. 01.07.2009 в 14:49 | #6

    Стандартной заменой это получится сделать! Но не за один, а за два захода.

    Заход первый:

    Найти: (м)([2,3])

    Заменить: \1&$&$\2

    Т.е. в нужное нам выражение добавляем набор символов, который заведомо не встречается в тексте.

    Заход второй:

    Найти: (&$&$)([2,3])

    Заменить: \2 Формат шрифта: Надстрочный

    Удаляем наш набор символов, а цифру переводим в верхний индекс.

    В обоих заходах Подстановочные знаки включены.

  7. Михаил
    25.09.2009 в 17:28 | #7

    А как сделать, чтоб в офисе 2007 поиск с подстановочным знаком "@" шёл как в старых версиях, т.е. 0!!! или более раз, а не как сейчас 1 или более...

    Я уже голову свернул на поиске решения. Мне надо найти слово типа "Ва ся" с пробелом или БЕЗ... какая строка поиска должна быть????

    пробовал

    "Ва @ся",

    "Ва {;1}ся",

    "Ва {0;1}ся"

    - в первом - не находит, на остальных - ошибка

  8. Андрей
    26.09.2009 в 17:58 | #8

    В общем, пишу макрос, который определенной последовательностью выполняет замены и т.д., при этом превращая один код в другой. Вопрос: как ко всем числам,разделенным табулатурой, добавить единицу и заменить. Для тех, кто не совсем понял (я совершенно не умею обьяснять): Нужно превратить, например:

    $EditablePoly.select level:4

    createFace#( 0 65 90 );

    createFace#( 765 34 1 );

    В это:

    $EditablePoly.select level:4

    createFace#( 1 66 91 );

    createFace#( 766 35 2 );

    Как это написать?

  9. Марк Розенберг
    26.09.2009 в 20:54 | #9

    Если это надо на практике, а не в теории, то

    можно сначала выделить цветом "Вася" и "Ва {1;}ся",

    а потом искать выделение цветом.

    А в теории я не знаю...

  10. 27.09.2009 в 18:19 | #10

    Андрей, очевидно, что нужно разбить ваше выражение в скобках на отдельные числа, прибавить единицу, а затем собрать строку назад.

    Думаю, что вам помогут функции Split и Join. Подробнее ответить не могу, не видя, как вы осуществляете поиск

    А впрочем, почему не могу. Вот вам функция, которая прибавит к каждому числу вашей строки заданное число и вернет обратно строку

    Function SplitAddJoin(SourceString As String, Optional Delimiter As String = vbTab, Optional Increment As Integer = 1) As String
      Dim ar, i As Integer
      ar = Split(SourceString, Delimiter)
      For i = 0 To UBound(ar)
        ar(i) = CStr(Val(ar(i)) + Increment)
      Next
      SplitAddJoin = Join(ar, Delimiter)
    End Function

    Функции нужно указать:

    вашу строку (только то, что в скобках)

    разделитель в строке (если он не табуляция)

    число, которое нужно прибавить к цифрам в строке (если оно не единица)

    В функции, как вы можете видеть, нет никакой проверки на правильность вашей исходной строки. Вам придется позаботиться об этом самому.

  11. Надежда
    09.10.2009 в 09:41 | #11

    Можно ли найти в тексте списки?

    Например, я хочу изменить "случайное" оформление списков в тексте на своё, для единообразия.

  12. 09.10.2009 в 11:20 | #12

    Надежда, удобнее и быстрее не искать эти списки, а выделить с помощью области задач "Стили и форматирование" те участки текста, которые оформлены стилем списка и затем заменить на другой стиль (созданный вами или стандартный).

  13. Надежда
    10.10.2009 в 08:31 | #13

    Надежда, удобнее и быстрее не искать эти списки, а выделить с помощью области задач "Стили и форматирование" те участки текста, которые оформлены стилем списка и затем заменить на другой стиль (созданный вами или стандартный).

    Я не могу (или не умею) выделить все списки сразу, так как они отформатированы по разному.

    Получается, что я сразу изменяю формат только у списков с определённым стилем, меня это не устраивает. Хочется исправить всё сразу: выделить все имеющиеся списки (и маркированные и нумеров. и отформатированные как попало)и всё сразу исправить.

  14. 10.10.2009 в 15:07 | #14

    А вот это результат того, что пользователи не работают со стилями: не создают свои нужные стили, форматируют документ через кнопки панели инструментов... Отсюда и мусор, и сложность автоматизации. Но это я посетовал, не обижайтесь.

    Значит вам придется выделять каждый стиль списка вручную и заменять на нужный вам стиль. Почитайте вот эту заметку.

  15. Александр К.
    28.11.2009 в 22:48 | #15

    Подскажите пожалуйста, как с помощью подстановочных знаков решить такую задачу:

    Есть длинный список с таким содержимым:

    [02:48] 01. Summertime

    [03:47] 02. Les Filles De Cadiz

    [02:05] 03. Overture

    Нужно числа в квадратных скобках перенести к конец строки, т.е. чтобы получилось так:

    01. Summertime [02:48]

    02. Les Filles De Cadiz [03:47]

    03. Overture [02:05]

    Кто-нибудь может помочь?

  16. 29.11.2009 в 11:35 | #16

    Найти: (\[[0-9]{2}:[0-9]{2}\]) ([0-9]{2}. *)(^0013)

    Заменить на: \2 \1\3

  17. Александр К.
    29.11.2009 в 16:20 | #17

    Найти: (\[[0-9]{2}:[0-9]{2}\]) ([0-9]{2}. *)(^0013)
    Заменить на: \2 \1\3

    Спасибо огромное! С вашей помощью избавился от нескольких часов рутинной работы.

  18. 29.11.2009 в 16:35 | #18

    Для того этот сайт и существует

  19. Altalion
    29.11.2009 в 17:16 | #19

    Александр Витер, помогите пожалуйста решить ещё одну проблему:

    теперь нужно список наподобие этого

    [code]01. Hijo de la Luna (04:29)

    02. La Luna Interlude I (01:06)

    03. Figlio Perduto (04:40)

    04. La Luna (05:34)

    05. La Califfa (03:17)

    06. Pie Jesu (03:43)[/code]

    превратить в такое

    [code][color=gray]01.[/color] Hijo de la Luna [color=#054890](04:29)[/color]

    [color=gray]02.[/color] La Luna Interlude I [color=#054890](01:06)[/color]

    [color=gray]03.[/color] Figlio Perduto [color=#054890](04:40)[/color]

    [color=gray]04.[/color] La Luna [color=#054890](05:34)[/color]

    [color=gray]05.[/color] La Califfa [color=#054890](03:17)[/color]

    [color=gray]06.[/color] Pie Jesu [color=#054890](03:43)[/color][/code]

    Тут нужно два захода я так понимаю?

  20. Altalion
    29.11.2009 в 17:18 | #20

    без тегов [code][/code]

  21. 29.11.2009 в 17:45 | #21

    А-а! Теперь теги нужно вставить? Да, в два захода:

    Первый заход:

    Найти: ([0-9]{2}.)(*^0013)

    Заменить на: [color=gray]\1[/color]\2

    И второй заход:

    Найти: (\([0-9]{2}:[0-9]{2}\))(^0013)

    Заменить на: [color=#054890]\1[/color]\2

    Уж не для торрента ли этот список?

  22. Altalion
    29.11.2009 в 18:10 | #22

    Александр Витер

    Да, именно для торрента) Оформляю большую дискографию, вот и мучаюсь, хотя с Вашей помощью всё становится на 80% легче, спасибо большое, я, честно говоря, не ожидал, что кто-нибудь обратит внимание на очередные чайниковские вопросы.

  23. Евген
    02.12.2009 в 14:38 | #23

    Подскажите, как в большом тексте заменить все слова "sochi" на Сочи, при этом не трогая адреса, где есть "sochi.ru"? Спасибо.

  24. 02.12.2009 в 14:59 | #24

    Найти: sochi(?)([!ru])

    Заменить на: Сочи\1\2

    Подстановочные знаки включены

  25. Денис
    07.12.2009 в 21:11 | #25

    Здравствуйте!

    Посоветуйте, можно ли наладить поиск и замену в такой ситуации:

    большой текст, порядка 2 тыс. страниц, где много слов, разделенных дефисом. Естественно есть слова, которые в принципе пишутся через дефис. Можно ли к поиску дефисов в словах подключить проверку грамматики. Другими словами, искать дефис в слове, проверять, не отмечен ли как ошибка, и если отмечен, дефис удалять.

  26. 07.12.2009 в 21:22 | #26

    Денис, а чем старая добрая проверка грамматики не устраивает? Не ищет ошибочные слова? Так это зависит от настройки правил и вашего пользовательского словаря.

  27. Денис
    07.12.2009 в 23:18 | #27

    Дело в том, что ошибок - не одна сотня, возможно тысяча... И необходимо как-то автоматизировать удаление ненужных дефисов. Анализировать каждую ошибку просто физически невозможно.

  28. 08.12.2009 в 08:00 | #28

    Денис, попробуйте такой макрос

    Sub DeleteErrorDashes()
      With ActiveDocument.Range.Find
        'Ищем слово, разделённое дефисом
        .Text = ""
        .MatchWildcards = True
        While .Execute
          'Если в слове есть ошибка
          If .Parent.SpellingErrors.Count > 0 Then
            'Удаляем из него дефис
            .Parent.Text = Replace(.Parent.Text, "-", "")
          End If
        Wend
      End With
    End Sub

  29. Денис
    08.12.2009 в 17:35 | #29

    Александр!

    Большое спасибо. Именно это я и искал.

    Можно поставить в копилку для обработки текстов после распознавания.

  30. Altalion
    09.12.2009 в 00:37 | #30

    Александр Витер, здравствуйте, снова я.

    Подстановочные знаки, которые Вы мне подсказали, действуют не совсем так как нужно.

    Комбинация

    Найти: ([0-9]{2}.)(*^0013)

    Заменить на: [color=gray]\1[/color]\2

    Превращает заключает в bb-коды не только числа типа 01. 02. 03., но и года, например 1960. 1999. и т.п. Как это исправить?

    И ещё два вопроса: как эти самые годы с помощью подстановочных знаков заключить в такие bb-коды:

    1960 -> (1960)

    И второй вопрос:

    (1960) Walk Don't Run -> [spoiler="(1960) Walk Don't Run"]

  31. 09.12.2009 в 07:18 | #31

    Найти: (< [0-9]{2}.)(*^0013)

    Заменить на: [color=gray]\1[/color]\2

    Знак "< " указывает, что эти две цифры должны стоять в начале слова

    По остальным двум случаям сразу сказать не могу. Где может находиться этот текст? В начале строки, в конце, просто в тексте? Нужно видеть пример документа

  32. Altalion
    28.12.2009 в 14:26 | #32

    Александр Витер здравствуйте, пока ждал наладки сайта, сам разобрался более или менее в подстановочных знаках, но задачу (1960) Walk Don't Run -> [spoiler="(1960) Walk Don't Run"]

    так не решил, текст имеет примерно такой вид:

    1999 - Electronic Jacuzzi

    Продолжительность: 1ч. 28 сек. ​

    01. Turn Up the Satan (04:36)

    02. Dolly Fisher (04:35)

    03. Dragon (05:34)

    04. R2D3 (06:45)

    05. Thoughts Behind the Scene (06:22)

    06. Electronic Jacuzzi (05:50)

    07. Dracula Cowboy (05:09)

    08. One Shot Ballerina (03:46)

    09. Bingo It's Heaven (17:51)

    2004 - Blow

    Продолжительность: 55 мин. 5 сек. ​

    01. Blow (8:54)

    02. Jet Sex (3:05)

    03. Cockpit Inferno (3:48)

    04. Do You Read Me (4:17)

    05. Till You Faint (3:27)

    06. The Dragster-Wave (6:10)

    07. Sweet Love (3:57)

    08. High Voltage Queen (The Reign Of) (5:15)

    09. 21st Century Crooners (3:29)

    10. Mine (5:14)

    11. Horse (2:52)

    12. Sea-Side Friends (4:30)

  33. Altalion
    28.12.2009 в 14:30 | #33

    Кстати, нужно в конце каждого треклиста поставить [/spoiler], т.е.:

    "(2004) Blow"

  34. Михаил
    10.01.2010 в 18:51 | #34

    У меня такая ситуация:

    есть в формате word перечень объявлений с телефонами. Как отметить (любым образом, вплоть до замены на одинаковое слово) уже имеющиеся известные телефоны. Возможно ли это делать в рамках формата Word?

  35. 10.01.2010 в 19:03 | #35

    Михаил, что вы конкретно понимаете под словом "отметить"?

    И что это за "уже имеющиеся известные телефоны"?

    Вы говорите о повторяющихся номерах?

  36. Михаил
    10.01.2010 в 19:06 | #36

    Да. Именно повторяющихся телефонах. Чтобы не тратить время на их повторный прозвон. А "отметить" - это любым образом - цветом, шрифтом, заменить за слово "нет"....

  37. Михаил
    10.01.2010 в 19:09 | #37

    База телефонов пока есть в рукописном варианте, но перенести в word, блокнот... не проблема

  38. 10.01.2010 в 19:10 | #38

    Можно, но желательно видеть ваш формат. Если можете, разместите где-нибудь ваш документ и дайте на него ссылку.

  39. Михаил
    10.01.2010 в 19:11 | #39

    Да, именно повторяющиеся телефоны. Чтобы не тратить время на их повторный прозвон. А "отметить" - это любым способом - цветом, шрифтом, заменить на ключевое слово.

  40. Михаил
    10.01.2010 в 19:12 | #40

    Антон, я не слишком силен в этом. Скиньте "привет" на mikhail-82@yandex.ru, я отправлю документ Вам.

  41. 10.01.2010 в 19:15 | #41

    Вот доступный сервис для хранения файлов: Залил.ру.

  42. Михаил
    10.01.2010 в 19:23 | #42

    http://slil.ru/28462623

  43. 11.01.2010 в 09:58 | #43

    Михаил, это можно сделать, но не бесплатно.

  44. 11.01.2010 в 14:30 | #44

    Михаил, ваш документ содержит очень много информации и телефоны в разном формате. Решение требует затрат времени. Если желаете, то можете оставить вашу заявку либо на форуме, либо здесь (ответ Коментатору 5).

  45. Михаил
    12.01.2010 в 01:38 | #45

    спасибо. Покопавшись на сайте я нашел более-менее подходящий макрос.

  46. Аноним
    15.02.2010 в 09:14 | #46

    Есть несколько слов которые нужно выделить. Например все слова (капуста, слон, горох, begin, world) выделить жирным шрифтом. Как сделать? Сейчас получается только по одному слову (т.е. соболь на ЖИРНЫЙ), сделать же (гад, вад, пад на ЖИРНЫЙ - не умею).

  47. 15.02.2010 в 10:49 | #47

    Аноним, попробуйте так:

    Sub selectWord()
    'Выделение жирным найденных слов
    Dim sText As Range
    Dim i As Long
    Dim myWords As Variant
    myWords = Array("капуста", "слон", "горох", "begin", "world")
    Set sText = ActiveDocument.Range
    With sText.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .Forward = True
       .Wrap = wdFindStop
       .MatchWholeWord = True
       .Format = True
       For i = LBound(myWords) To UBound(myWords)
          .Text = myWords(i)
          .Replacement.Font.Bold = True
          .Execute Replace:=wdReplaceAll
       Next i
    End With
    End Sub

  48. Дмитрий
    15.02.2010 в 11:38 | #48

    Спасибо, но... мне бы подсказку, куда воткнуть этот код?

  49. 15.02.2010 в 11:53 | #49

    http://wordexpert.ru/page/sozdanie-makrosa-iz-gotovogo-koda

     

    А в массив

    myWords = Array("капуста", "слон", "горох", "begin", "world")

    вставляйте по образцу нужные вам слова.

  50. Дмитрий
    15.02.2010 в 11:54 | #50

    Все здорово! Спасибо большое.

  51. Дмитрий
    15.02.2010 в 12:23 | #51

    Есть еще одна деталь. Когда прошу выделить например "сок", как "СОК", макрос выделяет еще и всякие"виСОК", "ноСОК", "пеСОК" и т.д. Как бы сделать, что б выделялись только целые слова (т.е. вместо "аасокаа", не было "ааСОКаа") ?

  52. 15.02.2010 в 12:33 | #52

    Добавил в код выше строку

    .MatchWholeWord = True

  53. Дмитрий
    15.02.2010 в 12:37 | #53

    Уже сделал " сок " )

  54. Максим
    23.02.2010 в 03:54 | #54

    Здравствуйте!

    Тоже мозг сломал... Помоги, пожалуйста!

    Надо найти (выделить) в тексте любой символ зеленого (RGB) цвета, пробел, любой символ с подчеркиванием. Проще говоря, "Символ1 (формат 1) Пробел Символ2(Формат2)". Возможно ли это сделать, не прибегая к макросам?

  55. Сергей
    05.04.2010 в 19:37 | #55

    Подскажите пожалуйста

    Делаю замену &&&&1 (+тут еще цифры) на - &&&&[1 в 2003м.

    Не реагирует

  56. Леночка
    13.04.2010 в 15:57 | #56

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

  57. 29.04.2010 в 17:23 | #57

    Здравствуйте!

    Помогите, пожалуйста, с такой заморочкойц. Есть текст на латышском языке (т.е. с апокрифическими знаками) проячти на 300 фамилий. Нужно его переделать в русскую кодировку. Пока что приходится набирать фамилии вручную, т.к. пробовала каждую букву менять отдельнот - дольше и нуднее. Можно ли автоматизировать процесс?

    Пример:

    заменить Vilnis-Edvīns Čreņišs

    на Вилнис-Эдвинс Чренишс

    Заранее благодарна

  58. 30.04.2010 в 10:02 | #58

    Можно, если задать соответствия латышских букв русским.

    Эти знаки называются диакритическими smile

  59. Nrave
    21.05.2010 в 12:22 | #59

    Здравствуйте.

    Подскажите пожалуйста, возможно ли заменить такие скобки [ ] с содержимым внутри (буквы, знаки, цифры и иногда все вместе) на такие же скобки без содержимого?

  60. 21.05.2010 в 13:44 | #60

    Возможно.

    Найти: \[*\]

    Заменить на: []

    Подстановочные знаки включены

  61. 27.05.2010 в 18:51 | #61

    Люди добрые, объясните, пожалуйста, почему в тексте:

    следует проставлять символ "0".

    найти: ([A-Za-zА-яЁё0-9^0041])[^0148^0034] (с включенными подстановочными знаками)

    заменить: \1^0187

    получается результат:

    следует проставлять символ "0«.

  62. benoni
    02.06.2010 в 15:18 | #62

    Есть такой неплохой толковый словарь русского языка Современный энциклопедический словарь в DOC формате http://ifolder.ru/17985638

    Единственное его визуальное неудобство - не выделенное слово, которое ищем. Вопрос: как выделить все слова, написанные ПРОПИСНЫМИ буквами и заменить их полужирным шрифтом?

  63. 02.06.2010 в 16:05 | #63

    Вот специальная заметка на эту тему: Поиск слов с прописными буквами.

    Пожалуйста, пользуйтесь поиском по сайту (поле в верхней левой части сайта, под иллюстрацией-логотипом).

  64. benoni
    02.06.2010 в 16:38 | #64

    Антон, спасибо! Эту тему я нашел до написания своей заметки. Хороший макрос, спасибо! Но мне нужно выделить найденные слова в тексте (макрос их находит и собирает отдельно, не выделяя), а затем сделать полужирными. Наверное, что-то добавить нужно в макрос. С уважением!

  65. 02.06.2010 в 17:17 | #65

    Selection.HomeKey Unit:=wdStory 'Переход в начало документа
        With Selection.Find 'Задание условий для поиска
            .Text = "" 'Искать слова из всех заглавных букв русских и английских
            .Forward = True ' Направление поиска - Вперед
            .Wrap = wdFindStop ' Условие остановки поиска
            .MatchWildcards = True ' Установка флага для использования подстановочных знаков
        End With
    Do While Selection.Find.Execute = True ' Основной цикл поиска
            Selection.Find.ClearFormatting
            Selection.Font.Bold = True 'Выделение найденого полужирным
        Loop

    Вот примерный код того, о чем вы просили, если я правильно понял задачу. Данный макрос начинает искать аббревиатуры с начала документа.. И как только находит - выделяет их полужирным.. Причем аббревиатурой считается только слова из заглавных букв, начиная из слова из двух буквы

  66. benoni
    02.06.2010 в 17:58 | #66

    andrkar, спасибо! У меня почему то не работает Ваш макрос. Курсор возвращается на начало текста. И только. А задача такая: найти и заменить полужирным шрифтом все русские (можно и английские) слова, написанные ПРОПИСНЫМИ буквами.

  67. 03.06.2010 в 09:50 | #67

    andrkar, немного поспешил, не задав регулярное выражение для поиска слов из заглавных латинских и русских букв. Макрос должен выглядеть так:

    Selection.HomeKey Unit:=wdStory 'Переход в начало документа
    With Selection.Find
      .ClearFormatting
      'Выражение состоящее из одной или более заглавной буквы
      .Text = "<[A-ZА-Я]@>" 'Здесь должно быть выражение  <[A-ZА-Я]@>
      .MatchWildCards = True
      .Replacement.Font.Bold = True 'заменять на полужирный жирный 
      .Replacement.Text = "^&" 'Текст замены — найденный текст
      .Execute Replace:=wdReplaceAll
    End With

    Заменив Selection на ActiveDocument.Content и убрав первую строку, получим макрос, который будет работать не затрагивая курсор

    А вообще-то и макрос здесь не нужен, это обычный поиск и замена, только записанный в виде макроса.

    P.S. при публикации поста почему-то исчезает регулярное выражение для Text. Оно должно быть таким:

  68. benoni
    03.06.2010 в 12:00 | #68

    Александр Витер, спасибо за присоединение к теме. И этот макрос у меня ничего не находит. Повторяю: есть очень большой словарь в формате *.doc. Надо найти и заменить полужирным шрифтом все русские слова, написанные ПРОПИСНЫМИ буквами. См. №62

  69. 03.06.2010 в 13:02 | #69

    В том-то и дело, что поисковое выражение пропадает из текста комментария. Я написал Антону, надеюсь это исправят. Поисковое выражение должно быть таким (без пробелов):

    "< [ A - Z А - Я ] @ >"

  70. benoni
    03.06.2010 в 15:00 | #70

    Александр Витер, спасибо! Так находятся мне нужные слова. Как их одновременно сделать жирными? Crrl+B не проходит. Жирным становится только то слово у которого находится курсор.

  71. 03.06.2010 в 18:15 | #71

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

  72. benoni
    03.06.2010 в 21:00 | #72

    andrkar! Желательно иметь макрос. Можете на форуме его поместить? Спасибо!

  73. 04.06.2010 в 15:31 | #73

    benoni, так ведь макрос, который я дал, и делает полужирным каждый такой фрагмент (см. сообщение №67). Антон внёс корректировки и теперь макрос отображается правильно.

  74. 04.06.2010 в 17:57 | #74

    Александр Витер, есть нюанс. Выделяются также и отдельные прописные буквы, что не желательно. andrkar предлагал выделять слова из заглавных букв, которые имеют более двух букв. Это в Вашем макросе нельзя учесть?

  75. 05.06.2010 в 10:40 | #75

    А в макрос изменения не были внесены.. smile там так и остались пустые кавычки. Но, можно данную строку взять и из макроса Александра.smile

  76. Дмитрий
    10.06.2010 в 09:32 | #76

    Помогите пожалуйста решить вот какую проблему.

    В документе нужно изменить цвет одного конкретного слова/символа встречающегося много раз по тексту. Через замену с подстановочными знаками это прекрасно получается: настраиваю нужный в замене цвет и все проходит замечательно. Но когда хочу на это действие сделать макрос через автоватическую запись, то в макрос записывается только замена текста без изменения цвета. А хотелось бы это все записать в макрос и вывести кнопкой на панель.

    Заранее благодарен

  77. 10.06.2010 в 11:25 | #77

    Sub ChangeTextColor
      With ActiveDocument.Range.Find
        .Text = 'Здесь поисковое выражение
        .MatchWildCards = True
        .Replacement.Text = 'Здесь текст замены
        'Цвет текста замены. Подставьте соответствующие числа
        .Replacement.Font.Color = RGB(Red,Green,Blue)
        .Execute Replace:=wdReplaceAll
      End With
    End Sub

  78. Дмитрий
    11.06.2010 в 09:24 | #78

    Спасибо огромное. Все получилось

  79. Лана
    08.07.2010 в 14:34 | #79

    Подскажите пожалуйста, как можно в документе изменить шрифт Times new roman на Arial, изначально в документе употребляется 2 шрифта Times New Roman и Courier New. И уменьшить размер шрифта везде на 2 единицы.

    В документе около 40 страниц и вручную это делать - кошмар...Помогите пожалуйста...

  80. 08.07.2010 в 15:16 | #80

    Лана, в формате шрифта для искомого выражения нужно выбрать шрифт Times New Roman, а для выражения замены — Arial. Сами поля оставить пустыми

  81. 08.07.2010 в 20:25 | #81

    Речь идет о полях "Найти" и "Заменить" окна "Поиск и замена" которые вызывается при нажатии комбинации клавиш CTRL+F

  82. Александр
    14.07.2010 в 13:52 | #82

    Здравствуйте. Нужна помощь

    Имеется таблица с 3 стобцами. 1 - позиционные обозначения (A1..An, HL1..HLn и т.п)

    2 - наименования

    3 - кол-во.

    Ломаю голову над этим:

    Нужно:

    1)задать поиск "вниз" по стобцу 2(наименования) подряд повторяющихся наименований (до первых повторяющихся)

    2)очитить из найденных все,кроме первой строчки второго столбца.

    3) теперь столбец 1. Перенести имена позиционных обзначений в первую строчку 1 столбца. Причем,допустим строк было 3 и более (т.е. R1,R2,..,Rn),то записать в строчку 1 стобца 1 как "R1...Rn", а если =2,то "R1,R2"

    Проделать тоже самое с остальными строками,которые еще не затрагивались.

    Должен получистя по типа перечня элементов

    3)

  83. 14.07.2010 в 14:16 | #83

    Александр, это уже тянет на хороший макрос. Пишите мне лично или на форум, в раздел "Заявки на разработку" — сможем решить.

  84. 14.07.2010 в 23:12 | #84

    Спасибо,напишу туда smile

  85. Данил
    21.07.2010 в 17:21 | #85

    Всем привет, подскажите пожалуйста как обновить рейтинг с одного списка в другой, устал делать это в ручную. вот ссылка картинки http://fotohost.jampo.com.ua/images/b1b265606dc68ba372b3fa0ff7fcbd92.jpg

  86. 26.07.2010 в 17:36 | #86

    а файлик вместо картинки можно посмотреть? Непонятно, что именно нужно обновлять.. Полями ли этот рейтинг сделан? если полями, то что там за поле..

  87. Данил
    29.07.2010 в 12:55 | #87

    andrkar вот ссылка таблиц http://fileshare.in.ua/3598105

  88. Homo_sibiricus
    29.09.2010 в 12:27 | #88

    Sub selectWord()
    02.'Выделение жирным найденных слов
    03.Dim sText As Range
    04.Dim i As Long
    05.Dim myWords As Variant
    06.myWords = Array("капуста", "слон", "горох", "begin", "world")
    07.Set sText = ActiveDocument.Range
    08.With sText.Find
    09. .ClearFormatting
    10. .Replacement.ClearFormatting
    11. .Forward = True
    12. .Wrap = wdFindStop
    13. .MatchWholeWord = True
    14. .Format = True
    15. For i = LBound(myWords) To UBound(myWords)
    16. .Text = myWords(i)
    17. .Replacement.Font.Bold = True
    18. .Execute Replace:=wdReplaceAll
    19. Next i
    20.End With
    21.End Sub

    Здравствуйте, Антон! При попытке использовать этот макрос с большим массивом заменяемых слов столкнулся с проблемой: количество слов ограничивается длиной строки - около 900 символов (позиция myWords = Array) Можно ли как-то эту позицию сделать "безразмерной", например, заменять слова общим объемом 10000 символом? Спасибо за сайт и Ваше подвижничество!

  89. 29.09.2010 в 18:51 | #89

    Ознакомьтесь пожалуйста со следующей заметкой: Замена жаргонных слов в тексте.

    И особенно с комментариями, в частности, комментарием Леонида Бродского. Да, собственно, со всеми комментариями.

    Спасибо за хорошие слова, но я не один уже работаю над ним. Есть активные коллеги. Им спасибо!

  90. 02.10.2010 в 18:29 | #90

    Есть текст:

    CLCL - кеширование буфера обмена

    CCleaner - очистка от логов, временных файлов и тд

    CCProxy - мощный и компактный прокси-сервер

    CDEject - отрытие/закрытие лотка CD-рома

    Надо все слова до тире сделать полужирним шрифтом, т.е.

    CLCL - кеширование буфера обмена

    CCleaner - очистка от логов, временных файлов и тд

    CCProxy - мощный и компактный прокси-сервер

    CDEject - отрытие/закрытие лотка CD-рома

    CDSlow - управление скоростью чтения CD/DVD-приводов

    Помогите, пожалуйста!

  91. 03.10.2010 в 23:05 | #91

    Сам себе отвечаю: Из прекрасной статьи Хозяинова, ссылка на которую есть на этом сайте, нужно произвести замену

    Найти [A-Za-z^0032\(\)]@)^0032-

    Вставить Пропустить, выбрать в формате полужирный шрифт и включить Подстановочные знаки.

  92. Алла
    07.10.2010 в 02:43 | #92

    Привет! ребята помогите пожалуйста, мне нужна программка для проверки одинаковых слов в тексте в программе Ворд, у меня напечатано 90 страниц мне нужно чтобы не было повтора в Фамилиях и адресах (некоторые повторяются но у меня уже нет силы каждую фамилию проверять на каждой странице) ПОМОГИТЕ ОЧЕНЬ ПРОШУ

  93. George
    22.10.2010 в 02:46 | #93

    Очень прошу помогите. Хочу в тексте заменить слава на номерах от 01 (или просто от 1) до например 1000. Как это сделать?

  94. 22.10.2010 в 08:13 | #94

    Не понятно, что вы хотите сделать. Что на что заменить? Какую "славу" вы хотите заменить на номерах?

  95. Марк Розенберг
    22.10.2010 в 09:33 | #95

    Алла!

    Если это список фамилий или таблица, то проще всего скопировать эту таблицу в Access и удалить повторения простейшим запросом.

    Раньше я пользовался макросом в Word, который сортирует список (или таблицу), а потом удаляет повторяющиеся строки, но работает он гораздо дольше.

  96. Сергей
    30.10.2010 в 15:30 | #96

    Прошу вас помочь.

    В тексте world каголовки статей идут в простом болде,подскажите пожалуйста макрос для замены всех названий на заголовок2 т.е. ,болд на h2.

  97. Сергей
    30.10.2010 в 15:58 | #97

    Я уже разобрался спасибо smile

  98. Михаил
    02.11.2010 в 14:55 | #98

    Здравствуйте.

    Нужно поставить после знаков препинания пробел. В тексте много таких примеров: (слово)(знак препинания)(слово), нужно, чтобы было (слово)(знак препинания)(пробел)(слово).

    Спасибо.

  99. 04.11.2010 в 22:51 | #99

    У меня такой вопросс по ворду 2003:

    Мне нужно найти имя или фамилию не используя поиска! хм... как это сделать вообще без понятия!

    Очень прошу помогите

  100. 04.11.2010 в 22:54 | #100

    Михаил!

    Делай через замену в поле Найти вводиш запятую!

    А в поле Заменить запятую и пробел!

  101. Ade5
    07.11.2010 в 19:09 | #101

    Дана таблица. Фамилии с именами в одном столбце, в разных строчках, т.е. одна пара имя-фамилия, затем в другой строчке другая пара и т.д.

    Надо в каждой строчке поменять имя и фамилию местами.

  102. 07.11.2010 в 23:42 | #102

    Михаил!

    Чтобы добавить пробел после тех запятых, после которых нет пробела, проще всего заменить запятую на запятую и пробел, а потом заменить два пробела на один пробел.

  103. 07.11.2010 в 23:53 | #103

    Ade5!

    Посмотрите на форуме в разделе Автоматизация тему Как сделать такой макрос. Если вы разберетесь в ответе Вождя, то сможете сами решить свою задачу.

  104. MilLeNiuM
    11.11.2010 в 21:36 | #104

    Здравствуйте...Нужна помощь в редактированиии текста...

    текст вида

    ........

    суть в том что мне нужно сделать множество копий, но что бы везде была разнаю очередность чисел...то есть в след мне надо от 31.jpg до 60.jpg и так далее..

    Можно ли это как нибудь автоматизироать

    PS: в документе кроме этих чисел много других

  105. MilLeNiuM
    11.11.2010 в 21:39 | #105

    По ходу из за тегов не отаброзилось...

    Текст вида:

    /img/animals/1.jpg

    /img/animals/2.jpg

    /img/animals/3.jpg

    ....

    /img/animals/30.jpg

  106. MilLeNiuM
    11.11.2010 в 21:41 | #106

    суть в том что мне нужно сделать множество копий, но что бы везде была разнаю очередность чисел...то есть в след мне надо от 31.jpg до 60.jpg и так далее..

    Можно ли это как нибудь автоматизироать

    PS: в документе кроме этих чисел много других

  107. 13.11.2010 в 09:03 | #107

    MilLeNiuM, возможно вам следует воспользоваться полем SEQ для последовательной автонумерации. Ознакомьтесь с заметками:

    Автоматическая нумерация билетов

    Автотекст с последовательной нумерацией

  108. MilLeNiuM
    13.11.2010 в 19:13 | #108

    Спасибо, попробую разобраться

  109. Аноним
    13.11.2010 в 19:41 | #109

    Не могу понять как он работает...

    Вручную вставляешь поля...ну допустим я вставил 30 полей...

    seq MyList \# "1"

    seq MyList \# "2"

    .....

    seq MyList \# "30"

    А это все автоматически запускать?

    В след документе мне надо от 31 до 60... и так далее

  110. MilLeNiuM
    13.11.2010 в 19:43 | #110

    Хотел спросить как автоматически запускать?

  111. Юлия
    15.11.2010 в 22:43 | #111

    Подскажите пожалуйста, как можно найти в документе Word 2003 любое (различное) количество знаков, начиная с начала строки, и завершая символами ***, и затем заменить эту последовательность на пробел.

    Пример:

    Quick description Hotel Gasthof ***

    Important information Ramada Resort Khao Lak ***

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

  112. 16.11.2010 в 08:18 | #112

    Юлия, не понятно, что именно вы хотите найти? Три подряд идущие звездочки? Тогда в поле "Найти" вводите выражение

    \*{3}

    и не забудьте установить флажок на опции "Подстановочные знаки".

    Или более сложный поиск требуется? Поясните.

  113. MilLeNiuM
    16.11.2010 в 22:43 | #113

    Про мой пост забыли)))

    Спасибо большое за помощь Антон!)

    Разобрался сам все получилось!

    Очень рад *happy*

  114. Юлия
    23.11.2010 в 07:53 | #114

    Антон, мне нужно удалить все части текста, которые начинаются с начала строки, и заканчиваются символами ***. Эти стринги могут быть разной длины, состоять из разных слов (см. мой пример выше), единственное, что их объединяет, это то, что все они начинаются с начала строки и кончаются ***. Но для этого их нужно сначала как-то найти. Можно ли это сделать средствами поиска и замены Ворда?

  115. Константин
    06.12.2010 в 23:28 | #115

    Есть список из строк, типа:

    dfg35/^jfdk/fk.c s/,mbsd/.m,sd/lsdkfb[kjdsfg]

    ;l,gv,;zl,fbv/astgjsh/dghs556/dsfb/zdfh/zfbh/zfhzfdh{sdg[lkjasg]

    и таких строк много

    У меня вопрос,

    можно ли удалить в списке (в каждой строке) всё от третьего / до первого [

  116. chiticalla
    07.12.2010 в 12:29 | #116

    Все прив. Помогите пожалуйста - мне нужно написать программу на shell, которая заменяет все знаки препинания на пробелы

  117. Игорь
    07.12.2010 в 16:41 | #117

    Здравствуйте!

    Нужно Напечатать слово, наиболее часто повторяющееся в выделенной области текста. Игнорировать слова менее чем из четырёх букв.

    Помогите пожалуйста!

  118. Аноним
    11.12.2010 в 23:08 | #118

    Здравствуйте

    имеется текст вида:

    ????? психологическая диагностика;

    ????? психологическое консультирование;

    ????? психологическая коррекция;

    ????? психологическая профилактика.

    возможно ли его привести к виду?

    1 психологическая диагностика;

    2 психологическое консультирование;

    1 психологическая коррекция;

    2 психологическая профилактика.

  119. 15.12.2010 в 15:29 | #119

    Для удаления лишних знаков конца строки использую поиск "([!.^13])^13" с заменой на "\1".

    Замечательно работает, только вот бывают строки, начинающиеся с P.S., Тема:, 1.,2. и т.д. Полагаю, что нужно в это добавить условие типа :"^13[1-9.]", "^13[P.P.S.]", "^13[P.S.]"

    Но как их вставить в это выражение, причём в занчение "не"?

    Пожалуйста помогите

  120. Аноним
    16.12.2010 в 12:53 | #120

    Здравствуйте! Как можно все слова в тексте, набранные латинскими буквами, выделить курсивом? Спасибо.

  121. Rod
    17.12.2010 в 15:23 | #121

    Как заменить I только внутри слова на l. Т.е. если большая I встречается в середине слова (есть символ перед ней), то заменить ее на маленькую l. Остальные I не трогать.

  122. 17.12.2010 в 20:41 | #122

    Аноним

    Заменить («Ctrl+H»);

    Найти <[A-Za-z]@>

    Вставить Пропустить, выбрать в формате курсив и включить Подстановочные знаки.

  123. Александр
    08.05.2011 в 23:28 | #123

    Прошу прощения - при публикации все теги пропали похоже. Попробую так

    Не смог найти то, что нужно.

    Спрошу так:

    Мне нужно обернуть текст в определенный код.

    Пример:

    Катя
    ВАСЯ
    Это пример того, что есть у меня в наличии, а мне нужно из этого получить заменой:
    Катя
    ВАСЯ
    Т.е. мне по факту нужно получить вместо тега  в конце каждой строки закрывающий тег. Никак не могу сообразить, как это сделать - подскажите плиз.

  124. 08.05.2011 в 23:45 | #124

    Что-то он так и не хочет мне теги выводить - вылетело из головы, как их в качестве примечаний оформить.

    Попробую так

    есть массив, состоящий из текста

    (ТЕГ_1)Вася(Конец)

    (ТЕГ_2)Катя(Конец)

    (ТЕГ_3)Петя(Конец)

    Подскажите пожалуйста, как мне получить вместо этого вот такое:

    (ТЕГ_1)Вася(/ТЕГ_1)

    (ТЕГ_2)Катя(/ТЕГ_2)

    (ТЕГ_3)Петя(/ТЕГ_3)

    Т.е. у меня каждая строка заканчивается тегом Конец ну по англицки только.

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

  125. 10.05.2011 в 23:17 | #125

    >Аноним

    >Заменить («Ctrl+H»);

    >Найти

    >Вставить Пропустить, выбрать в формате курсив и включить Подстановочные знаки.

    Ddddd dddd еарао ППППGGGGG - с этой строкой не справилось, может что-то сделал не так ?

  126. Павел
    11.05.2011 в 06:43 | #126

    Найти: (\[[0-9]{2}:[0-9]{2}\]) ([0-9]{2}. *)(^0013)
    Заменить на: \2 \1\3

    Как это использовать?

    Не работает поиск такой строки.

    И замена не работает, вставляет как написано, а не подразумеваемые блоки.

  127. Студент
    05.06.2011 в 19:29 | #127

    Помогите пожалуйста в этим:

    1. Надо найти все "а", перед которыми - "квадратная левая скобочка", а после которых - "точка с запятой" ИЛИ "квадратная левая скобочка".

    2. Заменить "а", отвечающее таким условиям, на "б", ничего не изменяя вокруг этой буквы.

    Благодарю

  128. Студент
    05.06.2011 в 19:30 | #128

    Наверное, тут стандартный поиск не поможет, нужны макросы? Если нужны, то куда вставлять текст макроса?

    спс

  129. 05.06.2011 в 19:35 | #129

    По ленте правой кнопкой мыши щелкните, там будет настройка лены, добавьте панель - разработчик и там будет кнопка макросы.

  130. Студент
    05.06.2011 в 19:59 | #130

    А в стандартном поиске это можно проделать, не повторяя?

  131. 05.06.2011 в 20:08 | #131

    в принципе можно, жмете кнопку заменить и там пишите, если я все верно понял:

    искать [a;

    заменить на

    [б;

    искать [a[

    заменить на

    [б[

  132. Vlad
    19.06.2011 в 04:56 | #132

    Здравствуйте. Как поставить запятую в конце каждой строчки? Спасибо.

  133. MrZombie
    19.06.2011 в 16:35 | #133

    Уважаемые, помогите, пожалуйста.

    Есть субтитры Симпсонов. Вот фрагмент:

    ***

    {206}{251}Ooh! Careful, Homer!

    {254}{311}There's no time. We're late.

    {369}{424}O little town of Bethlehem

    {424}{455}O little town of Bethlehem

    {457}{570}How still we see the elie

    {573}{637}-Excuse me. Pardon me.

    {640}{685}- Sorry. Excuse me.|- Hey, Norman, how's it goin'?

    {688}{733}So you got dragged down here|too, huh?

    {736}{781}- How you doin', Fred?|- Sorry. Excuse me.

    {784}{829}- Yeah. 'Scuse me. Oh!

    {831}{908}Pardon my galoshes.

    {908}{1018}Are met in thee tonight

    {1071}{1129}Wasn't that wonderful?

    {1129}{1229}And now|"Santas of many lands,"

    {1232}{1316}as presented by the entire|second grade class.

    {1318}{1378}Oh! Lisa's class.

    {1381}{1436}Frohliche Weihnachten.

    {1438}{1498}That's German for|" Merry Christmas."

    {1498}{1630}In Germany, Santa's servant Ruprecht|gives presents to good children...

    ***

    Мне нужно убрать все {} и все, что между ними – то есть весь тайминг. Просто оставить чистый текст.

    Как это сделать??? Обрыл весь нет, все советуют Sed, но моих знаний на енго не хватает :(

    БОЛЬШУЩЕЕ СПАСИБО всем, кто поможет smile

  134. 19.06.2011 в 16:38 | #134

    в екселе, заменить

    {*}

  135. aureole
    23.06.2011 в 19:46 | #135

    Здравствуйте!

    Подскажите пожалуйста: в тексте часть слов, написанных одним шрифтом, содержат знаки å è ÿ... (диакритику)

    Нужно поменять шрифт таких слов на другой. Это как-то можно сделать?

    (При попытке написания макроса эти символы отображаются как "?")

    Заранее спасибо smile

  136. Аноним
    26.07.2011 в 12:09 | #136

    Такая проблема: После распознавания отсканированого документа и сохранения в Ворде появилось куча знаков ¬ (просто знак тере не распознался правильно и и программа сохранила в Ворде вместо "-" этот знак "¬"). Хочу его заменить, но Ворд его не то что не заменяет, а находит вообще.

    ...и это не первый раз: уже и с другими символами, а порой и словами замечал, что Ворд не находит слово или символ, хотя оно/он точно есть в документе. Почему так бывает?

    Большое спасибо за помощь!

  137. Аноним
    26.07.2011 в 12:11 | #137

    Хочу его заменить, но Ворд его не то что не заменяет, а НЕ находит вообще.

    ;)

  138. ирина
    27.12.2011 в 15:43 | #138

    подскажите, пожалуйста! Есть 800 слов в столбик, их всех нужно заключить в кавычки, как это сделать? очень буду благодарна за ответ!!!!!

  139. Ольга
    14.01.2012 в 16:32 | #139

    Здравствуйте! У меня несколько вопросов:как найти в тексте все слова с дефисами? Встречается ли в тексте заданная словоформа? Сколько всего раз встречается в тексте заданное слово?

  140. 27.02.2012 в 15:01 | #140

    Подскажите, пожалуйста, можно ли в MS Word 2007 искать по выделению цветом?

    Например все, что выделено красным? Т.е. не какое-то конкретное слово или символ, а именно по признаку выделения цветом

  141. 27.02.2012 в 22:24 | #141

    Обратитесь на наш форум, там помогут.

  142. Аноним
    06.04.2012 в 12:04 | #142

    Здравствуйте! подскажите пожалуйста как сделать следующее.

    как знаки 'aaa' заменить на

  143. Аноним
    25.04.2012 в 15:35 | #143

    А можно в рамках одного макроса, задать несколько списков заменяемых слов и с разным форматированием?

    например: "капуста", "слон", "горох", "begin", "world" - заменяется на жирный

    а

    "вино", "махаон", "фасоль", "end" - заменялся бы на курсив.

    Sub selectWord()
    'Выделение жирным найденных слов
    Dim sText As Range
    Dim i As Long
    Dim myWords As Variant
    myWords = Array("капуста", "слон", "горох", "begin", "world")
    Set sText = ActiveDocument.Range
    With sText.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindStop
    .MatchWholeWord = True
    .Format = True
    For i = LBound(myWords) To UBound(myWords)
    .Text = myWords(i)
    .Replacement.Font.Bold = True
    .Execute Replace:=wdReplaceAll
    Next i
    End With
    End Sub

  144. Наталия
    17.07.2012 в 16:15 | #144

    Добрый день. Подскажите пожалуйста, как в ворде напечатать слово, поверх другого слова. Что бы это другое слово не двигалось при этом вправо??

  145. Аноним
    17.08.2012 в 13:35 | #145

    А можно ли какнибуть удалить сочетание букв из поиска?

    Например исключить из поиска "[!они,нет,она] з" чтобы именно такое сочетание [они,нет,она] исключал, а не применял эти буквы к одной позиции.

  146. Алексей
    03.09.2012 в 16:59 | #146

    Хороший у вас сайт!

    Пожалуйста, помогите макросом для замены "одного на другое" .

    В документе, среди текста, есть данные в вариантах:

    1х2

    Цифра, буква Х, цифра

    Между буквой Х и цифрами может быть пробел или несколько, или может не быть пробела/ов вовсе, или присутствовать с одной стороны буквы Х.

    1х 2

    1 х2

    1 х 2

    1 х 2

    Одного варианта, "объект имеет размер 10 х 50 метров".

    Пожалуйста, помогите макросом, что бы заменить все встречающиеся данные типа "10 х 50" следующим "10 на 12", при условии, что "х" может быть русской или английской буквой и встречаться между словами тексте, например "all x non".

  147. Алексей
    21.09.2012 в 01:00 | #147

    Есть список: Имя Отчество Фамилия

    Можно ли как-то автоматизировать создание аналогичного списка в дательном падеже?

  148. Григорий
    15.10.2012 в 15:45 | #148

    Помогите, не могу в диссертации заменить « на ". Пробывал всякие параметры, меняет « опять же на « )) В ручную не справлюсь, символов 1500

  149. Леся
    16.10.2012 в 20:28 | #149

    Добрый день! Помогите! Необходимо разделить тест. к примеру есть в тексте "044 severnyi" нужно чтобы с этого слова начиналась страница.

  150. Аноним
    15.11.2012 в 01:30 | #150

    подскажите пжл. В ворде тесты. Правильный ответ выделен цветом, а мне необходимо, чтобы перед правильным ответом ,был проставлен какой-нибудь символ, например @

  151. евгения
    10.12.2012 в 13:03 | #151

    такая проблема: по тексту нужно найи F2 и заменить на тоже самое только 2 - должна быть нижнем индексом, как это сделать?

  152. 18.12.2012 в 05:05 | #152

    Делается в два этапа.

    1. Найти: (F)(2), Заменить на: \1$$$$\2. Подстановочные знаки включены

    2. Найти: $$$$(2), Заменить на: \1. Подстановочные знаки включены. В формате "Заменить на" указать нижний индекс

  153. Андрей
    18.12.2012 в 17:41 | #153

    Ещё в добавок к этому желательно убрать абзацы между строчками, чтобы полученный результат был в "столбик".

  154. Андрей
    19.12.2012 в 11:54 | #154

    А где найти "нижний индекс"? нудны ли запятые и точки? Не получилось...

  155. андрей
    21.12.2012 в 03:30 | #155

    как прономеровать страницы

  156. Дмитрий
    24.12.2012 в 00:56 | #156

    Помогите пожалуйста! Есть большой текст типа

    -1. быстрое развитие эффекта

    -2. возможность использования в бессознательном состоянии

    -3. возможность применения лекарств, разрушающихся в ЖКТ

    +4. скорость поступления лекарств в общий кровоток непостоянна

    -5. необходимость стерилизации вводимых лекарств

    -1. облегченная диффузия

    +2. пассивная диффузия

    -3. активный транспорт

    -4. пиноцитоз

    Нужно выделить все строчки перед которыми стоит знак "-" можно ли как нибудь это сделать в Word?

  157. Надя
    08.01.2013 в 18:13 | #157

    Здравствуйте!

    Подскажите, пожалуйста, можно ли как-то получить список всех замен, которые я делаю во время работы через окошко find/replace?

    В идеале хотелось бы, чтобы ворд запоминал эти замены и дальше делал их автоматически. Каждый раз идти в меню редакции списка автозамены неэффективно, и при этом автозамена работает только для слова целиком, а мне необходимо заменять составные части больших составных слов. Если бы можно было автоматически сохранять мои замены в макрос, список в котором бы, таким образом, обновлялся, и его можно было бы запускать перед работой с каждым новым документом (сам макрос, производящий замены у меня есть, но нужно автоматическое пополнение его списка). Так постепенно можно было бы избавиться от замен в ручную, потому что лексика в моих текстах вполне определенная.

  158. Анна
    20.02.2013 в 23:05 | #158

    Помогите,пожалуйста!Очень нужно готовиться к экзаменационным тестам, и нужно для программы перести + из начала строчки в конец.

    Эпифизарный хрящ - это:

    суставной хрящ эпифиза

    эпифиз на хрящевой стадии развития

    патологическое включение хрящевой ткани в костный эпифиз

    +хрящевая пластинка роста между эпифизом и метафизом

    чтобы было:

    хрящевая пластинка роста между эпифизом и метафизом+

    Пожалуйста,помогите!

  159. Сударь
    03.03.2013 в 18:10 | #159

    Здравствуйте! Нужна помощь в одном нелегком для меня деле. Есть текст, в нем имеются знаки "$$$" (доллары). Нужно посчитать их по порядку. Т.е их в тексте всего 300, это мне известно, но нужно чтоб вместо долларов были числа от 1 до 300 по порядку, возрастанию. Спасибо за внимание.

  160. Александр
    07.03.2013 в 18:58 | #160

    доброго времени суток!

    ситуация следующая: есть программное обеспечение, которое регистрирует документы в базе и создает .doc файл (пустой) с определенным именем, есть сканер (на нем сканируются документы, распознаются и потом "ручками" вставляются в файл, который создался при регистрации).

    хочу сделать так: отсканированный документ сохраняется (ручками) в определенную папку, в имени файла указывать часть имени зарегистрированного файла (например: зарегистрированный файл - 12345_и(******).doc (примерно так ПО именует файл при регистрации нового документа), а отсканированный файл ручками сохранятся в расшаренную папку с именем 12345.doc), далее открываем зарегистрированный файл (он пустой) и с помощью макроса вставляем текст из отсканированного файла, т.е. макрос должен сам определять на основе имени открытого зарегистрированного файла из какого файла вставлять текст и после вставки текста отсканированный файл должен удаляться. Вот такая вот задачка! У сожалению visual basic владею очень слабо, поэтому самостоятельно с задачей справиться не могу!

    Заранее спасибо!

  161. Анонимный Участник
    22.05.2013 в 12:01 | #161

    Смотрите, как мне заменить слово, ну вот например, в ворде текст, я девочку, называла в тексте девочкой, а потом оказалось, что она Катя. Мне нужно везде слово "Девочка" заменить на "Катя". Как мне это сделать?

  162. 22.05.2013 в 12:21 | #162

    Жмете заменить (в 2010 ворде эта кнопка справа в меню) и пишите что на что менять.

  163. Андрей
    21.06.2013 в 12:12 | #163

    А как удалить или заменить на пробелы, все знаки "¶" в ворде?

    Пробовал по спец символам "^f" ничего не находит.

  164. gaura108
    24.06.2013 в 19:42 | #164

    Доброго всем дня!

    Вопрос 1.

    Имеется таблица для поиска и замены включающая в себя множество строчек (1000 и более). Если всякий раз вставлять эти значения в поля "найти и заменить" построчно это займет огромное количество времени. Есть ли какое то пакетное решение данной задачи?

    Вопрос 2.

    Имеется 2 похожих по структуре текста. Нужно заменить все значения выделенные курсивом из 1-го текста и вставить их во 2-й текст:

    1234 5678 (курсив)

    0000 0000

    8765 4321 (курсив)

    ... (список долгий)

    и

    1111 2222 (курсив)

    0000 0000

    3333 4444 (курсив)

    ... (список долгий)

    Соответственно можно выделить весь текст имеющий такой же формат (курсив) и скопировать его но при вставке в выделенный подобным же образом другой текст он просто вставляется целым блоком в выделенные строчки тогда как нужна построчная замена. Может кто знает как решить эту проблему?

  165. regards
    28.09.2013 в 07:10 | #165

    И вопрос вдогонку: можно ли сделать так, чтобы не открывать всякий раз окно замены, а просто выделить нужный текст, ввести замену, и произвести её до конца текста (в направлении вперёд)? Какой-нить макрос, наверное, надо написать, но разбираться в этом на один раз у меня займёт много времени. Вероятно, кто-то уже сталкивался с этой проблемой.

  166. regards
    28.09.2013 в 07:14 | #166

    Кажется, не прошёл предыдущий вопрос, прошу прощения. Вопрос был, можно ли изменить направление замены в Ворде по умолчанию с ВЕЗДЕ на ВПЕРЁД, мне это очень актуально. А как максимум - сделать так, чтобы не надо было всякий раз открывать окно замены, а просто выделить нужный фрагмент в тексте, ввести его замену, и одним действием типа нажатия функциональной клавиши произвести замену до конца текста (в направлении ВПЕРЕД). Моя работа требует огромного количества замен, и повторяющиеся манипуляции с открытием окна, копированием фрагмента и изменением направления замены с ВЕЗДЕ на ВПЕРЕД отнимают море лишнего времени. Заранее дико благодарен!

  167. Аноним
    07.11.2013 в 00:39 | #167

    Здравствуйте!

    Подскажите, возможно ли реализовать следующее:

    Имеется файл со стоп словами, нужно сделать проверку текста документа word на наличие в документе слов из стоп-списка и выделить его красным маркером.

    Заранее спасибо!

  168. Андрей
    01.09.2014 в 03:14 | #168

    Подскажите возможно ли при помощи подстановочных знаков найти в вёрде строки начинающуюся с открывающей скобки и в конце каждой такой строки поставить закрывающую скобку автоматом. Проблема состоит в том что при включенном режиме подстановочных знаков вёрд воспринимает формулу с одной открывающей скобкой как ошибку и не хочет искать, с точками, вопросительными знаками, тире всё работает, находит и вставляет, а со скобкой не знаю как сделать. Вручную там не выходит т.к около 50000 строк начинаются с открывающей скобки. Помогите пжлст.

  169. Андрей
    01.09.2014 в 04:34 | #169

    Чет я тупил по ходу. Или может ворд мой чет глючил, короче всё находится и всё подставляется. Если кому может пригодится то

    формула поиска ([(])() ().^13

    первое выражение поиск скобки, потом без пробела второе выражение слово примыкающее к скобке без пробела с любым кол-вом символов, третье после пробела это последнее слово с точкой после которой идет знак абзаца.

    Формула вставки и замены \1\2 \3.)^p

    вставляется(заменяются) первое,второе выражения без изменений, потом пробел, вставляется третье выражение, точка после него, закрывающая скобка после точки и знак абзаца.

    Юлин вводил эту формулу раз 50, но не работало почему то сначала, может без второй формулы она не хотела работать х\з, но на поиске без замены должна была работать ... короче всем спасибо )

  170. Аноним
    10.09.2014 в 23:35 | #170

    Доброго времени суток! Помогите пожалуйста с такой проблемой... в тексте очень много предложений заключенных в квадратные скобки [ ]. Как можно выделить их всех чтобы заменить на другой шрифт или размер? Команда \[*\] не может их найти :(

  171. Аноним
    30.09.2014 в 11:43 | #171

    Можно ли сделать через подстановочный знаки, чтобы предшествующие букве кавычки или скобке повторяли форматирование того, что в кавычках/скобках (например, полужирное начертание или курсив)?

    То есть кавычки_словокурсивом_кавычки - всё стало курсивом?

    Спасибо.

  172. Людмила
    02.10.2014 в 10:31 | #172

    Здравствуйте! Почему-то не получается в выделенном тексте заменить все русские буквы "А" на латинские "А". Пишет, что не найдено ни одного элемента для замены. Может быть неправильно пишу в строках Найти и Заменить. Помогите, пожалуйста.

  173. Антон
    18.11.2014 в 03:55 | #173

    Здравствуйте, мне нужна ваша помощь!

    Для решения моей проблемы мне нужно выделить каждый третий символ в тексте, а затем каждый второй.

    Или хотяби каждый второй тоесть через один символ.

  174. Аноним
    01.06.2015 в 16:57 | #174

    Подскажите, пожалуйста, есть ли в Подстановочных знаках Word метасимвола «ноль или больше раз»?

  175. Аноним
    09.12.2015 в 18:30 | #175

    Как быстро преобразовать текст, набранный по английски в самом ворде?

  176. Лера
    31.01.2016 в 07:13 | #176

    Здравствуйте! У меня 2 главных вопроса:

    1. Как во всём (оч.большом) тексте заменить все цифры на надстрочные знаки?

    2. Как избавиться от пробелов в конце страниц, если эти пробелы никак не отражаются при знаками табуляции? Верстаю книгу, надо чтобы все страницы одинаково заканчивались, а там где нескольких строк не хватает в конце, а где нормально, до номера страницы текст идёт.

    Просмотрела форум, не нашла ответа, помогите, пожалуйста!!!

  177. Лера
    31.01.2016 в 07:15 | #177

    PS Простите мне грамматические ошибки)

  178. Тони
    21.04.2018 в 13:11 | #178

    По поводу формулы поиска строки, начинающейся с открытой круглой скобки и закрытия этой строки закрывающейся скобкой, от Андрея (от 01.09.2014 в 04:34)

    Указанная им (вами) формула поиска «([(])() ().^13» и замены «\1\2 \3.)^p» в таком виде не работает (Word 2016, MacOS)

    Но, работает вот так:

    Поиск — ([\(]*)(.)^13

    Замена (закр. скобка после точки) — \1\2)^13

    Замена (закр. скобка до точки) — \1)\2^13

  179. Ната
    14.06.2018 в 16:49 | #179

    Нашла в техподдержке майкрософт как заменить европейский формат дат на американский и наоборот.

    Найти: ([0-9]{1,2}) () ([0-9]{4})

    Заменить: \2 \1, \3

    но почему-то в документе текста выделяет больше, чем надо. Может целые абзацы выделить и при это в начале будут стоять 2 цифры и в конце 4 цифры, но между ними может быть поллиста((

    Сначала связывала это с включенными Track Changes, выключила, но ошибка осталась, потом почистила формат и вроде как работает, но что делать, чтобы не надо было чистить формат, т.к. теряется вся суть данного поиска и замены.

    Помогите, пожалуйста)

  180. Владимир
    18.04.2019 в 19:18 | #180

    Возможно ли увеличить количество символов в поле поиска/ замены? У меня помещается 255 символов в строку. А фрагменты мне нужны больше. 300-350. Есть где то ини файлик с параметрами?

  181. Аслан
    02.07.2021 в 19:14 | #181

    Есть вопрос: Хочу оставить один ответ удалив остальные не нужные ответы. Файл объёмом на 150 страниц.

    Вот пример как хочу сделать с этого:

    УЧЕТ РАСХОДА TOBAPOB НА ОКАЗАНИЕ ПЕРВОЙ

    МЕДИЦИНСКОЙ ПОМОЩИ ВЕДЕТСЯ В

    А) журнале учета фармацевтических товаров, израсходованных на оказание первой медицинской помощи

    Б) массовой книге

    В) инвентарной книге

    Г) рецептурном журнале

    На это:

    УЧЕТ РАСХОДА TOBAPOB НА ОКАЗАНИЕ ПЕРВОЙ

    МЕДИЦИНСКОЙ ПОМОЩИ ВЕДЕТСЯ В

    А) журнале учета фармацевтических товаров, израсходованных на оказание первой медицинской помощи

    Скажите пожалуйста как это можно сделать быстро

  182. Мир между нами
    22.09.2021 в 07:15 | #182

    Я хотел убрат с электронной книги все слова в скобках со скобками.(слова в разных скобках разные)

    Как это сделать за одну "замену".

    Заоранее спасибо.

Оставьте комментарий!

(обязательно)

^ Наверх