Dalam artikel ini, kami ingin berkongsi 2 kaedah mudah untuk menyesuaikan kandungan agar sesuai dengan sel dalam jadual Word anda.
Apabila berurusan dengan jadual dalam dokumen Word, sukar untuk memastikan semua sel meja tetap dalam ukuran tetap. Biasanya, dengan lebih banyak kata yang dimasukkan ke dalam sel, ia akan membungkus teks secara automatik. Berikut adalah contoh:
Ini semestinya tidak menarik perhatian. Bagaimana dengan mencari cara untuk memperbaiki ukuran meja tetapi menjadikan isinya sesuai?
Berikut adalah 2 cara yang tersedia:
Kaedah 1: Tetapkan Jadual Satu Kali
- Pada mulanya, klik tanda tambah di sudut kiri atas meja untuk memilihnya.
- Kemudian, klik kanan pada jadual yang dipilih.
- Seterusnya pilih "Table Properties".
- Sekarang di kotak dialog "Table Properties", klik tab "Cell" terlebih dahulu.
- Kemudian klik "Pilihan" di sudut kanan bawah kotak.
- Sekarang anda akan membuka kotak dialog "Pilihan Sel". Pergi ke bahagian "Pilihan", dan kosongkan kotak "Balut teks".
- Dan tandakan kotak "Fit text".
- Kemudian klik "OK".
- Dan ingat untuk mengklik "OK" di kotak dialog "Table Properties" juga.
Sekarang susun atur kandungan akan berubah dengan sewajarnya. Inilah yang anda akan dapat:
Kaedah 2: Gunakan Kod VBA
Editor VBA di Word membolehkan anda menaip kod untuk menyesuaikan ciri Word anda sendiri untuk menyelesaikan pekerjaan dengan cara yang cepat dan kemas. Oleh itu, anda boleh menggunakan kod dengan selesa untuk membuat keajaiban itu berlaku.
- Pertama sekali, klik tab “Pembangun”. Jika anda belum memilikinya, anda boleh rujuk artikel ini: Cara Memasukkan Muzik Latar Belakang ke dalam Dokumen Word Anda
- Kemudian, klik "Visual Basic" untuk membuka editor VBA.
- Dalam editor VBA, cari projek dengan nama dokumen dan klik "ThisDocument".
- Seterusnya, klik "Masukkan" pada bar alat.
- Dan pilih "Modul" pada menu.
- Sekarang anda akan membuka kawasan pengeditan, hanya tampal kod di sana:
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
Bersedia untuk Kegagalan Akan Datang
Kejadian akan selalu membuat anda tidak berjaga-jaga. Jadi kaedah terbaik adalah meluangkan masa dan membuat persiapan. Langkah berjaga-jaga boleh termasuk menyandarkan fail dan mengeluarkan sejumlah wang untuk mendapatkan alat pemulihan Word doc yang rosak. Oleh kerana kehilangan data boleh berlaku kepada sesiapa sahaja di mana sahaja, sudah tiba masanya untuk melakukan sesuatu.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Alat pembetulan ralat data Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com