Макрос поиска и замены букв в MS Word с верхним подчеркиванием

@salvafion · Регистрация: 16.06.2009

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

мне нужно позарез написать мкрос чтобы он искал во всем документе жирные слова или буквы и заменял их на обычные буквы но уже с черточкой вверху...как сделать их обычными я знаю)))...как сделать так что бы черта поставилась на нужное место..нужно это сделать в word... ну и для power point такой не помешает

@salvafion · 06.09.2009, 20:56 **[ТС]**

да я про то если например такое выражение дано Fdr то надо поставить над F и над r

Добавлено через 1 минуту
причем без пробелов

@Busine2009 · 06.09.2009, 21:02

salvafion

Нет, не знаю.
Я вообще тебе и этого не написал бы, если бы код не выложили.

@salvafion · 06.09.2009, 21:08 **[ТС]**

Busine2009, ну ясн..ну на этом огромное спасибо....ща наверное сяду со справочником и буду штудтровать VBA)))

@Busine2009 · 06.09.2009, 21:10

Это не мне спасибо, а Abu

@salvafion · 06.09.2009, 21:15 **[ТС]**

ну ей канешн тоже)))

@salvafion · 07.09.2009, 16:37 **[ТС]**

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

По поводу заголовков: содержание есть в этих методичках? Если нет, то как выравниваются заголовки: по левому краю, по ширине или по центру, да и размер шрифта какой, то есть чем заголовки отличаются от векторов?

заголовки имеют формат Зоголовка

@Busine2009 · 07.09.2009, 17:22

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub LineAboveBoldText()
  Selection.HomeKey wdStory, wdMove
  With Selection.Find
    .Font.Bold = True
    .Text = ""
    While .Execute
      If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText Then 
        Selection.Font.Bold = False
        ActiveDocument.Fields.Add Selection.Range, _
        wdFieldFormula, "\x\to(" & Selection.Text & ")",
        ActiveDocument.Fields(ActiveDocument.Fields.Count). _
        Code.Text = Trim(ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text) 
      End If
    Wend
    .ClearFormatting: .Execute 
  End With
End Sub

Перед применением макроса сделайте копию методички, потому-то всё это нездоровая штука.

@salvafion · 07.09.2009, 17:29 **[ТС]**

он не работает(((выдает красные строки

@Busine2009 · 07.09.2009, 17:35

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LineAboveBoldText()
  Selection.HomeKey wdStory, wdMove
  With Selection.Find
    .Font.Bold = True
    .Text = ""
    While .Execute
      If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText Then
        Selection.Font.Bold = False
        ActiveDocument.Fields.Add Selection.Range, wdFieldFormula, "\x\to(" & Selection.Text & ")", False
        ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text = Trim(ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text)
      End If
    Wend
    .ClearFormatting: .Execute
  End With
End Sub

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

@salvafion · 07.09.2009, 17:57 **[ТС]**

слушай)))еще одно...нужно поставить проверку если слово больше 3 букв то не надо в нем ни чего делать))))и еще... когда жирные стоят в одном слове через букву там все таки ставится пробел(

Добавлено через 14 минут
и еще...а где здесь опереатор который отвечает именно за поиск слов а не букв?

@Busine2009 · 07.09.2009, 18:28

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LineAboveBoldText()
  Selection.HomeKey wdStory, wdMove
  With Selection.Find
    .Font.Bold = True
    .Text = ""
    While .Execute
      If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText And Selection.Range.Characters.Count < 4 Then
        Selection.Font.Bold = False
        ActiveDocument.Fields.Add Selection.Range, wdFieldFormula, "\x\to(" & Selection.Text & ")", False
        ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text = Trim(ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text)
      End If
    Wend
    .ClearFormatting: .Execute
  End With
End Sub

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

Не знаю, что делать.

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

Здесь именно оператор, который просматривает не слова, а буквы. Вот, что ищет жирный текст:

Visual Basic
1
2
3
4
  With Selection.Find
    .Font.Bold = True
    .Text = ""
    While .Execute

@salvafion · 07.09.2009, 18:33 **[ТС]**

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

@Busine2009 · 07.09.2009, 18:46

Честно говоря, я вообще не понимаю, что это за поле, и какое его предназначение.
Я не знаю, как вручную вставить это поле, т.к. нет параметра "to":

Вставка - Поле - Категории (Формулы) - Eq
Коды полей - Параметры - X() - Добавить
В скобках напиши слово - Ок - Ок

Как видишь параметра "to" нет, его надо вручную вписывать.

@salvafion · 07.09.2009, 18:52 **[ТС]**

ого а в 2007 можно с помощью этого поставит над буквой черту и еще пробелов по бокам не будет

Visual Basic
1
2
Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionAcc).Acc _
        .Char = 773

это я нашел на вкладке вставка формулыи в конв=структоре есть аткая фигня как диакритические знаки...через них мож попробовать можно

@Busine2009 · 07.09.2009, 19:58

