Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word Table VBA / 9 сообщений из 9, страница 1 из 1
21.11.2013, 15:30
    #38473073
kar-karich
kar-karich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Как изменить через VBA размер шрифта сразу во всех ячейках таблицы одной-двумя командами?
варианты типа
Код: vbnet
1.
2.
document.Tables(11).Select
Selection.Range.Font.Size = 7


или
Код: vbnet
1.
document.Tables(11).Range.Font = 7


Не сработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 15:43
    #38473113
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
а тремя нельзя?
For Each + Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 15:49
    #38473131
kar-karich
kar-karich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Shocker.Proа тремя нельзя?
For Each + Next
каким образом? пробежаться по всем ячейкам вордовской таблицы и отдельно в каждой поменять? ну так сколько итераций, столько и команд будет. весь смысл теряется

Суть в том, чтобы эта операция по смене размера шрифта занимала предельно мало времени, потому что для 20 тысяч ячеек задание размера шрифта и выравнивания отдельно чёт как-то уныло долго работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 15:55
    #38473147
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Создать заранее стиль для таблицы и применить автоформат.
Таблица - Формат таблиц - Автоформат ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 15:57
    #38473150
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
kar-karichпробежаться по всем ячейкам вордовской таблицынет, по таблицам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 15:59
    #38473152
kar-karich
kar-karich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Shocker.Prokar-karichпробежаться по всем ячейкам вордовской таблицынет, по таблицам
ну так у одной как за раз изменить то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 16:03
    #38473163
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
kar-karich,

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

Как насчет поиск-замена в выделении (это можно и без макроса)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2013, 16:06
    #38473171
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Тока я не понял
Код: vbnet
1.
ThisDocument.Tables(1).Range.Font.Size = 7

у меня эта конструкция работает, в чем проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2013, 08:41
    #38473743
kar-karich
kar-karich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word Table VBA
Shocker.ProТока я не понял
Код: vbnet
1.
ThisDocument.Tables(1).Range.Font.Size = 7

у меня эта конструкция работает, в чем проблема?
всем спасибо, у меня тоже заработало. тупанул со свойство Size, точнее забыл про него напрочь)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word Table VBA / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 427ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2174389]:
 0ms
get settings:
 11ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 27ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 304ms
total:  427ms
x
x
Закрыть


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