Ushbu maqolada biz Word jadvalidagi hujayralarga mos keladigan tarkibni sozlashning ikkita oson usulini baham ko'rmoqchimiz.
Word hujjatida jadval bilan ishlashda barcha jadval katakchalarining belgilangan o'lchamda bo'lishini ta'minlash qiyin. Odatda, katakka ko'proq so'z kiritilsa, u avtomatik ravishda matnni o'rab oladi. Quyida misol keltirilgan:
Bu, albatta, ko'zni qamashtirmaydi. Jadval o'lchamini to'g'irlash, lekin tarkibni unga moslashtirish yo'llarini topish haqida nima deyish mumkin?
Quyida 2 ta usul mavjud:
1-usul: Jadvalni bir marta o'rnating
- Dastlab, uni tanlash uchun jadvalning yuqori chap burchagidagi ortiqcha belgisini bosing.
- Keyin tanlangan jadvalni o'ng tugmasini bosing.
- Keyin "Jadval xususiyatlari" ni tanlang.
- Endi "Jadval xususiyatlari" dialog oynasida birinchi navbatda "Hujayra" yorlig'ini bosing.
- Keyin qutining o'ng pastki burchagidagi "Options" tugmasini bosing.
- Endi siz "Hujayra parametrlari" dialog oynasini ochasiz. "Tanlovlar" bo'limiga o'ting va "Matnni o'rash" oynasini olib tashlang.
- Buning o'rniga "Matnni moslashtirish" katagiga belgi qo'ying.
- Keyin "OK" tugmasini bosing.
- Shuningdek, "Jadval xususiyatlari" dialog oynasida "OK" tugmasini bosishni unutmang.
Endi tarkibning tartibi mos ravishda o'zgaradi. Mana nima olasiz:
2-usul: VBA kodlaridan foydalaning
Word-dagi VBA muharriri vazifalarni tez va aniq bajarish uchun o'zingizning Word funksiyalaringizni sozlash uchun kodlarni kiritish imkonini beradi. Shunday qilib, mo''jizani amalga oshirish uchun kodlardan bemalol foydalanishingiz mumkin.
- Avvalo, "Dasturchi" yorlig'ini bosing. Agar sizda u hali yo'q bo'lsa, ushbu maqolaga murojaat qilishingiz mumkin: Word hujjatingizga fon musiqasini qanday kiritish mumkin
- Keyin VBA muharririni ochish uchun "Visual Basic" tugmasini bosing.
- VBA muharriridan keyin hujjat nomi bilan loyihani toping va "ThisDocument" tugmasini bosing.
- Keyin asboblar panelidagi "Qo'shish" tugmasini bosing.
- Va menyuda "Modul" ni tanlang.
- Endi siz tahrirlash maydonini ochasiz, u erga kodlarni joylashtirish kifoya:
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
Kutilayotgan muvaffaqiyatsizlikka tayyorlaning
Hodisalar sizni doimo ehtiyotsizlikka olib keladi. Shuning uchun eng yaxshi yo'l vaqt ajratish va tayyorgarlik ko'rishdir. Ehtiyotkorlik choralari fayllarni zaxiralash va a olish uchun bir oz pul ajratishni o'z ichiga olishi mumkin buzilgan Word hujjatini tiklash vositasi. Ma'lumotlar yo'qolishi har qanday joyda sodir bo'lishi mumkinligi sababli, biror narsa qilish vaqti keldi.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excel ma'lumotlaridagi xatolarni tuzatish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com