Есть заготовка - макрос для Word 2007. Одна проблема - это поля формулы. Я в 2007 не работал, а с формулами вообще никогда не работал, как убрать то, что вокруг формулы - не знаю. Может ты знаешь?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub LineAboveBoldText()
  Selection.HomeKey wdStory, wdMove
  With Selection.Find
    .Font.Bold = True
    .Text = ""
    While .Execute
      If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText And Selection.Range.Characters.Count < 4 Then
        Selection.Font.Bold = False
Selection.Cut
WordBasic.EquationEdit
Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionAcc).Acc.Char = 773
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
      End If
    Wend
    .ClearFormatting: .Execute
  End With
End Sub

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

Также этот документ не предназначен для Word 2003. Можешь сам посмотреть, что происходит с документом.
Вывод: Word 2007 имеет отличия от Word 2003 в положительную сторону.

@salvafion · 07.09.2009, 20:10 **[ТС]**

это не коректно работает...оно в разных офисах по разному помоему будет делаться....нужно ту сдлать..он нормально работает....ну вот осталось только сделать чтоб он с разными интерфейсами из под ворда работал...чтоб и Equation тоже ставился...но это ваще как то помоему муторно....да и у меня этого Equation нет

Добавлено через 4 минуты
тоесть нужно чтоб он еще и текст из этой equation формулы сканил

@Busine2009 · 07.09.2009, 20:16

Я так понимаю, чтобы в Word 2003 отражалось нормально, нужно какое-то дополнительное программное обеспечение. Типа пакета совместимости. Посмотри в интернете, может есть такая штуковина.

А для распечатки методичек вполне подходит макрос.

К тому же можно заPDFить и все будет нормально и выглядит по-человечески, не то, что в Word 2003, ерунда какая-то.

И первой строчкой в коде сделай вот эту:

Code
1
Options.PasteSmartCutPaste = False

@hijacker · 12.05.2010, 21:54

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

@Busine2009 · 12.05.2010, 21:59

Таблица - Сортировка.

@hijacker · 12.05.2010, 22:24

а если 2007 ворд?

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194

	Макрос поиска и замены букв в MS Word с верхним подчеркиванием 04.09.2009, 20:31. Показов 25348. Ответов 43 Метки нет (Все метки) мне нужно позарез написать мкрос чтобы он искал во всем документе жирные слова или буквы и заменял их на обычные буквы но уже с черточкой вверху...как сделать их обычными я знаю)))...как сделать так что бы черта поставилась на нужное место..нужно это сделать в word... ну и для power point такой не помешает 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	06.09.2009, 20:56 [ТС]
	да я про то если например такое выражение дано Fdr то надо поставить над F и над r Добавлено через 1 минуту причем без пробелов 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.09.2009, 21:02
	salvafion Нет, не знаю. Я вообще тебе и этого не написал бы, если бы код не выложили. 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	06.09.2009, 21:08 [ТС]
	Busine2009, ну ясн..ну на этом огромное спасибо....ща наверное сяду со справочником и буду штудтровать VBA))) 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.09.2009, 21:10
	Это не мне спасибо, а Abu 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	06.09.2009, 21:15 [ТС]
	ну ей канешн тоже))) 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	07.09.2009, 17:29 [ТС]
	он не работает(((выдает красные строки 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	07.09.2009, 17:57 [ТС]
	слушай)))еще одно...нужно поставить проверку если слово больше 3 букв то не надо в нем ни чего делать))))и еще... когда жирные стоят в одном слове через букву там все таки ставится пробел( Добавлено через 14 минут и еще...а где здесь опереатор который отвечает именно за поиск слов а не букв? 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	07.09.2009, 18:33 [ТС]
	а вот можешь описать как эти формулы вставляются в ручную подробнее.?тоесть без макроса вообще 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	07.09.2009, 18:46
	Честно говоря, я вообще не понимаю, что это за поле, и какое его предназначение. Я не знаю, как вручную вставить это поле, т.к. нет параметра "to": Вставка - Поле - Категории (Формулы) - Eq Коды полей - Параметры - X() - Добавить В скобках напиши слово - Ок - Ок Как видишь параметра "to" нет, его надо вручную вписывать. 0

@salvafion 10 / 10 / 1 Регистрация: 16.06.2009 Сообщений: 194
	07.09.2009, 20:10 [ТС]
	это не коректно работает...оно в разных офисах по разному помоему будет делаться....нужно ту сдлать..он нормально работает....ну вот осталось только сделать чтоб он с разными интерфейсами из под ворда работал...чтоб и Equation тоже ставился...но это ваще как то помоему муторно....да и у меня этого Equation нет Добавлено через 4 минуты тоесть нужно чтоб он еще и текст из этой equation формулы сканил 0

@hijacker 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 4
	12.05.2010, 21:54
	Добрый день. Меня друг попросил помочь, ему надо отсортировать все слова в документе по алфавиту... Есть ли макрос для этого? Помогите пожалуйста. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	12.05.2010, 21:59
	Таблица - Сортировка. 0

@hijacker 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 4
	12.05.2010, 22:24
	а если 2007 ворд? 0