home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / CHIPINTE072002.ISO / exe / MakroCod.exe / MakroCode.txt
Encoding:
Text File  |  2002-05-07  |  601 b   |  23 lines
  1. Sub Kursiv_finden()
  2. '
  3. ' Kursiv_finden Makro
  4. ' Makro aufgezeichnet am 15.04.2002 von Frank Arnoldt
  5. '
  6.     Selection.Find.ClearFormatting
  7.     Selection.Find.Replacement.ClearFormatting
  8.     Selection.Find.Font.Italic = True
  9.     With Selection.Find
  10.         .Text = ""
  11.         .Replacement.Text = ""
  12.         .Forward = True
  13.         .Wrap = wdFindContinue
  14.         .Format = True
  15.         .MatchCase = False
  16.         .MatchWholeWord = False
  17.         .MatchWildcards = False
  18.         .MatchSoundsLike = False
  19.         .MatchAllWordForms = False
  20.     End With
  21.     Selection.Find.Execute
  22. End Sub
  23.