Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
leere Textmarken ohne Absatz
zurück: Zeit-hinweis weiter: formular für tabelle mit 3 spalten, 1 feld soll bis zum ... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wolfi
Gast


Verfasst am:
06. Jan 2005, 18:37
Rufname:

leere Textmarken ohne Absatz - leere Textmarken ohne Absatz

Nach oben
       

Hallo,

ich habe folgendes Problem: Übergebe hier mit dem Button Daten aus dem Access Formular an Word. Das funktioniert auch gut. Sobald aber ein Formularfeld leer bleibt, bleibt auch die Textmarke leer und so entsteht ein
Absatz in Word. Wenn also nun die Kontaktperson (z.H. ...) leer ist entsteht eine unschöne Leerzeile zwischen NAME und STRASSE.

Irgendwie soll es wohl mit Vergabe von Variablen und einer Textmarke gehen. Nur wie? Kann mir vielleicht jemand helfen.....

Danke und Gruß, Wolfi
Code:
Private Sub Kundenbrief_Click()
On Error GoTo Kundenbrief_Err
    Dim objWord As Word.Application

    'Start Microsoft Word 2000.
    Set objWord = CreateObject("Word.Application")
    With objWord
        'Make the application visible.
        .Visible = True
        'Open the document.
        objWord.Documents.Add Template:=("C:\Standardbrief_jup_Datenbank.dot")
        'Move to each bookmark and insert text from the form.
        .ActiveDocument.Bookmarks("KUNDNR").select
        .Selection.Text = (CStr(Forms!Adresse!KUNDNR))
        .ActiveDocument.Bookmarks("ANREDE").select
        .Selection.Text = (CStr(Forms!Adresse!Anrede))
        .ActiveDocument.Bookmarks("VORNAME").select
        .Selection.Text = (CStr(Forms!Adresse!VORNAME))
        .ActiveDocument.Bookmarks("NAME").select
        .Selection.Text = (CStr(Forms!Adresse!Name))
        .ActiveDocument.Bookmarks("KONTAKT").select
        .Selection.Text = (CStr(Forms!Adresse!KONTAKT))
        .ActiveDocument.Bookmarks("STRASSE").select
        .Selection.Text = (CStr(Forms!Adresse!STRASSE))
        .ActiveDocument.Bookmarks("PLZ").select
        .Selection.Text = (CStr(Forms!Adresse!PLZ))
        .ActiveDocument.Bookmarks("ORT").select
        .Selection.Text = (CStr(Forms!Adresse!Ort))
        .ActiveDocument.Bookmarks("BRANREDE").select
        .Selection.Text = (CStr(Forms!Adresse!BRANREDE))
    End With
    Exit Sub

Kundenbrief_Err:
    Select Case Err.Number
      'If a field on the form is empty, remove the bookmark text and
      'continue.
      Case 94
        objWord.Selection.Text = ""
        Resume Next
      'If the Photo field is empty.
      Case 2046
        MsgBox "Please add a photo to this record and try again."
      Case Else
        MsgBox Err.Number & vbCr & Err.Description
    End Select
    Exit Sub
End Sub
lothi
c#, .Net


Verfasst am:
07. Jan 2005, 14:18
Rufname:
Wohnort: Birgisch

AW: leere Textmarken ohne Absatz - AW: leere Textmarken ohne Absatz

Nach oben
       

Hallo wolfi

Eventuell könnte es ja funktionieren wenn du ein Leerzeichen mitgibst.
Code:
        ActiveDocument.Bookmarks("KUNDNR").select
        .Selection.Text = (CStr(Forms!Adresse!KUNDNR)&" ")

Hab es nicht getestet war nur so eine Spontane Idee. Sollten die Felder NULL enthalten kannst du diese mit NZ() abfangen:
Code:
        ActiveDocument.Bookmarks("KUNDNR").select
        .Selection.Text = (CStr(NZ(Forms!Adresse!KUNDNR,"")))

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
wolfi
Gast


Verfasst am:
07. Jan 2005, 14:58
Rufname:


AW: leere Textmarken ohne Absatz - AW: leere Textmarken ohne Absatz

Nach oben
       

