У Лиз есть несколько документов, в каждом из которых есть несколько таблиц с содержимым.

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

В настоящее время ширина столбцов таблиц зависит от содержимого. Лиз хочет, чтобы все таблицы имели одинаковую ширину столбцов (например, 5,25 дюйма для первого столбца и 1,25 дюйма для второго столбца).

Она задается вопросом, есть ли другой способ добиться этого, кроме установки ширины столбцов для каждой таблицы по одному.

Если, как описывает Лиз, это существующие документы, содержащие кучу таблиц, то единственный способ выполнить эту задачу — использовать макрос.

Используемая техника фактически описана в другом WordTip, который вы можете найти здесь:

`link:/office-skill-ru/wordribbon-T011693

Хотя техника, описанная в этом совете, применима к ситуации Лиз, ее можно сделать еще более применимой, просто внеся несколько изменений. Например, Лиз указывает, что все таблицы состоят из двух столбцов. Однако, если существует (по какой-то причине) одна или две таблицы с разным количеством столбцов, макрос, ожидающий двух столбцов, может нанести ущерб этим другим таблицам. Рассмотрим этот макрос, который просто пропускает любую таблицу с другим количеством столбцов:

Sub SetTableWidths()

Dim t As Table     Dim iFixed As Integer     Dim iSkipped As Integer     Dim sTemp As String

iFixed = 0     iSkipped = 0     For Each t In ActiveDocument.Tables         If t.Columns.Count = 2 Then             t.Columns(1).Width = InchesToPoints(5.25)

t.Columns(2).Width = InchesToPoints(1.25)

iFixed = iFixed + 1         Else             iSkipped = iSkipped + 1         End If     Next t     sTemp = "Tables Fixed: " & iFixed & vbCr     sTemp = sTemp & "Tables Skipped: " & iSkipped     MsgBox sTemp End Sub

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

Этот подход на основе макросов отлично подходит для документов, в которых уже есть таблицы. Однако, если вы создаете новые документы, вам следует подумать о создании «стандартной» таблицы и сохранить ее как стандартный блок.

Это позволяет очень легко разместить такую ​​таблицу в вашем документе по мере его разработки. То, как вы это делаете, описано в другом WordTip:

T006076

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера] `.

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13749) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.