подскажите правильный ответ

@dir19 · Регистрация: 22.01.2016

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

сижу изучаю VBA задач особых нет просто учусь. Возник вопрос создал я форму для ввода слова, это слово надо вставить в шаблон. в шаблоне по тексту это слово надо вставит в 3х и более местах, но у меня пока получилось только в одно место с помощью закладки. Так вот сижу ищу команду для поиска места вставки этого слова. Повторюсь я только учусь и в разы хуже вас разбираюсь ))) Помогите советом как ковырнуть

Добавлено через 45 секунд

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cb_cancel_Click()
    tb_name.Value = ""
    UserForm.Hide
End Sub
 
Private Sub cb_ok_Click()
    Dim odoc As Document
    Set odoc = Application.Documents.Add("C:\Users\admin\Desktop\test\test.dot")
    odoc.Bookmarks("b_name").Range.Text = tb_name.Value
    UserForm.Hide
    odoc.Activate
    tb_name.Value = ""
    
End Sub

shanemac51 · 26.01.2016, 19:43

если закладками --вставьте еще 2-3-4-99 закладок

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cb_cancel_Click()
tb_name.Value = ""
UserForm.Hide
End Sub
 
Private Sub cb_ok_Click()
Dim odoc As Document
Set odoc = Application.Documents.Add("C:\Users\admin\Desktop\test\test.dot")
odoc.Bookmarks("b_name").Range.Text = tb_name.Value
odoc.Bookmarks("b_name2").Range.Text = tb_name.Value
odoc.Bookmarks("b_name3").Range.Text = tb_name.Value
''''''''''''''''''''''
 
UserForm.Hide
odoc.Activate
tb_name.Value = ""
 
End Sub

@dir19 · 27.01.2016, 08:09 **[ТС]**

да это понятно конечно, спасибо огромное!!!

shanemac51 · 27.01.2016, 08:46

или одну закладку и 99 ссылок на нее полем REF

@dir19 · 27.01.2016, 09:19 **[ТС]**

а общей команды нет что то типа найти "b_name" и заменить на "tb_name"? может каккой-нибудь "found ("b_name").range.text=". Извиняюсь!! за глупости

Добавлено через 3 минуты
я просто хочу убрать из программки закладки. так сказать работа с текстом напрямую без тыкания куда и что

@Казанский · 27.01.2016, 10:00

dir19, есть такая команда, поиск-замена - заменить все. В этом случае места для замены не надо помечать закладками, а надо вставлять непосредственно текст, подлежащий замене.
Запишите команду Ctrl+H макрорекордером и подправьте под свои нужды.

@dir19 · 27.01.2016, 10:48 **[ТС]**

спасибо за совет правда у меня пока не получается. макрос при замене закладки убивает её и получается что ref поле не находит закладку

Добавлено через 2 минуты
Казанский, попробуем спасибо за совет как сам недодумался

Добавлено через 40 минут
Казанский, shanemac51, благодарю вас за подсказки все удалось!!! буду продолжать обучение.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub cb_cancel_Click()
    tb_name.Value = ""
    UserForm.Hide
End Sub
 
Private Sub cb_ok_Click()
    Dim odoc As Document
    Set odoc = Application.Documents.Add("C:\Users\admin\Desktop\test\test.dot")
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "b_name"
        .Replacement.Text = tb_name.Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'odoc.Bookmarks("b_name").Range.Text = tb_name.Value
    UserForm.Hide
    odoc.Activate
    tb_name.Value = ""
    
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@dir19 0 / 0 / 0 Регистрация: 22.01.2016 Сообщений: 4
	27.01.2016, 08:09 [ТС]
	да это понятно конечно, спасибо огромное!!! 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,937 Записей в блоге: 4
	27.01.2016, 08:46
	или одну закладку и 99 ссылок на нее полем REF 0

@dir19 0 / 0 / 0 Регистрация: 22.01.2016 Сообщений: 4
	27.01.2016, 09:19 [ТС]
	а общей команды нет что то типа найти "b_name" и заменить на "tb_name"? может каккой-нибудь "found ("b_name").range.text=". Извиняюсь!! за глупости Добавлено через 3 минуты я просто хочу убрать из программки закладки. так сказать работа с текстом напрямую без тыкания куда и что 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	27.01.2016, 10:00
	Сообщение было отмечено dir19 как решение Решение dir19, есть такая команда, поиск-замена - заменить все. В этом случае места для замены не надо помечать закладками, а надо вставлять непосредственно текст, подлежащий замене. Запишите команду Ctrl+H макрорекордером и подправьте под свои нужды. 1

подскажите правильный ответ

Решение