Vielen Dank,
hat mir aber leider nicht geholfen. Habe aber einen Code gefunden, der genau das macht was ich erreichen wil;, bei meinem Versuch das auf mein Script zu münzen, kamen nur Fehler. Hier das, was ich gefunden habe:
Code:
    If Not IsNull(Me!Name1) Then inhalt = inhalt & Me!Name1
    If Not IsNull(Me!Name2) Then inhalt = inhalt & vbCrLf & Me!Name2
    If Not IsNull(Me!Name3) Then inhalt = inhalt & vbCrLf & Me!Name3
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Anrede)) Then
        inhalt = inhalt & vbCrLf & (Nz(Form!GastroKontaktpersonen!Anrede))
    End If
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Vorname)) Then
        inhalt = inhalt & " " & (Nz(Form!GastroKontaktpersonen!Vorname))
    End If
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Nachname)) Then
        inhalt = inhalt & " " & (Nz(Form!GastroKontaktpersonen!Nachname))
    End If
    If Not IsNull(Me!Strasse) Then inhalt = inhalt & vbCrLf & Me!Strasse
    If Not IsNull(Me!PLZ) Then inhalt = inhalt & vbCrLf & Me!PLZ
    If Not IsNull(Me!Ort) Then inhalt = inhalt & " " & Me!Ort
    If Len(Trim(inhalt)) > 0 Then
        wwobj.Selection.Goto what:=wdGoToBookmark, Name:="DeineEinzigeTextmarke"
        wwobj.Selection.TypeText Text:=inhalt
    End If

Die Beschreibung von dem Autor war so, dass man nicht für
jedes Adressfeld eine Textmarke setzt, sondern nur eine, die dann
per Variable im Script den kompletten oder eben auch nicht kompletten
Adressblock in das Word-Doc ausgibt. So entscheidet schon das Script, ob
Formularfelder die Leer sind mitgeschickt werden.

Wie setze ich das nun auf mein obiges Script um???

Danke schonmal

Gruß, Wolfi
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Datensatzfelder machen Fehler beim zurücksetzen 9 Xia0 409 03. Dez 2009, 16:46
Xia0 Leere Datensatzfelder machen Fehler beim zurücksetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder mit Wert 0 befüllen, Aktualisierungsabfrage? 12 Gast 2043 01. Nov 2009, 14:43
RIGA Leere Felder mit Wert 0 befüllen, Aktualisierungsabfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: leere Tabelle 44MB groß?! 4 Schokomonster 394 16. Okt 2009, 16:38
Schokomonster leere Tabelle 44MB groß?!
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: leere Felder werden nicht angezeigt 2 Gast 908 25. März 2009, 18:25
Gast Abfrage: leere Felder werden nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder mit ausgeben? 1 Gast 604 21. Feb 2009, 23:35
Thomas2007 Leere Felder mit ausgeben?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis bezieht leere Zellen nicht mit ein 13 Grango 800 10. Dez 2008, 17:42
Willi Wipp Abfrageergebnis bezieht leere Zellen nicht mit ein
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nach wenn Datumsfeld nur volle anzeigen leere nicht 3 adamth 1629 22. Jul 2008, 18:28
KlausMz Abfrage nach wenn Datumsfeld nur volle anzeigen leere nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Kreutztabellenabfrage Leere Felder mit 0 füllen 4 Feuerpferd 3241 22. Apr 2008, 12:40
Feuerpferd Kreutztabellenabfrage Leere Felder mit 0 füllen
Keine neuen Beiträge Access Tabellen & Abfragen: leere Felder durch kleinsten Wert ersetzen 16 Kathrin_bcn 2823 03. März 2008, 18:06
Kathrin_bcn leere Felder durch kleinsten Wert ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Zellen anzeigen 2 Babsi_Acc 707 03. Aug 2007, 13:41
Willi Wipp Leere Zellen anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Erstellen von Tabellen - Leere Zeichenfolge zulassen 7 M.o.C. 2859 17. Jul 2007, 00:27
Rhett Erstellen von Tabellen - Leere Zeichenfolge zulassen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageverknüpfung verweist auf teils leere Felder 17 spidermanni 1854 16. Apr 2007, 17:27
spidermanni Abfrageverknüpfung verweist auf teils leere Felder
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum