title image


Smiley Makro in Word will nicht mehr
hallo,



habe von word 2000 auf 2003 umgestellt und probleme mit einem makro. bin kein fachmann und habe nur dieses eine makro, wäre aber schön, wenn ich es wieder zum laufen brächte.

Fehlermeldung Word hat den Suchvorgang für diesn Bereich beendet. Zu suchender Text wurde nicht gefunden......

Mein Makro:

......

Selection.Find.ClearFormatting

With Selection.Find

.Text = "suchtext1 "

.Replacement.Text = "Falsch"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchKashida = False

.MatchDiacritics = False

.MatchAlefHamza = False

.MatchControl = False

.MatchByte = False

.CorrectHangulEndings = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = False

.MatchFuzzy = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCell

Selection.Copy

Selection.Find.ClearFormatting

With Selection.Find

.Text = "suchtext1 soll hierhinter copiert werden "

.Replacement.Text = "Falsch"

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchKashida = False

.MatchDiacritics = False

.MatchAlefHamza = False

.MatchControl = False

.MatchByte = False

.CorrectHangulEndings = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = False

.MatchFuzzy = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Selection.PasteAndFormat (wdPasteDefault)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: