Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA в Word, это магия? / 5 сообщений из 5, страница 1 из 1
27.08.2021, 21:57
    #40093566
vasjaspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word, это магия?
Нужна помощь. Очень нужна. Периодически попадают в руки таблицы, аналогичные примеру, как Таблица № 1. Необходим макрос, который сможет магическим образом окрасить фамилию жирным, как в Таблице № 2. В документе может находиться таблица от 15 до 1000 строк. Караул, братья и сестры, помогите... очень прошу.
...
Рейтинг: 0 / 0
29.08.2021, 19:10
    #40093695
LeCrunch
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word, это магия?
vasjaspb,
Можно и стандартными средствами "Поиска и замены" MS Word, пример в статье:
http://artefact.lib.ru/design/text_khozyainov.shtml
...
Рейтинг: 0 / 0
29.08.2021, 20:35
    #40093701
vasjaspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word, это магия?
LeCrunch, благодарю, но необходим макрос.
...
Рейтинг: 0 / 0
01.09.2021, 20:37
    #40094604
vasjaspb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word, это магия?
Решение подсказали ученые друзья, дай Бог им здоровья и долгих лет жизни. И Раз уж тема создана, вот решение, может кому пригодится...

Sub Макрос()
Lastrow = ActiveDocument.Tables(1).Rows.Count
For i = 1 To Lastrow
Selection.Font.Bold = wdToggle
Selection.MoveDown unit:=wdLine, Count:=1
Next i
End Sub
...
Рейтинг: 0 / 0
04.09.2021, 22:56
    #40095304
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA в Word, это магия?
vasjaspb
может кому пригодится...
лучше все же не использовать это как образец, макрос крайне странный
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA в Word, это магия? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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