W tym artykule chcielibyśmy podzielić się dwiema prostymi metodami dostosowywania zawartości do komórek w tabeli programu Word.
Gdy mamy do czynienia z tabelą w dokumencie programu Word, trudno jest zapewnić, aby wszystkie komórki tabeli pozostały w stałym rozmiarze. Zwykle po wprowadzeniu większej liczby słów do komórki automatycznie zawija tekst. Poniżej przykład:
To z pewnością nie przyciąga uwagi. Co powiesz na znalezienie sposobów na poprawienie rozmiaru tabeli, ale dopasowanie zawartości do niej?
Dostępne są 2 sposoby:
Metoda 1: Jednorazowe ustawienie tabeli
- Najpierw kliknij znak plus w lewym górnym rogu tabeli, aby go zaznaczyć.
- Następnie kliknij prawym przyciskiem myszy wybraną tabelę.
- Następnie wybierz „Właściwości tabeli”.
- Teraz w oknie dialogowym „Właściwości tabeli” najpierw kliknij kartę „Komórka”.
- Następnie kliknij „Opcje” w prawym dolnym rogu pola.
- Teraz otworzysz okno dialogowe „Opcje komórki”. Przejdź do części „Opcje” i wyczyść pole „Zawijaj tekst”.
- Zamiast tego zaznacz pole „Dopasuj tekst”.
- Następnie kliknij „OK”.
- Pamiętaj, aby kliknąć „OK” w oknie dialogowym „Właściwości tabeli”.
Teraz układ zawartości odpowiednio się zmieni. Oto, co otrzymasz:
Metoda 2: Wykorzystaj kody VBA
Edytor VBA w programie Word umożliwia wpisywanie kodów w celu dostosowania własnych funkcji programu Word, aby wykonywać zadania w szybki i schludny sposób. Możesz więc wygodnie używać kodów, aby cud się wydarzył.
- Przede wszystkim kliknij zakładkę „Deweloper”. Jeśli jeszcze jej nie masz, zapoznaj się z tym artykułem: Jak wstawić muzykę w tle do dokumentu Word
- Następnie kliknij „Visual Basic”, aby otworzyć edytor VBA.
- W edytorze VBA znajdź projekt z nazwą dokumentu po nim i kliknij „ThisDocument”.
- Następnie kliknij „Wstaw” na pasku narzędzi.
- I wybierz z menu „Moduł”.
- Teraz otworzysz obszar edycji, po prostu wklej tam kody:
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
Przygotuj się na zbliżającą się awarię
Incydenty zawsze cię zaskakują. Najlepszym sposobem jest więc poświęcenie czasu i przygotowanie się. Środki ostrożności mogą obejmować tworzenie kopii zapasowych plików i wydawanie pieniędzy, aby uzyskać plik uszkodzone narzędzie do odzyskiwania dokumentów z programu Word. Ponieważ utrata danych może przydarzyć się każdemu i wszędzie, czas coś zrobić.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Narzędzie do naprawy błędów danych programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com