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

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

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

Надо после каждой "Таблицы №" пронумеровать все по порядку
...
Рейтинг: 0 / 0
30.05.2014, 10:37
    #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
30.05.2014, 11:22
    #38656805
Kluu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с написанием макроса
запускаю данный макрос( с добавлением Sub и End Sub), но в документе почему то ничего не происходит(
...
Рейтинг: 0 / 0
30.05.2014, 13:22
    #38656970
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с написанием макроса
возможно, вы создаете макрос не в документе, а в Normal.Dot - обратите на это внимание
...
Рейтинг: 0 / 0
30.05.2014, 13:23
    #38656974
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с написанием макроса
Можно поменять ThisDocument на ActiveDocument - тогда будет работать с активным документом
...
Рейтинг: 0 / 0
30.05.2014, 13:54
    #38657012
Kluu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с написанием макроса
Shocker.Pro, Спасибо, так все отлично работает! Еще такой ньюанс, если надо начать нумерацию не с 1 , а например с 543?
...
Рейтинг: 0 / 0
30.05.2014, 14:13
    #38657052
Kluu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с написанием макроса
Все, сделал)
Еще раз спасибо!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с написанием макроса / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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