powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word 2016. Не работает макрос
4 сообщений из 4, страница 1 из 1
Word 2016. Не работает макрос
    #39360941
BlackEric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть макрос, для выделения таблиц, который отлично работает в 2010 ворде:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub selecttables()
Dim mytable As Table
Application.ScreenUpdating = False

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub



В 2016 же он не выделяет таблицы и при повторном запуске ворд падает:

Сигнатура проблемы:
Имя события проблемы: APPCRASH
Имя приложения: WINWORD.EXE
Версия приложения: 16.0.4417.1000
Отметка времени приложения: 5784fe59
Имя модуля с ошибкой: StackHash_808b
Версия модуля с ошибкой: 6.1.7601.18247

Это баг 2016 ворда? Можно ли это как-нибудь обойти?
...
Рейтинг: 0 / 0
Word 2016. Не работает макрос
    #39361220
BlackEric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хм, в 2013 офисе тоже не выделяются все таблицы и ворд переодически падает.
...
Рейтинг: 0 / 0
Word 2016. Не работает макрос
    #39361261
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
BlackEric,
попробуйте закомментировать/удалить строку с ...SelectAll... - может, диапазон слишком сложный для выделения.
...
Рейтинг: 0 / 0
Word 2016. Не работает макрос
    #39361266
BlackEric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Казанский,

Да, падает именно на этой строке, но это простой, одностраничный текстовый документ на 4 таблицы.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word 2016. Не работает макрос
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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