Microsoft Word Tablo Makroları

Word dosyasındaki tabloların sadece başlık kısımlarını seçmek için aşağıdaki kodu çalıştırınız. 

Sub Tablo_Basliklarini_Sec()

On Error Resume Next

ActiveDocument.DeleteAllEditableRanges (-1)

Dim Tbl As Table

For Each Tbl In ActiveDocument.Tables

Tbl.Rows(1).Range.Editors.Add (-1)

Next

ActiveDocument.SelectAllEditableRanges (-1)

ActiveDocument.DeleteAllEditableRanges (-1)

End Sub

---

Tüm tabloları seçmek için aşağıdaki kodu çalıştırınız.

Sub Tum_Tablolari_Sec()

ActiveDocument.DeleteAllEditableRanges (-1)

Dim Tbl As Table

For Each Tbl In ActiveDocument.Tables

If Tbl.Rows.Count > 1 Then

Tbl.Range.Editors.Add (-1)

End If

Next

ActiveDocument.SelectAllEditableRanges (-1)

ActiveDocument.DeleteAllEditableRanges (-1)

End Sub

Kaynak: https://www.extendoffice.com/documents/word/639-word-select-all-tables.html

---

Dosyadaki tüm tabloları silmek için aşağıdaki kodu çalıştırınız.

Sub Tablolari_Sil()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Delete

Next oTable

End Sub

Kaynak: https://www.extendoffice.com/documents/word/1208-word-remove-delete-all-tables.html

---

Bazı dosyalardaki tablolar metin içerisine, görseldeki gibi, yayılmış durumdadır.

Görseldeki işaretlenmek istenen "Yok" komutunu çalıştırmalıyız. Dolayısıyla, tabloları sade bir şekilde paragrafta tutmak, görseldeki komutu gerçekleştirmek için aşağıdaki kodu çalıştırınız.

Sub Tablolari_Satir_Disina_Cikar()

Dim oTable As Table

For Each oTable In ActiveDocument.Tables

oTable.Rows.WrapAroundText = False

Next oTable

End Sub

Kod çalıştırıldıktan sonra tablolar, görseldeki gibi, tek bir satıra yerleştirilmiştir.

Kaynak: https://microsoft.public.word.vba.general.narkive.com/15y0uOls/table-text-wrapping-property-from-vba

---

Kodlar Office 2013 ve 2016 sürümlerinde denenmiştir.

Konu ile ilgili yeni özellikler bulundukça veya üretilebildikçe buraya eklenecektir.