Warum wird Markierung bei Ausführen des Makros gelöscht ? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2002] Warum wird Markierung bei Ausführen des Makros gelöscht ?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 18.03.2008, 10:36

Hallo Forum,

ich möchte in einem Word-Text in einem markierten Bereich bestimmte Ersetzungen und Formatierungen vornehmen und denn den markierten, geänderten Bereich in die Zwischenablage kopieren.
In dem ersten Teil (makro 1) werden estimmte Zeichen gegen Leerzeichen getauscht.
Im zweiten Teil (makro2) soll der markierte Teil als Aufzählung formatiert werden.
Das klappt soweit auch, aber nach makro2 wird aus einem mir nicht erfindlichen Grund die Markierung gelöscht so dass der Befehl

Code:

Selection.Copy

zu der Fehlermeldung führ, es sei kein Bereich markiert (Laufzeitfehler 4605).

Beide makros funktionieren getrennt voneinander einwandfrei und die Markierung bleibt erhalten. Werden sie jedoch hintereinander ausgeführt. ist die Markierung weg. Weiß jemand warum und was man dagegen tun kann ?

makro1:

Code:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = " "
.Forward = True

.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True

.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "GdB"
.Replacement.Text = "(GdB "
.Forward = True

.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "0"
.Replacement.Text = "0)" + "^p" 'Chr$(13) + Chr$(13) + Chr$(13)

.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

makro2:

Code:

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = ChrW(61623)
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = CentimetersToPoints(0.63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1.27)
.TabPosition = CentimetersToPoints(1.27)
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = wdUndefined
.Italic = wdUndefined
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = "Symbol"
End With
.LinkedStyle = ""
End With
ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

_________________
Chakko

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zellkommentare mit Hilfe eines Makros...	Exl121150	Microsoft Excel Hilfe	0	26.11.2008, 16:20
	Design wird falsch gedruckt	RiRoSl	Microsoft Word Hilfe	0	18.11.2008, 18:02
	Hilfe:Word-Dokument wird stark vergrö...	prinzessinlinea	Microsoft Word Hilfe	0	12.11.2008, 13:29
	Tastaturen sind plötzlich falsch bele...	Alfff	Microsoft Word Hilfe	2	16.09.2008, 08:43
	Makro ausführen bei Wertänderung in Z...	silex1	Microsoft Excel Hilfe	4	10.09.2008, 09:09

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de