Keyingi maqolada biz sizga Word hujjatidagi jadval kataklaridagi keraksiz bo'shliqlarni olib tashlashning 3 ta samarali usulini taklif qilmoqchimiz.
Vaqti-vaqti bilan biz matnlar va ma'lumotlarni saqlash uchun jadvalni kiritishimiz kerak. Lekin biz tez-tez matnlar va ma'lumotlarni kiritgandan so'ng jadval hajmini sozlashimiz kerak. Va ba'zida biz uning hajmini o'zgartirgandan so'ng, hujayralarda keraksiz bo'shliqlar bo'lgan jadvalni olamiz, masalan:
Yuqoridagi misolda har bir katakdagi matn ostida bo'sh qator mavjud. Ammo biz "O'chirish" tugmasini bosish orqali undan qutula olmaymiz. Buning o'rniga, biz boshqa vaqtinchalik echimlardan foydalanishimiz kerak.
1-usul: Qator balandligini qo'lda toraytiring
- Birinchi va asosiyost, hujayralarda olinadigan bo'sh chiziqlar mavjudligini tekshiring. Agar mavjud bo'lsa, avval ularni o'chiring.
- Keyin kursorni jadval qatorining pastki qatoriga qo'ying. Kursor 2 o'q bilan ikki tomonlama gorizontal chiziqlar belgisiga o'tguncha kuting.
- Keyin bosing va keraksiz bo'sh joy yo'qolguncha pastki chiziqni yuqoriga torting.
- 2 va 3-bosqichlarni balandligi o'lchamini o'zgartirish kerak bo'lgan jadvalning boshqa qatorlarida takrorlang.
Mana natija:
2-usul: "Balandlikni belgilash" funksiyasini o'chiring
- Avvalo, butun jadvalni tanlash uchun yuqori chapdagi xoch belgisini bosing.
- Keyin o'ng tugmasini bosing va "Jadval xususiyatlari" ni tanlang.
- "Jadval xususiyatlari" oynasida. Avval "Qator" yorlig'ini bosing.
- Keyingi "Balandlikni belgilang" oynasini olib tashlang.
- Nihoyat, "OK" tugmasini bosing.
Ta'sir 1-usuldagi kabi.
3-usul: Word makrosidan foydalaning
- S gatart o'chirilganida, VBA muharririni ochish uchun "Dasturchi" ni, keyin esa "Visual Basic" ni bosing. Agar lentada "Ishlab chiquvchi" yorlig'i mavjud bo'lmasa, uning o'rniga "Alt + F11" tugmasini bosing.
- Keyin yangi modul yaratishga o'ting. Chap ustundagi "Oddiy" ni bosing.
- Keyin menyu satrida "Qo'shish" tugmasini bosing.
- Ochilgan menyuda "Module" ni tanlang.
- Keyin modulni ochish uchun uni ikki marta bosing.
- Endi kodlash maydoniga quyidagi kodlarni joylashtiring:
Sub RemoveSpacesInTables()
Dim objTable As Table
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
If .Tables.Count > 0 Then
For Each objTable In .Tables
objTable.Select
Selection.Rows.HeightRule = wdRowHeightAuto
Selection.Rows.Height = InchesToPoints(0)
Next objTable
Else
MsgBox ("This document contains no table.")
End If
End With
End Sub
- Nihoyat, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosib kodlarni bajaring.
Ushbu makros hujjatdagi barcha jadvallarda ishlashi va keraksiz bo'shliqlarni olib tashlashi kerak.
3 ta usulni solishtirish
| usullari | afzalliklari | Kamchiliklari |
| 1-usul: Qator balandligini qo'lda toraytiring | Bir nechta jadval yoki bir nechta qatorli jadvallar bo'lgan hujjat uchun eng yaxshisi. | 1. Qator chizig'ini qo'lda va qayta-qayta tortib olishingiz kerak.
2. Bir nechta jadvallar uchun uyasi yo'li emas |
| 2-usul: "Balandlikni belgilash" funksiyasini o'chiring | 1. Chiziqni qo'lda yuqoriga tortish kerak emas
2. 1-usuldan tezroq |
Siz bir vaqtning o'zida faqat bitta jadval bilan shug'ullanishingiz mumkin. |
| 3-usul: Word makrosidan foydalaning | 1. Eng tezkor usul
2. Bir vaqtning o'zida bir nechta jadvallarni qayta ishlashga qodir |
Bu makrosdan foydalanishni talab qiladi. |
Bir marta hujjat buziladi
Bunday emas rare vaqti-vaqti bilan buzilgan hujjatni olish uchun. Biroq, hujjatingiz shikastlanganda, qo'rquv paydo bo'ladi. Shuning uchun, xavfsiz tomonda bo'lish uchun, eng tezkor harakat yo'nalishi - ta'mirlash vositasini olishdir. docx ni tuzatish qo'shimcha zararni oldini olish uchun.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelni ta'mirlash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com