Eklenti makro

[turkanet]

merhaba,

word'de eklenti olarak kullanabileceğim ve

ahmet i
mehmet ile değiştirmeye yarayacak makro hakkında yardımlarınız beklerim

saygılar

 

[turkanet]

değerli yardımlarınızı beklerim

 

[Ali]

merhaba,

word'de eklenti olarak kullanabileceğim ve

ahmet i
mehmet ile değiştirmeye yarayacak makro hakkında yardımlarınız beklerim

saygılar

Word dosyası kapalıda olsa kelimeleri değiştirir.

http://www.excel.web.tr/showthread.php?t=16770

 

[turkanet]

Merhaba,

normal.dot 'a

Sub Makro2()
.Find.Text = "ahmet"
.Replacement.Text = "mehmet"
End Sub

yazdım ama hata veriyor ilk cümlede.

nasıl düzeltebilirim?

 

[turkanet]

değerli arkadaşlar,

1- belge içinde "ahmet" i "mehmet" ile değiştirmeye yarayacak
2- belge içinde 100 puntoluk yazıtiplerini 10 puntoya çevirecek
3- belge içinde dili ingilizceye çevirecek
4- seçili alan içinde "ahmet" i "mehmet" ile değiştirmeye yarayacak
5- seçili alan içinde100 puntoluk yazıtiplerini 10 puntoya çevirecek
6- seçili alan içinde dili ingilizceye çevirecek

ayrı ayrı word makrolarına ihtiyacım var.

değerli yardımlarınızı bekliyorum

saygılar

 

[turkanet]

arkadaşlar,

değerli yardımlarınızı beklerim

 

[turkanet]

değerli arkadaşlar,

aşağıdaki sorular hakkında çeşitli cevaplar buldum ve aşağıda listeliyorum;

1- belge içinde "ahmet" i "mehmet" ile değiştirmeye yarayacak

Sub değiştir()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Ahmet"
.Replacement.Text = "Mehmet"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3- belge içinde dili ingilizceye çevirecek

Sub Dil_1()
Selection.WholeStory
Selection.LanguageID = wdEnglishUS
Application.CheckLanguage = True
Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

6- seçili alan içinde dili ingilizceye çevirecek

Sub Dil_2()
Selection.LanguageID = wdEnglishUS
Application.CheckLanguage = True
Selection.MoveUp Unit:=wdLine, Count:=1
End Sub


Bunlar ise cevabını bulamadıklarım;

2- belge içinde 100 puntoluk yazıtiplerini 10 puntoya çevirecek
4- seçili alan içinde "ahmet" i "mehmet" ile değiştirmeye yarayacak
5- seçili alan içinde100 puntoluk yazıtiplerini 10 puntoya çevirecek

değerli cevaplarınızı ve yardımlarınızı beklerim

saygılar

 

[turkanet]

değerli arkadaşlar,

aşağıdaki sorulara değerli cevaplarınızı beklerim;

- belge içinde 100 puntoluk yazıtiplerini 10 puntoya çevirecek
- seçili alan içinde100 puntoluk yazıtiplerini 10 puntoya çevirecek

word makrolarına ihtiyacım var

saygılarımla,

 

[turkanet]

değerli yönetici arkadaşlar,

ilgili konu başlığını

word makro - biçimlendirme

olarak değiştirmenizi rica ederim