В этой статье мы хотели бы поделиться двумя простыми способами настроить содержимое так, чтобы оно помещалось в ячейки таблицы Word.
При работе с таблицей в документе Word трудно обеспечить фиксированный размер всех ячеек таблицы. Обычно, если в ячейку вводится больше слов, она автоматически переносит текст. Ниже приведен пример:
Это точно не бросается в глаза. Как насчет того, чтобы найти способы исправить размер таблицы, но сделать так, чтобы содержимое соответствовало ему?
Доступны следующие 2 способа:
Способ 1: накройте стол один раз
- Сначала щелкните знак «плюс» в верхнем левом углу таблицы, чтобы выбрать ее.
- Затем щелкните правой кнопкой мыши выбранную таблицу.
- Затем выберите «Свойства таблицы».
- Теперь в диалоговом окне «Свойства таблицы» сначала нажмите вкладку «Ячейка».
- Затем нажмите «Параметры» в правом нижнем углу окна.
- Теперь вы откроете диалоговое окно «Параметры ячейки». Перейдите в раздел «Параметры» и снимите флажок «Обтекание текстом».
- И вместо этого установите флажок «Подогнать текст».
- Затем нажмите «ОК».
- И не забудьте также нажать «ОК» в диалоговом окне «Свойства таблицы».
Теперь макет содержимого изменится соответствующим образом. Вот что вы получите:
Способ 2: использовать коды VBA
Редактор VBA в Word позволяет вводить коды для настройки собственных функций Word, чтобы выполнять работу быстро и аккуратно. Таким образом, вы можете с комфортом использовать коды, чтобы чудо произошло.
- Первый и первыйost, перейдите на вкладку «Разработчик». Если у вас его еще нет, вы можете обратиться к этой статье: Как вставить фоновую музыку в документ Word
- Затем нажмите «Visual Basic», чтобы открыть редактор VBA.
- В редакторе VBA найдите проект с именем документа после него и нажмите «ThisDocument».
- Далее нажмите «Вставить» на панели инструментов.
- И выберите «Модуль» в меню.
- Теперь вы откроете область редактирования, просто вставьте туда коды:
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
Готовьтесь к грядущей неудаче
Инциденты всегда будут заставать вас врасплох. Так что лучший способ - это потратить время и подготовиться. Меры предосторожности могут включать в себя резервное копирование файлов и выкладывание денег, чтобы получить поврежденный инструмент восстановления документов Word. Поскольку потеря данных может произойти с кем угодно и где угодно, пришло время что-то предпринять.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Инструмент исправления ошибок данных Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com