В тази статия бихме искали да споделим 2 лесни метода за коригиране на съдържанието, така че да се побере в клетки в таблицата на Word.
Когато се занимавате с таблица в документ на Word, е трудно да се гарантира, че всички клетки на таблицата остават с фиксиран размер. Обикновено, с повече думи, въведени в клетка, тя автоматично ще обгърне текст. По-долу е даден пример:
Това със сигурност не привлича вниманието. Какво ще кажете за намиране на начини за определяне на размера на таблица, но съдържанието да се побере в него?
Предлагат се 2 начина:
Метод 1: Задайте маса еднократно
- Отначало щракнете върху знака плюс в горния ляв ъгъл на таблицата, за да го изберете.
- След това щракнете с десния бутон върху избраната таблица.
- След това изберете „Свойства на таблицата“.
- Сега в диалоговия прозорец „Свойства на таблицата“ щракнете първо върху раздела „Клетка“.
- След това щракнете върху „Опции“ в десния ъгъл на полето.
- Сега ще отворите диалоговия прозорец „Опции на клетката“. Отидете на част „Опции“ и изчистете полето „Прегъване на текст“.
- И вместо това поставете отметка в квадратчето „Fit text“.
- След това щракнете върху „OK“.
- И не забравяйте да щракнете върху „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





