Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2021, 11:27   #1
Slonix
 
Регистрация: 30.12.2020
Сообщений: 5
Вопрос Сообщение при отсутствии таблицы в Word

Доброго времени суток!

Описываю ситуацию:
Word работает в связке с внешней программой. Во внешней программе возможны ситуации:
1) Пользователь поставил галочку - тогда в Ворд будете передана таблица (всегда одна)
2) Пользователь не поставил галочку - тогда таблицы в Ворде не будет
3) Пользователь поставил несколько галочек - тогда таблиц будет несколько

Пишу обработчик ошибок на все 3 случая. Сложность во 2 случае.

Если пользователь не поставил галочку (таблицы нет), то VBA код должен выдать сообщение пользователю.

Пробовала следующий вариант:
Код:
Public Sub Tabelle()
    Dim TabelleVon99008 As Table
    If TabelleVon99008 Is Nothing Then
       MsbBox ("Сообщение пользователю")
    Else
       ' прочие действия
    End If
Получаю ответ, что Объект TabelleVon99008 не существует и программу выбивает.

Очевидно, что-то я делаю не так, но что именно, к сожалению не пойму.

Буду рада вашей поддержки. За качественную помощь готова отблагодарить материально.

И хорошего Вам дня!
Slonix вне форума Ответить с цитированием
Старый 28.02.2021, 12:54   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Второй случай нужно проверять через количество таблиц в документе. В активном документе это можно сделать так:
Код:
If ActiveDocument.Tables.Count = 0 Then
'Нет таблиц
End If
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 01.03.2021, 10:22   #3
Slonix
 
Регистрация: 30.12.2020
Сообщений: 5
По умолчанию Проблема решена

Спасибоб viter.alex ! Это действительно помогло
Slonix вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить из TStringList при отсутствии искомого Shouldercannon Общие вопросы Delphi 2 11.05.2018 22:47
Не использовать код при отсутствии файла meg8639 Microsoft Office Excel 2 09.12.2013 23:07
Зависание программы при отсутствии подключения dolphin705 Работа с сетью в Delphi 0 17.01.2011 02:05
Как вычислять значения вне таблицы WORD, с использованием данных из таблицы WORD prikolist Microsoft Office Word 6 21.11.2008 13:17
при запуске Word выдается сообщение... sher_man Microsoft Office Word 3 27.08.2008 09:25