Как изменить ширину столбца для всех таблиц слов одновременно

Question

У меня есть много (> 200) таблиц в Word, которые имеют одинаковую структуру (два столбца, шесть строк).

Мне нужно настроить ширину столбцов для всех из них. Есть ли способ автоматизировать это?

Answer 1

Вы можете использовать макрос VBA для изменения размера каждой таблицы.

Нажмите ALT+F11 в Word и вставьте макрос в Project »ThisDocument.
Выполнить код с помощью F5

Sub resizeTables()    
  For Each Table In ActiveDocument.Tables
    On Error Resume Next
    Table.Columns(1).Width = 200
    Table.Columns(2).Width = 300
    On Error GoTo 0
  Next    
End Sub

• Columns(2) представляет столбец 2 в каждой таблице
• Значение Width = 300 - это желаемая ширина в пикселях. Измените это на ваши потребности
• Если в вашей таблице меньше столбцов, чем в макросе VBA, вы получите исключение. Для этого я добавил On Error Resume Next чтобы игнорировать ошибки, и On Error GoTo 0 чтобы остановить обработку ошибок.