Merhaba arkadaslar
Dün modülün birini worde solidconverter ile dönüştürdüm ancak 9-10 bölüm sonu bikaç tane de sütun sonu oluşturulmuştu.
Tek tek bölüm ve sütun sonlarını sildim. Tam bir eziyet.
Bunun tek hamle ile yapılma yolu yok mu?
Tüm belgenin yazı tipini rengini tek seferde değiştirme gibi.
Tesekkürler.
Word 2007...
DÜZENLEME
@hoppala hocamın aşağıdaki çözümü işe yarayabilir ama daha kısa yolunu buldum.
Ctrl+H ile buş değiştir ekranına geldiğinizde aranan sekmesine ^b yazıyoruz. değiştir sekmesine hiçbir şey yazmıyoruz. boşluk bile... sonra tümünü değiştir diyoruz tamamdır.
daha farklı seçenekler de var. bul değiştir penceresindeki tüm seçenekler kısmına bastıgımızda alttaki gizli bölüm de açılıyor ya... orda özel diye bi buton var. oraya basarsanız paragraf işaretlerini filan da tek hamlede bulabildiğinizi göreceksiniz...
Dün modülün birini worde solidconverter ile dönüştürdüm ancak 9-10 bölüm sonu bikaç tane de sütun sonu oluşturulmuştu.
Tek tek bölüm ve sütun sonlarını sildim. Tam bir eziyet.
Bunun tek hamle ile yapılma yolu yok mu?
Tüm belgenin yazı tipini rengini tek seferde değiştirme gibi.
Tesekkürler.
Word 2007...
DÜZENLEME
@hoppala hocamın aşağıdaki çözümü işe yarayabilir ama daha kısa yolunu buldum.
Ctrl+H ile buş değiştir ekranına geldiğinizde aranan sekmesine ^b yazıyoruz. değiştir sekmesine hiçbir şey yazmıyoruz. boşluk bile... sonra tümünü değiştir diyoruz tamamdır.
daha farklı seçenekler de var. bul değiştir penceresindeki tüm seçenekler kısmına bastıgımızda alttaki gizli bölüm de açılıyor ya... orda özel diye bi buton var. oraya basarsanız paragraf işaretlerini filan da tek hamlede bulabildiğinizi göreceksiniz...
hoppala' Alıntı:Kod:Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll With ActiveDocument.Content.Find .Text = "^12" .Replacement.Text = "" .Execute Replace:=wdReplaceAll End With
.