title image


Smiley Re: im select ein field finden und dazwichen ein feld einbauen
Noch einmal etwas genauer:





      

Dim rg As Range   ' damit kann man oft besser arbeiten, als mit Selection

If Selection.Fields.Count=0 Then

 ' kein Feld vorhanden

Else

 ' hier willst Du wohl was einfügen:

 Set rg=Selection.Range   'falls Du die alte Selection noch brauchst

                          ' Für das feld lässt sich leider kein Range angeben

 Selection.Fields(1).Select

 Selection.Collapse Direction:=wdCollapseEnd

 Selection.Fields.Add (Selection.Range,Type, Text, PreserveFormatting)

End if 

 



Code eingefügt mit Syntaxhighlighter 3.0







Die letzten 3 Parameter der Add-Methode musst Du noch nach Deinen Wünschen anpassen.



mfg Rita

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: