У цій статті ми хотіли б поділитися 2 простими методами налаштування вмісту відповідно до клітинок таблиці Word.
Коли ви маєте справу з таблицею в документі Word, важко переконатися, що всі комірки таблиці залишаються фіксованими. Зазвичай, якщо в комірку вводиться більше слів, він автоматично оберне текст. Нижче наведено приклад:
Це точно не привертає уваги. Як щодо пошуку способів виправити розмір таблиці, але зробити вміст відповідним йому?
Нижче наведено 2 способи:
Спосіб 1. Одноразово встановіть стіл
- Спочатку клацніть знак плюс у верхньому лівому куті таблиці, щоб вибрати його.
- Потім клацніть правою кнопкою миші на вибраній таблиці.
- Далі виберіть «Властивості таблиці».
- Тепер у діалоговому вікні «Властивості таблиці» спочатку натисніть вкладку «Клітинка».
- Потім натисніть «Параметри» в правому нижньому куті вікна.
- Тепер ви відкриєте діалогове вікно “Параметри комірок”. Перейдіть до частини «Параметри» та зніміть поле «Обернути текст».
- І замість цього встановіть прапорець «Вмістити текст».
- Потім натисніть «ОК».
- Не забудьте також натиснути «OK» у діалоговому вікні «Властивості таблиці».
Тепер макет вмісту буде відповідно змінюватися. Ось що ви отримаєте:
Спосіб 2: Використовуйте коди VBA
Редактор VBA в Word дозволяє вводити коди для налаштування власних функцій Word, щоб швидко і акуратно виконувати завдання. Тож ви можете зручно використовувати коди, щоб здійснити диво.
- Перш за все, натисніть вкладку «Розробник». Якщо у вас її ще немає, ви можете звернутися до цієї статті: Як вставити фонову музику у ваш документ 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