Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
lapin9126
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 154
1

MS Word(2010) Заменить текст в кавычках

21.05.2017, 18:59. Просмотров 468. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите с макросом замены текста заключенного в " " на все заглавные. Текст может быть как кириллицей так и на латиницей.
Пробовал вот так, но не получается.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Sub test()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .AllCaps = True
    End With
With ActiveDocument.Content.Find
        .text = "(^0034)(*)(^0034)"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Replacement.text = "\1\2\3"
        .Execute Replace:=wdReplaceAll
    End With
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2017, 18:59
Ответы с готовыми решениями:

Как получить текст из документа Word в кавычках и с восклицательным знаком
Друзья, подскажите пожалуйста, как получить текст второй строки с помощью такого макроса: Sub...

Как получить текст нажатой кнопки в word 2010?
Доброго дня! Ситуация следующая: несколько кнопок вызывает один макрос. макрос считывает текст...

Нужно заменить все вхождения в тексте каждого пункта списка (word 2007 - 2010)
Есть список слов. У каждого свой номер в списке. Нужно заменить в тексте все слова из этого списка...

Word. Заменить текст на ссылку
Имеется следующий код: Dim link As String Dim tip As String 'RegExp Init Dim selText As...

Word: заменить текст в названиях на ссылки
Здравствуйте! Можно ли заменить текст на поля SEQ в документе применительно к названиям таблиц и...

1
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 164
12.06.2017, 12:06 2
проверяйте
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub aaaa__test()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.AllCaps = True
    With Selection.Find
        .Text = Chr(34) & "*" & Chr(34)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2017, 12:06

Таблицы из Word 2010 в Excel 2010
Есть несколько вордовских файлов, которые помимо текста содержат таблицы. Эти таблицы необходимо...

Заменить символ в формулах Word 2010
Здравствуйте, возникла такая необходимость, но почему-то именно в формулах столкнулся с этим....

Как сделать раскрывающийся текст в MS Word 2010?
Есть текст, части которого делятся на важные и неважные. Цель: все важные оставить, как есть, а все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.