Bu yazıda məzmunu Word cədvəlinizdə xanalara sığdırmaq üçün tənzimləmək üçün 2 asan üsul paylaşmaq istərdik.
Word sənədində cədvəllə məşğul olduqda, bütün cədvəl hüceyrələrinin sabit ölçüdə qalmasını təmin etmək çətindir. Normalda, xanaya daha çox söz daxil edildikdə, o, mətni avtomatik olaraq bükəcək. Aşağıda bir nümunə verilmişdir:
Bu, şübhəsiz ki, göz oxşayan deyil. Cədvəl ölçüsünü düzəltmək, lakin məzmunu ona uyğunlaşdırmaq yollarını tapmaq necədir?
Aşağıda 2 yol mövcuddur:
Metod 1: Bir dəfə masa qurun
- Əvvəlcə onu seçmək üçün cədvəlin yuxarı sol küncündəki artı işarəsinə klikləyin.
- Sonra seçilmiş cədvəlin üzərinə sağ vurun.
- Sonra "Cədvəl xüsusiyyətləri" seçin.
- İndi "Cədvəl Xüsusiyyətləri" informasiya qutusunda əvvəlcə "Hüceyrə" sekmesini vurun.
- Sonra qutunun sağ aşağı küncündə "Seçimlər" düyməsini basın.
- İndi "Hüceyrə Seçimləri" informasiya qutusunu açacaqsınız. "Seçimlər" hissəsinə keçin və "Mətni sarın" qutusunu silin.
- Və bunun əvəzinə "Mətni uyğunlaşdır" qutusunu yoxlayın.
- Sonra “OK” düyməsini basın.
- Və "Cədvəl Xüsusiyyətləri" informasiya qutusunda "OK" düyməsini basmağı da unutmayın.
İndi məzmun düzeni müvafiq olaraq dəyişəcək. Əldə edəcəyiniz budur:
Metod 2: VBA kodlarından istifadə edin
Word-də VBA redaktoru işləri tez və səliqəli şəkildə yerinə yetirmək üçün öz Word xüsusiyyətlərinizi fərdiləşdirmək üçün kodlar yazmağa imkan verir. Beləliklə, möcüzənin baş verməsi üçün kodlardan rahat istifadə edə bilərsiniz.
- İlk növbədə, “Tərtibatçı” sekmesini vurun. Əgər hələ yoxdursa, bu məqaləyə müraciət edə bilərsiniz: Word sənədinizə fon musiqisini necə daxil etmək olar
- Sonra VBA redaktorunu açmaq üçün "Visual Basic" düyməsini basın.
- VBA redaktorunda özündən sonra sənəd adı olan layihəni tapın və “ThisDocument” düyməsini basın.
- Sonra, alətlər panelində "Daxil et" düyməsini basın.
- Və menyudan "Modul" seçin.
- İndi redaktə sahəsini açacaqsınız, sadəcə kodları ora yapışdırın:
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
Qarşıdan gələn uğursuzluğa hazır olun
Hadisələr sizi həmişə ehtiyatsız tutacaq. Ona görə də ən yaxşı yol vaxt ayırıb hazırlıq görməkdir. Ehtiyat tədbirləri faylların ehtiyat nüsxəsini çıxarmaq və əldə etmək üçün bəzi pulların çıxarılmasını əhatə edə bilər pozulmuş Word sənəd bərpa aləti. Məlumat itkisi istənilən yerdə hər kəsin başına gələ biləcəyi üçün nəsə etmək vaxtıdır.
Müəllif Giriş:
Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel məlumat xətası düzəltmə vasitəsi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com