Platzhalter suchen und Absätze per Makro einrücken

12/01/2010 - 18:58 von Dietmar Krawinkel | Report spam
Hallo NGs,

ich benötige schon wieder Eure Hilfe.

Ich möchte unter Word03 mit Hilfe des beigefügten Makros,
welches ich mit dem Rekorder aufgezeichnet habe :-( ,
die Platzhalter "--" suchen, den linken Einzug um 0,5 cm versetzen
und die o.g. Platzhalter löschen.

Manuell làuft's, als Makro leider nicht!

Hier das Makro:

Sub Einzug_links()

Selection.Find.ClearFormatting
With Selection.Find
.Text = "--"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0.5)
.RightIndent = CentimetersToPoints(0)
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitAfter = 0
End With
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Gruß
Dietmar
 

Lesen sie die antworten

#1 Helmut Weber
13/01/2010 - 15:47 | Warnen spam
Hallo Dietmar
etwa so:

Sub Macro3()
Dim rTmp As Range
Dim rPrg As Paragraph
Set rTmp = ActiveDocument.Range
For Each rPrg In rTmp.Paragraphs
If rPrg.Range.Characters(1) = "-" And _
rPrg.Range.Characters(2) = "-" Then
' auf "" setzen, weil sonst eventuell Autokorrekt-Automatismen greifen
rPrg.Range.Characters(1) = ""
' weil Zeichen 1 jetzt verschwunden ist und das alte Zeichen 2
' jetzt vorne steht, nochmal löschen
rPrg.Range.Characters(1) = ""
End If
rPrg.LeftIndent = CentimetersToPoints(0.5)
Next
End Sub

Das erhöht aber nicht den linken Einzug um 0,5 Zentimeter,
das wàre noch ein wenig komplizierter,
sondern setzt ihn auf 0,5 Zentimeter.

Gruß

Helmut Weber

Vista Small Business, Office XP

Ähnliche fragen