title image


Smiley Verwende anstatt %Name% einfach eine Textmarke mit sprechendem Namen
Hallo Daniel,



man kann im Text zwar nach %name% suchen, aber sinnvoller wäre es doch, an den jeweiligen Stellen Textmarken zu verwenden, die man dann per VBA "anspringt" und durch einen im UserForm eingegebenen Text ersetzt.



Hier ein Code-Beispiel, das die Textmarken "tm1", "tm2", "tm3" nacheinander markiert und jeweils durch den Inhalt der "Textbox1", "Textbox2", "Textbox3" des UserForms ersetzt. Da beim Ersetzen der Inhalte im Text die Textmarke gelöscht wird, wird sie unmittelbar danach wieder neu erzeugt :

Private Sub CommandButton1_Click()

    'Ersetzt Textmarken "tm1" bis "tm3" im Text

    'durch Inhalte der "Textbox1" bis "Textbox3" des UserForms

    For tm = 1 To 3

        ActiveDocument.GoTo(What:=wdGoToBookmark, Name:="tm" & tm).Select

        Selection.ClearFormatting

        Selection.Text = Controls("TextBox" & tm).Value & " "

        Selection.Bookmarks.Add Name:="tm" & tm

    Next

End Sub

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: