title image


Smiley Re: Na ja ...


Gruß, Chrisir













Option Explicit





Sub AmEndeDesDokuments()

    

    ' gehe ans Ende

    Selection.EndKey unit:=wdStory, Extend:=wdMove

    Selection.Collapse wdCollapseEnd

    ' Markiere nach links

    Selection.MoveLeft unit:=wdWord, Count:=3, Extend:=wdExtend

    

    ' Kursiv?

    Select Case Selection.Range.Font.Italic

        Case True

            ' Tue nichts

        Case False

            ' setze fett

            Selection.Range.Font.Bold = True

        Case wdUndefined

            ' Tue nichts

        Case Else

            ' Fehler

            MsgBox "Case Else", vbExclamation

    End Select



End Sub







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: