title image


Smiley Re: Word Makro
Eine kleine Auswahl, die hoffentlich bei Dir funktioniert.

Sub TestA()

Dim HText$, selText As String, DezL As String, DezR As String

'

HText$ = "(Text in runden Klammern)" & vbTab & vbTab & "= 1" & vbNewLine _

& "[Text in eckigen Klammern]" & vbTab & vbTab & "= 2" & vbNewLine _

& "Text in ""Gänsefüsschen""" & vbTab & vbTab & "= 3" & vbNewLine _

& "'Text in 'Hochkommas'" & vbTab & vbTab & "= 4" & vbNewLine _

& Chr(187) & "Text in frz.Anführungszeichen" & Chr(171) _

& vbTab & "= 5" & vbNewLine & vbNewLine _

& "Bitte geben Sie die Kennziffer ein:" _

& vbNewLine & "(Falsche Eingaben werden ignoriert)"

'

Bereich$ = InputBox(HText$, " Sonderzeichen einfügen")

'Abbruch

If Len(Bereich$) = 0 Or Bereich$ "5" Then Exit Sub



Select Case Bereich$

Case "1"

'runde Klammern

DezL = ChrW(40): DezR = ChrW(41)

Call SZeinfügen(DezL, DezR)

Case "2"

'eckige Klammern

DezL = ChrW(91): DezR = ChrW(93)

Call SZeinfügen(DezL, DezR)

Case "3"

'Gänsefüsschen

DezL = ChrW(34): DezR = ChrW(34)

Call SZeinfügen(DezL, DezR)

Case "4"

'Hochkommata

DezL = ChrW(39): DezR = ChrW(39)

Call SZeinfügen(DezL, DezR)

Case "5"

'frz. Anführungszeichen

DezL = ChrW(187): DezR = ChrW(171)

Call SZeinfügen(DezL, DezR)

End Select

End Sub

' - - - - - - - - - - - - - - - - -

Private Sub SZeinfügen(DezL, DezR)

With Selection

.Expand Unit:=wdWord

selText = Trim(.Text)

.Cut

.TypeText Text:=DezL & selText & DezR & Chr(32)

End With

End Sub

      Hubert







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: