Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - [решено] Word - MicroSoft Forms 2.0 TextBox - как удалить все из документа?

Ответить
Настройки темы
2016 - [решено] Word - MicroSoft Forms 2.0 TextBox - как удалить все из документа?

Аватара для Greyman

Человек


Сообщения: 3313
Благодарности: 104


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: Greyman
Дата: 24-03-2021
Описание: орфография
Вложения
Тип файла: docx MSForms20TextBox.docx
(32.6 Kb, 4 просмотров)
Всем привет. Есть документ, котором после "копипастов" накопилось куча объектов типа "MicroSoft Forms 2.0 TextBox". Как их можно быстро все удалить из документа?
В интернете находил макросы для удаления "офисных" TextBox, но там используется идентификатор "msoTextBox", который текстовые поля MS Forms не воспринимает ("офисные", которые вставляются через стандартное меню Разработчика, удаляет на ура).

Пока все что могу - в режиме конструктора "в ручную" кликать мышкой там где есть (могут быть) эти объекты и удалять. Но, во-первых, это очень долго (в документе этих объектов м. б несколько десятков, а то и сотен), а во-вторых - не факт что так я найду их все (могу и пропустить, ведь поле без рамки и на белом фоне его можно не заметить).

Может есть макрос и для удаления таких объектов? Или может можно как-то их по другому быстро найти по документу, чтоб удалить?

Прилагаю сильно сокращенный пример документа (под таблицей перечислил где есть такие текстбоксы).

Пример кода для удаления "офисных" TexpBox:

Sub Del_WA()
Dim Shp As Shape
For Each Shp In ActiveDocument.Shapes
If Shp.Type = msoTextBox Then Shp.Delete
Next Shp
End Sub

-------
Будь проще...


Отправлено: 16:30, 22-03-2021

 

Динохромный


Contributor


Сообщения: 699
Благодарности: 320

Профиль | Отправить PM | Цитировать


Цитата Greyman:
Или может можно как-то их по другому быстро найти по документу, чтоб удалить? »
Нажать alt+F9, потом еще можно ctrl+G , выбрать "поле".
Цитата Greyman:
Может есть макрос и для удаления таких объектов? »
Попробуйте таким кодом (только не факт, что он не удалит нужное):
Код: Выделить весь код
Sub field_del()
Dim f As Field
For Each f In ActiveDocument.Fields
    If f.Type = wdFieldOCX Then f.Delete
Next f
End Sub
Greyman, проверьте личку.

-------
[Форум Word и Excel] - [Как запустить Word, Excel и Outlook в безопасном режиме?] - [Как удалить шаблон Word Normal.dotm?]

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:12, 22-03-2021 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Greyman

Человек


Сообщения: 3313
Благодарности: 104

Профиль | Отправить PM | Цитировать


Цитата a_axe:
Нажать alt+F9, потом еще можно ctrl+G , выбрать "поле". »
Что должно делаться по Alt+F9? У меня ничего не происходит.
И какое поле надо искать после Ctrl-G? Не вижу там ничего подходящего.

Цитата a_axe:
Попробуйте таким кодом (только не факт, что он не удалит нужное): »
А вот за макрос - спасибо! Работает!

Только он удаляет не одни только "мои текстбоксы". Но на его базе нашел в инете вариант модернизации:

Код: Выделить весь код
'Only fields that are activex controls
        If f.Type = wdFieldOCX Then
            'only activex controsl that are textboxes
            If TypeOf f.OLEFormat.Object Is MSForms.TextBox Then f.Delete
        End If

-------
Будь проще...

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:52, 24-03-2021 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата Greyman:
Что должно делаться по Alt+F9? »
Отображаться поля в виде кодов, а не содержимого.

Цитата Greyman:
Но на его базе нашел в инете вариант модернизации: »
Да, примерно так.
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:51, 24-03-2021 | #4


Аватара для Greyman

Человек


Сообщения: 3313
Благодарности: 104

Профиль | Отправить PM | Цитировать


Цитата Iska:
Отображаться поля в виде кодов, а не содержимого. »
Точно, ступил... Не смотрел при этом на страницу с этими полями.

-------
Будь проще...


Отправлено: 09:58, 25-03-2021 | #5


Динохромный


Contributor


Сообщения: 699
Благодарности: 320

Профиль | Отправить PM | Цитировать


Цитата Greyman:
И какое поле надо искать после Ctrl-G? »
Если оставить просто пустое окошко - диалог найдет любое ближайшее поле. Например - если у вас поля в середине документа, включаете отображение кодов полей и переходите к ближайшему, потом - к следующему и т.д. (вместо того чтобы мотать документ и искать "глазами" ).

-------
[Форум Word и Excel] - [Как запустить Word, Excel и Outlook в безопасном режиме?] - [Как удалить шаблон Word Normal.dotm?]

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:04, 25-03-2021 | #6


Аватара для Greyman

Человек


Сообщения: 3313
Благодарности: 104

Профиль | Отправить PM | Цитировать


Цитата a_axe:
Если оставить просто пустое окошко - диалог найдет любое ближайшее поле. Например - если у вас поля в середине документа, включаете отображение кодов полей и переходите к ближайшему, потом - к следующему и т.д. (вместо того чтобы мотать документ и искать "глазами" ). »
Ок .Спасибо. Может и пригодится.
Но в данном случае это мало поможет - там несколько сотен страниц с кучей перекрестных ссылок и автоматической нумерации таблиц и рисунков - устанешь кнопку нажимать... Да и пропустить там можно "на автомате" то что нужно.
Скрипт гораздо удобнее - правда очень сильно выручил...

P.S.
Кста, все началось из-за того, что при наличии в документе таких полей с ним не работает совместный доступ (по крайней мере на 2010 "шарике"). Пришлось повозиться пока я это обнаружил (удалял куски документа - так и нашел). Может кому тоже поможет в похожей ситуации...

-------
Будь проще...


Отправлено: 15:25, 29-03-2021 | #7



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - [решено] Word - MicroSoft Forms 2.0 TextBox - как удалить все из документа?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2007 - Как восстановить или удалить пароль с Word-документа? khottabych Microsoft Office (Word, Excel, Outlook и т.д.) 6 05-08-2014 00:49
.NET - Импорт данных из Word в textbox Ali002 Программирование и базы данных 11 05-05-2014 22:04
2007 - [решено] Microsoft Word 2007 Форматирование и разметка в любом месте как у всего документа Streamnewal Microsoft Office (Word, Excel, Outlook и т.д.) 9 26-04-2010 22:39
[решено] Microsoft word, ограниченная защита документа bool Хочу все знать 2 14-03-2007 16:30
Как вырезать картинки из word'овского документа mdma Хочу все знать 13 17-06-2004 09:57




 
Переход