Форум программистов, компьютерный форум, киберфорум
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
09.04.2015, 14:47  [ТС] 0

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

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

Ответ


Аксима, большое спасибо!
Стандарная замена "из меню" не подходит из-за того, что макрос будет запускать при открытии книги и закрытии.
Почему он работает только именно "Private Sub" на "Public Sub"?
например, я пытаюсь поменять "А1" на "А2" во вовсех модулях, но замена не идет. А с "Private Sub" на "Public Sub"все идет нормально...?
Вот конкретно не работает:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub SearchTextInModules()
    Dim i As Long, s As String, vbc As Object
    For Each vbc In ThisWorkbook.VBProject.VBComponents
        With vbc
            For i = 1 To .CodeModule.CountOfLines
                s = .CodeModule.Lines(i, 1)
                If InStr(s, "R2C1:R7500C1") = 1 Then
                    .CodeModule.ReplaceLine i, Replace(s, "R2C1:R7500C1", "R2C1:R9500C1", 1, 1)
                End If
            Next i
        End With
    Next vbc
End Sub


Вернуться к обсуждению:
Заменить слово во всех модулях
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2015, 14:47

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

В тексте заменить слово А(любое слово) на слово В(любое слово). А и В разной длинны
Не могу сообразить как написать программу: Пользователь вводит текст Необходимо замениь слово...

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

Заменить заданное слово в тексте, находящемся в заданном файле, на другое слово.
Заменить заданное слово в тексте, находящемся в заданном файле, на другое слово.

Дан текст, а также 2 слова. Заменить встречающееся в тексте слово 1 на слово 2
Подскажите пожалуйста, как написать программу в visual basic 6.0, если: Дан текст, а также 2...

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