[решено] Можно ли автоматически изменить абзац во всех таблицах документа

[Work700]

Здравствуйте!
Подскажите пожалуйста, можно каким-то образом настроить отмену абзаца для всех таблиц в документе?

Часто приходится изменять размер абзаца в уже готовом документе с множествами таблиц, а потом каждую таблицу выделять и в "Шрифте" снимать абзац, что очень напряжно

Заранее спасибо за ответ!

[a_axe]

Часто приходится изменять размер абзаца »
Work700, не понял толком, что именно вы имеете ввиду.
В теории, если вы специально не форматировали таблицы, настройку отступов и абзацев ворд берет из стиля таблицы "Сетка таблицы", если поменять настройки в нем - изменятся все таблицы документа, которые вы не форматировали по-другому вручную. Если стиль сохранить в шаблоне Word, то настройки будут по-умолчанию в новых документах.
Соответственно, вам нужно щелкнуть по таблице, среди вкладок появится две вкладки для работы с таблицами, вам нужна "Конструктор", основное место на этой вкладке занимают миниатюры оформления таблиц (разноцветные таблички), а сразу правее них - кнопка-стрелка. Если ее нажать, выпадет меню опять же с миниатюрами, но в самом низу будет в том числе кнопка "изменить стиль таблицы".
Большинство параметров можно поменять по кнопке "формат" в левом нижнем углу, ну и поставить рядом с ней опцию "использовать во всех новых документах".

[Work700]

a_axe,
Спасибо, попробую
Специальна не менял - автоматом изменяется, когда назначаешь или меняешь абзац в документе. Соответственно абзац появляется и в таблицах (становятся косымт)

[Work700]

a_axe,
Изменение стиля таблицы не помогло - по прежнему после добавления абзаца необходимо выделять каждую таблицу в отдельности и отменять абзац для конкретной таблицы
А можно это сделать массово ?
Прикрепляю файл с данным примером, содержащим 3 таблицы, а в основном файле их более сорока и не хочется каждую выделять

Если получиться - просьба, напишите поэтапно, как вы этого добились

Спасибо!

[a_axe]

Work700, я не очень понимаю, что нужно сделать.
Сделайте две таблицы - одну до, вторую - копию, но после того как вы убрали абзац и приложите в формате word. Либо отредактируйте тот файл, который уже приложили как вариант.

[Work700]

a_axe,
Нужно убрать абзац сразу во всех таблицах (одновременно), а в тексте оставить
Файлы прикладываю

[a_axe]

Work700, спасибо, теперь ясно.
Смотрите,
я открыл ваш файл с абзацем.
Запустил shift+F1 и посмотрел, что абзац установлен в стиле абзаца "Обычный"
Зашел на главной панели в этот стиль (вкладка "главная" → сектор "стили" → щелкнуть правой кл. по миниатюре → редактировать, или по-другому - через перечень ctrl+shift+alt+s). В настройке зашел в "формат" → "абзац" там поставил для перовой строка "Отступ" = "Отсутствует".

Тут проблема, что это затронуло и просто текст, который не входит в таблицу, он тоже отформатирован этим же стилем.

Сами таблицы у вас сделаны разными стилями, поэтому тут наверное проще использовать макрос, что то вроде:
Sub tbl_int()
Dim tblObj As Table
For Each tblObj In ActiveDocument.Tables
tblObj.Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
Next tblObj
End Sub
Нажмите alt+F11, откроется VBA редактор, щелкните по "Thisdocument" слева, чтобы открылось его содержимое (пустой лист) и скопируйте код туда, щелкните мышкой в любое место кода и нажмите для запуска F5.

[Work700]

a_axe,
Благодарю, спаботало
Данный макрос может подойти к любому word-файлу?

[a_axe]

Work700, вроде бы да, но если что-то будет не так работать - напишите, адаптировать недолго.