title image


Smiley Re: Meine Methode geht sowieso nicht
So?



















.S0 {

font-family: Lucida Sans Unicode;

color: #000000;

font-size: 10pt;

}

.S1 {

font-family: Comic Sans MS;

color: #007F00;

font-size: 9pt;

}

.S2 {

color: #007F7F;

}

.S3 {

color: #00007F;

}

.S4 {

color: #7F007F;

}

.S6 {

color: #000000;

}

span {

font-family: Verdana;

font-size: 10pt;

}







Sub Makro111()

'

' Makro am 01.08.2004

'



    Dim oRange  As Range

    Dim OldPos

    

    

    Selection.HomeKey unit:=wdStory, Extend:=wdExtend

    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

        While .Execute

            Set oRange = .Parent.Range

            oRange.Start = oRange.Start

            oRange.End = oRange.End

            OldPos = oRange.End + 1

            Selection.Collapse wdCollapseStart

            If ActiveDocument.Bookmarks.Exists("\Line") Then

                ActiveDocument.Bookmarks("\Line").Select

            End If

            If Selection.End <> OldPos - 1 Then

                oRange.SetRange OldPos - 2, OldPos - 1

                oRange.Select

                If MsgBox("Diese Vorkommen von ^- löschen?", vbYesNo) = vbYes Then

                    Selection.Delete

                End If

            End If

            Selection.Collapse wdCollapseEnd

            Selection.Start = OldPos

            Selection.End = OldPos

            Selection.Range.Select

            Selection.Collapse wdCollapseEnd

        Wend

    End With

    

    MsgBox "Fertig.", vbInformation

    

End Sub















geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: