powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с написанием макроса
16 сообщений из 16, страница 1 из 1
помогите с написанием макроса
    #38655987
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, помогите пожалуйста с написанием макроса в ворде.
Есть большой тестовый документ, и нужно после каждого "Таблица№", поставить цифру от 1 и до N(сколько будет таблиц).
Примерно алгоритм понял, как это сделать, но не могу реализовать такую штуку: при нажатии кнопки(бинд какой-нибудь клавиши) в поле вводилось бы число 1, затем при повторном, в поле бы вводилось число 2, и так далее до N.
Подскажите, как создать такой макрос, и записать его на кнопку. Заранее спасибо.
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656165
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А автонумерацией таблиц не пробовали воспользоваться?
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656303
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
там немного по другому...текст с названием чуть выше
хочу через поиск в тексте, и затем заменой, но нужно то, что писал выше
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656353
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ок, допустим.

Под кнопкой что имеется ввиду - кнопка на тулбоксе с привязанным макросом или кнопка на форме или кнопка в документе?
Под полем что имеется ввиду - поле в документе или поле на форме? Если в документе - что за поле, как, кем и когда оно создается и какие признаки имеет? И причем тут "Таблица№", если нужно вставлять в поле?
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656452
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
в тексте перед каждой таблицей есть слово Таблица№....и дальше какой то текст, затем сама таблица и так много раз
Я забиваю в макрос следующие действия, контрл+ф, поиск слова Таблица№, он мне его выделяет, и в поле заменить уже стиот Таблица№1 допустим. Нажимается курсор на это поле, 2 раза бекспейс стирает цифру и пробел, затем не хватает какой то кнопки, с генератором цифр по очереди, чтоб нажал, и ввелась уже цифра 2. И так в цикле.
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656500
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
так что должен сделать макрос? Пройти один раз в цикле весь документ и расставить номера таблиц? Или помогать в процессе набирания текста?
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656606
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пройти весь документ, и расставить номера
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656617
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ок, образец документа выложите
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656639
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Proок, образец документа выложите

Надо после каждого "Таблица №" пронумеровать все таблицы, чтобы было:
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656644
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Proок, образец документа выложите

Надо после каждой "Таблицы №" пронумеровать все по порядку
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656726
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
Dim i As Long
Do
  i = i + 1
Loop While ThisDocument.Range.Find.Execute(Findtext:="Таблица № ", replacewith:="Таблица №" + CStr(i))
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656805
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
запускаю данный макрос( с добавлением Sub и End Sub), но в документе почему то ничего не происходит(
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656970
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
возможно, вы создаете макрос не в документе, а в Normal.Dot - обратите на это внимание
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38656974
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно поменять ThisDocument на ActiveDocument - тогда будет работать с активным документом
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38657012
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, Спасибо, так все отлично работает! Еще такой ньюанс, если надо начать нумерацию не с 1 , а например с 543?
...
Рейтинг: 0 / 0
помогите с написанием макроса
    #38657052
Kluu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все, сделал)
Еще раз спасибо!
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с написанием макроса
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]