Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Word Нарезать документ на несколько https://www.cyberforum.ru/ vba/ thread1416804.html
Ребят, подскажите пожалуйста, есть вордовский документ, мне его нужно нарезать по два листа и сохранить в той же папке, как это можно сделать? К сожалению очень мало примеров именно по ворду, поэтому...
Нужно перевести код программы с Pascal (игра в карты) VBA
Код программы на Pascal: uses crt; const kol:array of string= ('6п','7п','8п','9п','10п','Bп','Дп','Кп','Тп', '6т','7т','8т','9т','10т','Bт','Дт','Кт','Тт', ...
Как сохранить данные в файл? VBA
подскажите как в VBA код вставить данные, номер 00124124 Лицензия 1025151 (допустим) и после включения макроса считать данные с кода и сохранить их в txt на рабочий стол?
VBA Вычислить математическое ожидание Вычислить математическое ожидание M=\frac{1}{n}\sum_{n}^{i=1}{x}_{i}, и средний модуль отклонений m=\frac{1}{n}\sum_{n}^{i=1}\left|{x}_{i}-M \right| . Выборка X = (x1, x2,… , xn) задана. Исходные... https://www.cyberforum.ru/ vba/ thread1416406.html
VBA Мультитекст в Datagrid https://www.cyberforum.ru/ vba/ thread1416188.html
Всем привет. данные из SQl, их заливаю в грид, но есть загвоздка, иногда строка в одной ячейке слишком длинная и мой грид уходит за пределы экрана.... есть ли возможность какой то стандартной...
Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)" VBA
Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)". По следующему коду создается стиль "Связанный (абзац и знак)". Где указать, что нет связи между абзацем и...
VBA Не открывается форма: Object required
сабж есть форма с названием Userform1 есть модуль Frm1 в нем процедура Sub Frm1_show() UserForm1.Show End Sub на листе кнопка к которой привязан макрос Frm1_show.
VBA Как свернуть определенную форму из другой формы Как свернуть через подчиненую главную форму. Я не знаю как сворачивать формы кроме DoCmd.Minimize Но насколько я понял это относится к активной форме. Какие ещё есть методы? Добавлено через 21... https://www.cyberforum.ru/ vba/ thread1415700.html
VBA Как программно задать режим всплывающего окна у формы? https://www.cyberforum.ru/ vba/ thread1415583.html
Через Me.PopUp = True возникает ошибка: Для установки данного свойства откройте форму или отчёт в режиме конструктора Как это можно обойти? Есть ли другие методы для этой задачи? Нужно сделать...
VBA Не работает программа (Рекуррентные формулы) Помогите найти ошибку в программе, задача такая:используя формулу для элементов последовательности an, составить программу для вычисления и печати n и an при указанных величинах n ( 25 и 36).... https://www.cyberforum.ru/ vba/ thread1415563.html
12 / 12 / 4
Регистрация: 16.03.2012
Сообщений: 240
0

Заменить слово во всех модулях

09.04.2015, 13:20. Просмотров 2506. Ответов 8
Метки (Все метки)


добрый день,
как с помощью макроса заменить слово ААА на ВВВ во всех модулях?
на сколько я понимаю, он макрос должен состоять из 2х частей: сначала найти, потом заменить.
Нашёл макрос, который находит определенное значение во всех модулях .
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub SearchTextInModules()
    iText$ = "Private Sub"
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
        With iVBComponent.CodeModule
             If .Find(iText$, 1, 1, .CountOfLines, 1) = True Then _
             
             MsgBox "Ìîäóëü " & iVBComponent.Name & " ñîäåðæèò èñêîìûé òåêñò", , ""
        End With
    Next
End Sub
Но не могу найти макрос, который дальше заменить все найденное.
Помогите, пожалуйста, есть ли у кого-нибудь "вторая" нужная половина или м.б. сам макрос целиком

Вернуться к обсуждению:
Заменить слово во всех модулях
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2015, 13:20
Готовые ответы и решения:

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

Как объявить переменную, доступную во всех модулях?
К примеру есть три файла: #a.py import main def aDef(): main.q = q+5 #b.py

Как правильно сделать декларацию класса видимой во всём проекте и всех его модулях?
Здравствуйте. Имеется класс декларированный в одном модуле (файле), а нужно использовать его...

Найти самое короткое слово, начинающееся с буквы "А", и заменить это слово на первое слово строки
Строка символов. Надо найти кратчайший слово начинающееся с буквы "А" и надо заменить это слово на...

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