title image


Smiley Re: unerwünschte Leerzeichen - schöner Brief
Hallo,auch mir ging es so. Aber jetzt klappt es und zwar so:"Brief" heißt bei mir die Dokumentvorlage, die geöffnet wird und "TMBriefkopf" ist die Textmarke/Stelle, an der der ausgewählte Datensatz/Adresse eingefügt wird bei Click auf das Word-Logo in meinem Formular.Meine Felder siehst Du ja (Firma1, Firma2...)Leerzeichen tauchen keine auf. Auch wenn bei amerikanischen Adressen keine PLZ vorkommt, steht der Ort ganz links.Habe ich mir mit Tipps zusammengebastelt, aber es funktioniert. Vielleicht hilft es Dir auch.Gruss AnnePrivate Sub Word_Click()Dim üwert As String 'neues Objekt erstellen Set wwobj = CreateObject("Word.Application") wwobj.Visible = True 'maximieren wwobj.WindowState = wdWindowStateMaximize 'neues Dokument erstellen wwobj.Documents.Add Template:="Brief" 'Briefkopf wwobj.Selection.Goto What:=wdGoToBookmark, Name:="TMBriefkopf" üwert = Nz(Me!Firma1) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) End If üwert = Nz(Me!Firma2) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) End If üwert = Nz(Me!Firma3) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) End If üwert = Nz(Me!Anrede) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(32) End If üwert = Nz(Me!Titel) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(32) End If üwert = Nz(Me!Vorname) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(32) End If üwert = Nz(Me!Nachname) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) End If üwert = Nz(Me!Straße) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) wwobj.Selection.TypeText text:=Chr$(11) End If üwert = Me!PLZ + " " & Me!Ort wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) üwert = Nz(Me!Land) If üwert "" Then wwobj.Selection.TypeText text:=üwert wwobj.Selection.TypeText text:=Chr$(11) End If Set wwobj = NothingEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: