merhaba elimde 4000 adet kitap var ve bunlar bilgi içerikli tablolar içeriyor. bütün dosyalardaki tabloları otomatik silecek bir kod yazabilirmiyiz ???
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.
Kod:
Sub TableToText()
Dim tableTemp As Table
Dim rngTemp As Range
Set tableTemp = ActiveDocument.Tables(1)
Set rngTemp = _
tableTemp.ConvertToText(Separator:=wdSeparateByTabs)
End Sub
Kod:
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.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.