Word'de Makro Düzenleme Hk. Yardım.

Hattushil

Altın Üye
Katılım
20 Şubat 2011
Mesajlar
94
Excel Vers. ve Dili
Office 365 Türkçe
Elimde daha önceki kişilerden kalma makro var,
Bu makro'da bazı düzenlemeler yapmak istiyorum ama fazla makro bilgim yok.

Yardımcı olur musunuz?

Örneğin;
Makro ile word belgesindeki madde imlerinden sonra bırakılan Tab boşluklarını kaldırabilir miyim? Kopyala yapıştır ile aldığım programda Tab alanları boşluk olarak görünüyor.

1)[Tab]Test
1)[Boşluk] Test


Kullandığım Makro;
Sub DÜZEN()
'
' DÜZEN Makro
'
'
Selection.WholeStory
Selection.Font.Name = "Arial"
Selection.Font.Size = 10
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
Selection.ParagraphFormat.TabStops.ClearAll
ActiveDocument.DefaultTabStop = CentimetersToPoints(0)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "MADDE"
.Replacement.Text = "Madde"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Makro1()
'
' Makro1 Makro
'
'
End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
İstediğiniz böyle bir kod mu?

Sub tabsil()
Selection.ParagraphFormat.TabStops.ClearAll
End Sub
 

Hattushil

Altın Üye
Katılım
20 Şubat 2011
Mesajlar
94
Excel Vers. ve Dili
Office 365 Türkçe
anladığım kadarı ile tab bölümünü kaldırıyor.
değil mi?

kendi koduma eklerken,

Selection.ParagraphFormat.TabStops.ClearAll

şeklinde mi ekleyeceğim?

uyguladığımda,
tab olanlan yerleri

kullandığım yani yapıştırdığım programda "ooo" şeklinde atıyor, yani boşluk.
 
Son düzenleme:

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Verdiğim kod sadece TAB'ları siliyor, başka ne yapılmak isteniyorsa yazarsanız ona göre bir MAKRO oluşturulabilir.
 

Hattushil

Altın Üye
Katılım
20 Şubat 2011
Mesajlar
94
Excel Vers. ve Dili
Office 365 Türkçe
Verdiğim kod sadece TAB'ları siliyor, başka ne yapılmak isteniyorsa yazarsanız ona göre bir MAKRO oluşturulabilir.
kod ile tab olan yerleri kaldırdım ama boşluk şeklinde çıkıyor yani "Tümünü Göster" butonuna tıklayınca ooo şeklinde çıkıyor.
bunu nasıl düzeltebilrim?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Örnek dosya yüklerseniz sorun daha iyi anlaşılır.
 
Üst