Šajā rakstā mēs vēlamies dalīties ar 2 vienkāršām metodēm, kā pielāgot saturu tā, lai tas ietilptu jūsu Word tabulas šūnās.
Nodarbojoties ar tabulu Word dokumentā, ir grūti nodrošināt, ka visas tabulas šūnas paliek fiksēta izmēra. Parasti, ja šūnā tiek ievadīts vairāk vārdu, tas automātiski iesaiņo tekstu. Zemāk ir sniegts piemērs:
Tas noteikti nav uzkrītošs. Kā būtu atrast veidus, kā noteikt galda izmēru, bet padarīt saturu tā piemērotu?
Tālāk ir pieejami divi veidi:
1. metode: vienreiz iestatiet tabulu
- Sākumā noklikšķiniet uz pluszīmes tabulas augšējā kreisajā stūrī, lai to atlasītu.
- Pēc tam ar peles labo pogu noklikšķiniet uz atlasītās tabulas.
- Pēc tam izvēlieties “Tabulas rekvizīti”.
- Tagad dialoglodziņā “Tabulas rekvizīti” vispirms noklikšķiniet uz cilnes “Šūna”.
- Pēc tam lodziņa labajā apakšējā stūrī noklikšķiniet uz Opcijas.
- Tagad jūs atvērsit dialoglodziņu “Šūnu opcijas”. Pārejiet uz sadaļu “Opcijas” un notīriet lodziņu “Aptīt tekstu”.
- Tā vietā atzīmējiet izvēles rūtiņu “Ievietot tekstu”.
- Pēc tam noklikšķiniet uz Labi.
- Neaizmirstiet arī dialoglodziņā “Tabulas rekvizīti” noklikšķināt uz “Labi”.
Tagad satura izkārtojums attiecīgi mainīsies. Lūk, ko jūs iegūsiet:
2. metode: izmantojiet VBA kodus
Word VBA redaktors ļauj ierakstīt kodus, lai pielāgotu savas Word funkcijas, lai ātri un kārtīgi veiktu darbus. Lai jūs varētu ērti izmantot kodus, lai brīnums notiktu.
- Pirmkārt un galvenokārt, noklikšķiniet uz cilnes “Izstrādātājs”. Ja jums tās vēl nav, varat iepazīties ar šo rakstu: Kā ievietot fona mūziku savā Word dokumentā
- Pēc tam noklikšķiniet uz Visual Basic, lai atvērtu VBA redaktoru.
- VBA redaktorā atrodiet projektu ar dokumenta nosaukumu pēc tā un noklikšķiniet uz “ThisDocument”.
- Pēc tam rīkjoslā noklikšķiniet uz “Ievietot”.
- Izvēlnē izvēlieties “Module”.
- Tagad atvērsit rediģēšanas apgabalu, vienkārši ielīmējiet tur kodus:
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
Sagatavojieties gaidāmajai neveiksmei
Starpgadījumi vienmēr jūs aizkavēs. Tāpēc labākais veids ir veltīt laiku un sagatavoties. Piesardzības pasākumi var ietvert failu dublēšanu un naudas izlobīšanu, lai iegūtu korumpēts Word doc atkopšanas rīks. Tā kā datu zaudēšana var notikt ikvienam jebkurā vietā, ir pienācis laiks kaut ko darīt.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel datu kļūdu novēršanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar