Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Вывод информации из БД https://www.cyberforum.ru/ vba/ thread1617689.html
При загрузке формы пытаюсь вывести информацию из БД в форму. Но почему-то выводит только последнюю запись в таблице.:cry: Private Sub Form_Load() Set rs = CurrentDb.OpenRecordset("select * from patient_exams;") rs.MoveFirst Do While Not rs.EOF id = rs! date_obsled = rs! type_exam = rs! doctor_examed = rs!
VBA Кроссворд
Это программа в PowerPoint, через нее работает кроссворд, но при нажатии забинженой клавиши проверить все стирается, кроме буквы е. В архиве находиться сама презентация что бы вы поняли, что к чему. '2 по горизонтали "порт" If (TextBox3.Text = "п") And (TextBox4.Text = "о") And (TextBox5.Text = "р") And (TextBox6.Text = "т") Then TextBox3.BackColor = RGB(0, 255, 255)
VBA Поиск одинаковых значений в 2 таблицах https://www.cyberforum.ru/ vba/ thread1617535.html
Здравствуйте! Есть 2 таблицы на 2 листах. 1 условие: Необходимо найти одинаковые значения по столбцам A (на 2 листах) 2 условие: если на 1 листе B(i)>= B(i) на 2 листе, то закрасить эти строки в один цвет ( можно любое иное действие, сообщающие о выполнении 2 условий). Заранее благодарен!
VBA Переход с учетом TabIndex https://www.cyberforum.ru/ vba/ thread1617533.html
Добрый день! Прошу помощи Суть желания: имеется TextBox в который вносятся данные при нажатии Enter данные записываются в ListBox, но при этом TextBox теряет фокус. Вопрос как вернуть его программно обратно?
VBA Поиск значения в одном и копирование в другой файл
Всем добрый день. Есть такая задачка: Есть 2 файла: - в первом > 255 полей и > 800000 строк - во втором (активном) ококло 1000 строк и около 30 столбцов Надо написать макрос, который бы брал значение ячейки 2 столбца из первого файла и сравнивал бы его с значеинем(по входимости(использовать Like)) ячейки столбца найденого по названию столбца во втором файле если совпало то копируем...
VBA Выскакивает ошибка run-time error 2105 https://www.cyberforum.ru/ vba/ thread1617501.html
Option Compare Database 'Option Explicit Function otcet8() Dim mes As String mes = InputBox("Введите месяц для отчета ХХ") DoCmd.OpenForm "цеха 7-8", acFormDS, acEdit, acHidden DoCmd.GoToRecord , "", acFirst a = 0 i = 0 Do While a = 0
VBA Копирование из ворда в ворд макрос https://www.cyberforum.ru/ vba/ thread1617427.html
Здравствуйте. Создается макрос который должен выполняться из Экселя. Он создает новый документ Ворд, потом открывает существующий документ с данными, копирует методом: tec_doc.Range.Copy tec_doc.Close False и вставляет в первый osn_doc.Range.Paste Если нужно собрать данные из нескольких документов в один, то он каждый раз затирает старое и вставляет новый рэндж. Помогите пожалуйста,...
VBA Объединить ячейки по цвету(параметру)
Ребят,столкнулся с проблемой. Нужно объединить текст ячеек которые одного цвета,в одну.
VBA Присвоить значение "10" элементам большим "120" и меньшим"150" масива Р(10,20) Простите за дублирование, но мой прошлый вопрос не увенчался большим успехом... Присвоить значение "10" элементам большим "120" и меньшим"150" масива Р(10,20) и подсчитать сумму для каждого четного ряда Прошу, помогите, всю жизнь на С++, а тут бац и VBA не понимаю ничего Нужно очень срочно https://www.cyberforum.ru/ vba/ thread1617208.html VBA Массив https://www.cyberforum.ru/ vba/ thread1617169.html
Помогите найти ошибку Условие - Во Вложении, Блок - схема Во Вложении, Ошибка - Во Вложении Программа Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub
VBA Как работать с методом GetOpenFileName?
Ребят, помогите написать блок. Например, надо открыть несколько файлов из "d:\ТЕМП\фото" формата jpg как быть? с чего начать? SOS!
VBA Run-time error 2105 не возможен переход к указанной записи, Access Option Compare Database 'Option Explicit Function otcet8() Dim mes As String mes = InputBox("Ââåäèòå ìåñÿö äëÿ îò÷åòà ÕÕ") DoCmd.OpenForm "öåõà 7-8", acFormDS, acEdit, acHidden DoCmd.GoToRecord , "", acFirst a = 0 i = 0 Do While a = 0 https://www.cyberforum.ru/ vba/ thread1616642.html
4134 / 2238 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
19.12.2015, 09:30 0

"работа с выделением Selection объекта word.Bookmarks и .shapes через excel" - VBA - Ответ 8511573

19.12.2015, 09:30. Показов 3490. Ответов 3
Метки (Все метки)

Ответ

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim objShape As Shape
For Each objShape In doc.Shapes
    If objShape.Type = msoTextBox Then
       With objShape.TextFrame.TextRange.Find
            .Text = "123"
            .Replacement.Text = "3333"
            .Execute Replace:=2 'wdReplaceAll
       End With
    End If
Next
Если же в документе нет других об'ектов, кроме надписей и нас не интересует сохранение исходного форматирования, то :

Visual Basic
1
2
3
4
5
6
Dim objShape As Shape
For Each objShape In doc.Shapes
    With objShape.TextFrame.TextRange
         .Text = Replace(.Text, "123", "3333")
    End With
Next
Добавлено через 9 часов 9 минут
P.S. При использовании позднего связывания - As Shape нужно заменить на As Object 'Variant

Вернуться к обсуждению:
"работа с выделением Selection объекта word.Bookmarks и .shapes через excel" VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2015, 09:30
Готовые ответы и решения:

Работа метода Word.Selection.Find при поиске в документе Word
Дорого времени суток! никак не могу разобраться в механизме работы range.find Запускаю: ...

Как ускорить замену текста в Shapes через Microsoft.Office.Interrop.Word
Добрый день! Есть способ замены текста в фигурах с надписями документа Word: private void...

Как работать с объектом selection ячейки таблицы word из приложения Excel в ВБА
Как обращаться к объекту selection ячейки таблицы word из приложения Excel, так как при обычном...

Работа в Word через WBA в Excel
Нужна простенька программа, которая будет открывать документ word вставлять туда данные из excel и...

3
19.12.2015, 09:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2015, 09:30
Помогаю со студенческими работами здесь

Работа с word через excel (передача строки)
Здравствуйте, возникла следующая проблемка, а точнее вопрос: Есть файл excel, который при...

Работа с Word/Excel через Ole/иные способы
Добрый день, товарищи. Да, много читал всего интересного в Интернет по этому вопросу - и тут, и...

Activeqt+word+bookmarks
Необходимо вставить данные из кода программы в закладки в шаблоне документа, не могу информацию как...

Word 2016 Bookmarks ошибка com
И снова здравствуйте. Есть файл .docx, в нем есть текстовые поля, они же Bookmarks. Нужно писать...

Word - Как вывести закладки (Bookmarks) в ComboBox
Подскажите как сделать возможным вывод всех Закладок (Bookmarks) в ComboBox.

Вставка закладок (Bookmarks) с текстом в закладке| MS Word
Здравствуйте Коллеги! Прошу помощи в следующем вопросе. Написал код вставки закладок, закладки...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru