Bu yazıda, Word tablonuzdaki hücreleri sığdırmak için içerikleri ayarlamak için 2 kolay yöntemi paylaşmak istiyoruz.
Word belgesinde bir tabloyla uğraşırken, tüm tablo hücrelerinin sabit boyutta kalmasını sağlamak zordur. Normalde, bir hücreye daha fazla sözcük girildiğinde, metni otomatik olarak kaydırır. Aşağıda bir örnek verilmiştir:
Bu kesinlikle göz alıcı değil. Bir tablo boyutunu düzeltmenin, ancak içeriği buna sığdırmanın yollarını bulmaya ne dersiniz?
Aşağıda 2 yol mevcuttur:
Yöntem 1: Bir Seferlik Tablo Ayarlayın
- İlk başta, tablonun sol üst köşesindeki artı işaretini tıklayarak seçin.
- Ardından, seçilen tabloya sağ tıklayın.
- Ardından “Tablo Özellikleri”ni seçin.
- Şimdi “Tablo Özellikleri” iletişim kutusunda, önce “Hücre” sekmesine tıklayın.
- Ardından, kutunun sağ alt köşesindeki "Seçenekler" i tıklayın.
- Şimdi “Hücre Seçenekleri” iletişim kutusunu açacaksınız. “Seçenekler” bölümüne gidin ve “Metin kaydır” kutusunun işaretini kaldırın.
- Bunun yerine "Metni sığdır" kutusunu işaretleyin.
- Ardından "Tamam" ı tıklayın.
- "Tablo Özellikleri" iletişim kutusunda da "Tamam"ı tıklamayı unutmayın.
Şimdi içerik düzeni buna göre değişecektir. İşte alacağınız şey:
Yöntem 2: VBA Kodlarını Kullanın
Word'deki VBA düzenleyicisi, işleri hızlı ve düzgün bir şekilde yapmak için kendi Word özelliklerinizi özelleştirmek için kodlar yazmanıza olanak tanır. Böylece mucizeyi gerçekleştirmek için kodları rahatlıkla kullanabilirsiniz.
- Öncelikle “Geliştirici” sekmesine tıklayın. Henüz yoksa, şu makaleye başvurabilirsiniz: Word Belgenize Fon Müziği Nasıl Eklenir?
- Ardından, VBA editörünü açmak için “Visual Basic”e tıklayın.
- VBA editöründe, arkasında belge adı olan projeyi bulun ve “Bu Belge”ye tıklayın.
- Ardından, araç çubuğundaki "Ekle" düğmesini tıklayın.
- Ve menüden “Modül”ü seçin.
- Şimdi düzenleme alanını açacaksınız, sadece oraya kodları yapıştı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
Yaklaşan Arızaya Hazırlanın
Olaylar sizi her zaman hazırlıksız yakalayacaktır. Bu yüzden en iyi yol zaman ayırmak ve hazırlık yapmaktır. Önlemler, dosyaları yedeklemeyi ve bir dosya almak için biraz para harcamayı içerebilir. bozuk Word doc kurtarma aracı. Veri kaybı herhangi bir yerde herkesin başına gelebileceğinden, bir şeyler yapmanın zamanı geldi.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel veri hatası düzeltme aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com