Tüm noktalama işaretlerini kaldırmak.

[daali]

Selamlar forumdaşlar,
WORD dokümanında tüm noktalama işaretlerini birden ve olabilirse hızlıca kaldırmak istiyorum,nokta,virgül,parantez,soru işareti ...vd.
Bunun için güzel bir makro programı lazım.
Yeğenim görme özürlüdür.Onun için kitap okuma programı ile word dokümanlarını rahatça dinlemesini istiyorum.Bu program noktalamalarıda seslendiriyor.Lütfen yardımcı olun.
Birde "pdf" formatlı dokümanları WORD belgesine nasıl değiştirebilirim.Bu konuda çözümlenebilimi?
Saygılarımla

 

[mehmett]

Ctrl+H tuşlayınca gelen pencerede iki boşluk olacak. Birinci boşluğa bir soru işareti koyun, ikinci boşluğu boş bırakın ve Tümünü değiştir tuşuna tıklayın. Dosyadaki tüm soru işaretlerinin yok olduğunu göreceksiniz. Aynı şekilde diğer noktalama işaretlerini de silebilirsiniz.

Pdf formatındaki dosyaların içeriğini kopyalayıp bir word dosyasına taşıyabilirsiniz. İçerik seçilemiyorsa Adobe reader programının araç çubuğundaki "Select" tuşuna tıkladıktan sonra seçebilirsiniz.

 

[daali]

Çok sağolun mehmett bey,
Çok makbule geçti cevabınız.Fakat 1. sorum için tümünü birden ,tüm noktalama işaretlerini birden kaldırabilecek bir çözüm olsa daha iyi olacak.Zira tek tek ,bahsettiğiniz bul-değiştir komutu ile değiştirebiliyorum.
Saygılarımla.

 

[dEdE]

Aşağıdaki kodlar istediğinizi yapacaktır.
Saygılar.

Sub Nokta()
' Makro, dEdE tarafından 08.03.2007 tarihinde kaydedildi

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
'-------------Buradan itibaren *** işareti olan yere kadar kopyalayıp aşağıya(End Sub dan önce)yapıştırınız.----------
With Selection.Find
.Text = "?" ' DİKKAT Tırnak içindeki noktalama işaretini değitirmelisiniz.
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'***
'------Bu çizginin altına yapıştırınız.-----------'Tırnak içindeki noktalama işaredini değitirmeyi unutmayınız.-----
'-----Değiştirmek istediğiniz her noktalama işareti için bu işlemi ayrı ayrı yapmalısınız.-------
'----Makroyu Çalıştırdığınızda istediğiniz işaretler kaldırılmış olacaktır.
'Makroyu Normal.Dot dosyasına kayıt ederseniz açtığınız her belgede çalışacaktır.



End Sub

 

[PrivateSub]

Bu iş için makro kullanmaya gerek yok. Zaten yukarıda önerilen makro kodu da işinizi görmeyecek çünkü, istenmeyen tüm karakterleri bir dizide tanımlayıp, döngü ile işlem yapmanız gerekir ..... v.s.

Bu nedenle, yukarıda bahsedildiği gibi Bul-Değiştir metodu ile bu işi basitçe yapabilirsiniz. Ama, hafiften birazcık düzenleme yapacaksınız.

Önce, Bul - Değiştir menüsünü çalıştırın ve ekrana gelen penceredeki "More" düğmesini tıklayın.

Bu düğmeyi tıklayınca, ortaya çıkan seçeneklerden "Use Wildcards" seçeneğini işaretleyin.

Şimdi, Bul kutusuna aşağıdakini olduğu gibi yazın veya kopyalayın:

[!a-zA-Z0-9 ]

Şimdi, Değiştir kutusunu boş bırakıp, "Tümünü Değiştir" düğmesini tıklayın.

İşlem tamamdır.

 

[daali]

Tamam ,şimdi oldu .Çok teşekkürler sayın PrivateSub.
Makrolu çözümü hiç uygulamadım ,zira bu çok güzel ve kısa .Sizede teşekkür ederim sayın dEdE.
Sayın PrivateSub Wordde ilginç ,pratik ,kısa ve öz yöntemli böylesi örnekleri forumda yayınlasanız .
Saygılarımla.