Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Automatisch Dateien suchen und drucken
zurück: Textmarken werden beim text erfassen gelöscht weiter: Codeumwandlung in Word 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
Joachim noname
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Apr 2005, 12:16
Rufname:

Automatisch Dateien suchen und drucken - Automatisch Dateien suchen und drucken

Nach oben
       

Hallo zusammen!

Ich möchte gerne in einem Word-Dokument (Word 2000) den Anwender nach einem Namen fragen und dann alle Dateien automatisch ausdrucken, die Name*.* heißen (in einem bestimmten Verzeichnis).

Beispiel: "Bitte geben Sie einen Namen ein:", der Anwender tippt nun "Hans" ein. Jetzt werden alle Dateien, welche Hans*.* heißen ausgedruckt.

Sollte Hans*.* aber nicht existieren, so soll Standard*.* ausgedruckt werden.

Fällt jemandem eine Lösung ein?

Ist übrigens ein geniales Forum, schade nur, dass ich es viel zu spät entdeckt habe. Embarassed

Gruß
Joachim
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
17. Nov 2005, 00:53
Rufname:
Wohnort: Leipzig


AW: Automatisch Dateien suchen und drucken - AW: Automatisch Dateien suchen und drucken

Nach oben
       

Hallo Joachim,

falls du noch an dem Projekt dran bist, sonst für die "Nachwelt", so geht es:
Code:
Sub HansDruck()

    Dim Antw As String
    Const Standard As String = "Standard"
    Const Pfad As String = "C:\Eigene Dateien\"
   
    Antw = InputBox(Prompt:="Bitte geben Sie den Namen ein!", Default:=Standard)
    If Trim(Antw) = "" Then Exit Sub
   
    If IsDiskFile(Pfad & Trim(Antw) & "\*.*") Then
        AlleDateienAnsprechen Verz:=Pfad, DName:=Trim(Antw) & "\*.*"
    Else
        AlleDateienAnsprechen Verz:=Pfad, DName:=Standard & "*.*"
    End If
   
End Sub
Function IsDiskFile(fName As String) As Boolean
    'liefert True zurück, wenn fName gefunden wurde, ansonsten False

    If (Dir(fName) <> "") Then
        IsDiskFile = True
    Else
        IsDiskFile = False
    End If

End Function
Sub AlleDateienAnsprechen(ByVal Verz As String, ByVal DName As String)
 
    DName = Dir(Verz & DName)
   
    If DName <> "" Then
        Dateiendrucken Verz, DName
    End If
   
    Do While (DName <> "")
        DName = Dir()
        If DName <> "" Then
            Dateiendrucken Verz, DName
        End If
    Loop
   
End Sub
Sub Dateiendrucken(ByVal Verz As String, ByVal DName As String)

    Documents.Open (Verz & DName)
    With Documents(DName)
        .PrintOut
        .Close SaveChanges:=wdDoNotSaveChanges
    End With
   
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Joachim noname
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2005, 21:30
Rufname:

Vielen Dank - Vielen Dank

Nach oben
       

Hallo Lisa!
Recht herzlichen Dank für deine Antwort! Nachdem ich länger keine Antwort bekam, musste ich mich sehr mühsam selbst durchwurschteln. Sad

Ich habe es zwischenzeitlich über Excel hinbekommen, in ganz ähnlicher Art. Idea

Trotzdem vielen Dank für deine Bemühungen und dass du noch an mich gedacht hast. Very Happy

Leider muss ich ein wenig den "Besserwisser" spielen. Twisted Evil

Ein paar "Backslashs" sind dir zuviel reingerutscht. Hier der korrigierte, lauffähige Code:

Sub HansDruck()

Dim Antw As String
Const Standard As String = "Standard"
Const Pfad As String = "C:\Eigene Dateien\"

Antw = InputBox(Prompt:="Bitte geben Sie den Namen ein!", Default:=Standard)
If Trim(Antw) = "" Then Exit Sub

If IsDiskFile(Pfad & Trim(Antw) & "*.*") Then
AlleDateienAnsprechen Verz:=Pfad, DName:=Trim(Antw) & "*.*"
Else
AlleDateienAnsprechen Verz:=Pfad, DName:=Standard & "*.*"
End If

