Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 18.12.2018
Сообщений: 2
1
Word

Прошу советов по макросу

26.12.2018, 13:58. Показов 470. Ответов 1
Метки нет (Все метки)

Есть документ в ворде состоящий из таблиц.
Все таблицы пронумерованы, и имеют одинаковый заготовок.
Пытаюсь сделать макрос, чтобы менять их нумерацию.

Так как имею низкий опыт в VBA прошу помощи:

1. Найти заголовок Карта
2. Перейти на три поля вправо
3. Заменить содержимое ячейки на примере (i+1)
4. Перейти к следующей таблице
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2018, 13:58
Ответы с готовыми решениями:

Вопросы по макросу
Здравствуйте, уважаемые коллеги! :-) Что-то я никак не могу понять каким образом построен макрос,...

Обращение к макросу или кнопке
Здравствуйте! имеется макрос выполняющий расчет, и выводит промежуточные и конечный результаты...

Список листов к готовому макросу
День добрый! Есть форма, которая вводит данные в первую пустую строку в заданном листе (Sheet2). ...

Требуется написать условия к макросу
Всем добрый день. нужен человек который за не большое вознаграждение напишет не большое условия к...

1
38 / 36 / 8
Регистрация: 15.03.2018
Сообщений: 88
27.12.2018, 14:02 2
Цитата Сообщение от jeffo2k Посмотреть сообщение
1. Найти заголовок Карта
2. Перейти на три поля вправо
3. Заменить содержимое ячейки на примере (i+1)
4. Перейти к следующей таблице
Visual Basic
1
2
3
4
5
6
7
8
9
Dim oTable As Table
Dim oCell As Cell
For Each oTable In ActiveDocument.Tables 'Перебираем таблицы
        For Each oCell In oTable.Range.Cells 'Перебираем ячейки для поиска слова "Карта"
            If (InStr(oCell, "Карта")) > 0 Then
                oTable.Cell(oCell.Row.Index, oCell.Column.Index + 3).Range = "НОВОЕ Значение" 'Вставка нового значения на 3 ячейки правее
            End If
        Next oCell
Next oTable
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2018, 14:02

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как сделать UNDO макросу?
Всем доброго времени суток. Люди подскажите как отменить вот такой макрос Sub Zelen() With...

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

Прошу советов и помощи
В качестве общественной нагрузки занимаюсь развитием сайта www.equihelp.org (организация спасает...

Недорогой компьютер. Прошу советов
Приветствую. Собираю недорогой компьютер. Прикинул вот так: Материнская плата ASUS B75M-PLUS - 3...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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