word de tablo silmek

[ilhanfire]

merhaba elimde 4000 adet kitap var ve bunlar bilgi içerikli tablolar içeriyor. bütün dosyalardaki tabloları otomatik silecek bir kod yazabilirmiyiz ???

 

[sinbade]

merhaba elimde 4000 adet kitap var ve bunlar bilgi içerikli tablolar içeriyor. bütün dosyalardaki tabloları otomatik silecek bir kod yazabilirmiyiz ???

Tam olarak nasıl bir şey istiyorsunuz bilmiyorum ama aşağıdaki kodlar belgedeki bütün tabloları düz metne çeviriyor.

Sub TableToText()
Dim tableTemp As Table
Dim rngTemp As Range

     Set tableTemp = ActiveDocument.Tables(1)
     Set rngTemp = _
         tableTemp.ConvertToText(Separator:=wdSeparateByTabs)

End Sub

Sub ConvertAllTables()
     For Each aTable In ActiveDocument.Tables
     Call TableToText

     Next aTable

End Sub

Not: Tablolar Tablar esas alınarak metne çevriliyor. Kodları iki ayrı macro olarak kaydedin... ikinci macroyu (ConvertAllTables) çalıştırın.

İkinci Not: Üstadlar daha farklı çözümler üretebilirler. Ben böyle bir çözüm yolu bulabildim.

Umarım faydalı olur.

 

[sinbade]

Tabi iki makroyu birleştirmek de mümkün,

Sub TableToText()
Dim tableTemp As Table
Dim rngTemp As Range
    For Each aTable In ActiveDocument.Tables
        Set tableTemp = ActiveDocument.Tables(1)
        Set rngTemp = tableTemp.ConvertToText(Separator:=wdSeparateByTabs)
    Next aTable
End Sub