VBA (Word) Выделена ли таблица ? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA (Word) Выделена ли таблица ?

10 сообщений из 10, страница 1 из 1

VBA (Word) Выделена ли таблица ?

#39267838

Алексаша

Гость

Здравствуйте.
Есть 2 макроса. Один из них я запускаю если выделен текст вне таблицы другой если выделена таблица. Часто происходит путаница ...
если табл

Код: vbnet

1.
2.
3.
4.
5.
6.

Public Sub &#208;&#238;&#228;&#232;&#242;&#229;&#235;&#252;&#237;&#251;&#233;_&#209;&#242;&#238;&#235;&#225;&#229;&#246;_&#212;&#200;&#206;()
Dim cll As Cell
For Each cll In Selection.Cells
  cll.Range = MakePadeg(cll.Range, 2)
Next
End Sub

если вне таблицы

Код: vbnet

1.
2.
3.

Public Sub &#194;&#232;&#237;&#232;&#242;&#229;&#235;&#252;&#237;&#251;&#233;_&#212;&#200;&#206;()
  Selection.TypeText (MakePadeg(Selection, 4))
End Sub

Вопрос: как определить что выделен столбец таблицы или вся таблица ?
Спасибо ...

...

Рейтинг:

0 / 0

05.07.2016, 11:38

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267868

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Алексашаесли выделен текст вне таблицыАлексашаесли выделена таблицаАлексашавыделен столбец таблицыАлексашався таблица
Так все-таки - какую ситуацию от какой нужно отделить? И что делать, если таблица состоит из одного столбца и он выделен?

...

Рейтинг:

0 / 0

05.07.2016, 12:11

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267887

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

А если выделение захватывает и plain text, и часть (или всю) таблицы?

...

Рейтинг:

0 / 0

05.07.2016, 12:40

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267896

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Ну а вообще у объекта Selection есть свойство Tables и свойство Paragraphs (и ещё хренова гора свойств). И у каждого из них есть свойство Count.

...

Рейтинг:

0 / 0

05.07.2016, 12:47

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267904

Алексаша

Гость

Всем спасибо за отклик.
1) выделение в таблице (столбец целиком или нет вся таблица или нет - не важно ) тогда в цикле обрабатывается все ячейки выделенной таблицы
2) выделен текст вне таблицы

...

Рейтинг:

0 / 0

05.07.2016, 13:02

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267916

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

К какому пункту отнести ситуации
а) в выделении присутствует частично обычный текст, частично таблица
б) выделение захватывает несколько таблиц

...

Рейтинг:

0 / 0

05.07.2016, 13:14

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39267967

Алексаша

Гость

Shocker.Pro,

Вы скорее правы, но мне помогло Selection.Tables если больше 0 значит табл иначе вне таблицы и перебор в цикле для того чтобы поменят падеж не нужен. Пока и так радует :)

...

Рейтинг:

0 / 0

05.07.2016, 14:09

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39268109

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Алексашамне помогло Selection.Tables если больше 0 значит табл иначе вне таблицы
Ну это до поры... я бы предложил таки делать корректно, что-то типа:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

set sel = selection
for each tab in sel.tables
    call fn_tab(tab)
next
for each par in sel.paragraphs
    if par.range.tables.count = 0 then
        call fn_txt(par)
    end if
next

...

Рейтинг:

0 / 0

05.07.2016, 16:10

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39268111

Сын вождя

Участник

Откуда: mtdmacro.ru

Сообщения: 178

Рейтинг: 0 / 0

Алексаша...мне помогло Selection.Tables...
Поместите курсор сразу под таблицей и получите Selection.Tables.Count = 1

Вам подойдет свойство Selection.Information(wdWithInTable), которое однозначно указывает, что выбраноя область внутри одной таблицы.

...

Рейтинг:

0 / 0

05.07.2016, 16:11

| Ответить | Цитировать | Написать

VBA (Word) Выделена ли таблица ?

#39272415

Алексаша

Гость

Сын вождя,

Спасибо! То что нужно.

...

Рейтинг:

0 / 0

12.07.2016, 13:56

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA (Word) Выделена ли таблица ?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=39267916&tid=2173024]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	35ms
get topic data:	10ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	278ms

total:	408ms