End Sub
Function IsDiskFile(fName As String) As Boolean
'liefert True zurück, wenn fName gefunden wurde, ansonsten False

If (Dir(fName) <> "") Then
IsDiskFile = True
Else
IsDiskFile = False
End If

End Function
Sub AlleDateienAnsprechen(ByVal Verz As String, ByVal DName As String)

DName = Dir(Verz & DName)

If DName <> "" Then
Dateiendrucken Verz, DName
End If

Do While (DName <> "")
DName = Dir()
If DName <> "" Then
Dateiendrucken Verz, DName
End If
Loop

End Sub
Sub Dateiendrucken(ByVal Verz As String, ByVal DName As String)

Documents.Open (Verz & DName)
With Documents(DName)
.PrintOut
.Close SaveChanges:=wdDoNotSaveChanges
End With

End Sub


Gruß
Joachim
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
18. Nov 2005, 19:45
Rufname:
Wohnort: Leipzig


AW: Automatisch Dateien suchen und drucken - AW: Automatisch Dateien suchen und drucken

Nach oben
       

Hallo Joachim,

ja, da hast du Recht. Es war wohl doch schon etwas spät.
Aber lieb, dass du das noch hier eingestellt hast, so haben spätere Nutznießer nicht erst noch Probleme.
Danke und lieben Gruß
Lisa
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 Word Serienbriefe: Serienbrief beidseitig drucken - Probleme 3 Allgaier 2934 25. Feb 2010, 15:03
Allgaier Serienbrief beidseitig drucken - Probleme
Keine neuen Beiträge Word Serienbriefe: Serienbrief Word2000 - leere Seiten beim Drucken 10 Tevil 9186 15. Jan 2010, 10:51
Tinchenfc Serienbrief Word2000 - leere Seiten beim Drucken
Keine neuen Beiträge Word Serienbriefe: Größe der Graphik automatisch anpassen 0 Struppi 2825 02. Jun 2009, 13:05
Struppi Größe der Graphik automatisch anpassen
Keine neuen Beiträge Word Serienbriefe: Serienmail Datenquelle automatisch verbinden 0 adamth 1712 13. Sep 2008, 14:00
adamth Serienmail Datenquelle automatisch verbinden
Keine neuen Beiträge Word Serienbriefe: Leere Zeilen nicht drucken in einer Word Tabelle 0 Gast 3213 26. Mai 2008, 11:40
Gast Leere Zeilen nicht drucken in einer Word Tabelle
Keine neuen Beiträge Word Serienbriefe: Umschläge drucken 11x16 mit Canon MP 510 0 Amitl 2516 18. Mai 2008, 10:42
Amitl Umschläge drucken 11x16 mit Canon MP 510
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld (grau unterlegt beim drucken) 6 Andreas(o)-(o) 12352 21. Nov 2007, 14:17
Niko42 Seriendruckfeld (grau unterlegt beim drucken)
Keine neuen Beiträge Word Serienbriefe: Kontrollkästchen automatisch aktivieren/deaktiviert lassen 2 Leuchtturm 6073 16. Mai 2007, 10:37
Leuchtturm Kontrollkästchen automatisch aktivieren/deaktiviert lassen
Keine neuen Beiträge Word Serienbriefe: Formularfelder bei Drucken sichtbar lassen 2 roha79 3822 28. Feb 2007, 15:19
roha79 Formularfelder bei Drucken sichtbar lassen
Keine neuen Beiträge Word Serienbriefe: Unterschiedl. Dateien aus unterschiedl. Quellen an SB anhäng 11 mtc 1191 13. Jun 2006, 19:48
mtc Unterschiedl. Dateien aus unterschiedl. Quellen an SB anhäng
Keine neuen Beiträge Word Serienbriefe: Serienbrief in einzelne Dateien und dann in email versenden 1 WW 1106 15. März 2006, 17:10
WW Serienbrief in einzelne Dateien und dann in email versenden
Keine neuen Beiträge Word Serienbriefe: Serienbrief in Dateien - Problem Fußzeile 0 fljo 1392 15. März 2006, 14:15
fljo Serienbrief in Dateien - Problem Fußzeile
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe