Thema Datum  Von Nutzer Rating
Antwort
26.01.2010 09:01:01 christian
NotSolved
Blau Aw:Ich brauch echt mal Hilfe
 28.01.2010 09:54:04 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
28.01.2010 09:54:04		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Ich brauch echt mal Hilfe
Hallo christian,
ich denke, dass es sich hierbei um ein Aufgabe aus irgendeiner Ausbildung handelt. Diese etwas komplexere Aufgabe wird nicht die erste Aufgabe sein, die du erhalten hast. Deshalb vermisse ich deinen bisherigen Ansatz. Nur der lernt programmieren, der es macht.
Einige Hinweise:
Ich würde ein entsprechendes Dokument für drei Gutscheine anlegen mit Textmarken für die drei Nummern.
Es gibt ein Document_open-Ereignis, das du im Codeteil von ThisDocument auswerten solltest.
Für das Enlesen einer Zahl kannst du z.B. die InputBox oder eine UserForm verwenden. Das Hochzählen der Nummern sollte kein Problem sein. Die letzte Nummer kannst du in einer Datei speichern, s. Open-Befehl in der VBA-Hilfe. Von dort kannst du sie auch wieder einlesen. Dabei ist zu beachten, dass diese Datei beim ersten Mal nicht existiert und Open ... For Input ... dann einen Fehler verursacht. Diesen könntest du mit
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.fileexists(Dateispezifikation) = False Then ...
abfangen.
Den Druckdialog ruft man auf z.B. mit a = Dialogs(wdDialogFilePrint).Show
Die Nummern kannst jeweils du z.B. mit
ActiveDocument.Bookmarks("Name der Textmarke").Select
Selection.InsertAfter Cstr(Nummer)
in das Dokument einfügen.
Um alle erforderlich Seiten zu drucken, würde ich eine For-Next-Schleife für das Drucken der Seiten verwenden, die sowohl das Einfügen von drei Nummern als auch den Druckbefehl ActiveDocument.PrintOut enthalten sollte.
Damit hast du alle erforderlichen Information, um dein Makro zu schreiben. Sieh ggf. einzelne Befehle in der VBA-Hilfe nach.
Gruß
Holger



christian schrieb am 26.01.2010 09:01:01:

Hallo ihr da draußen,
ich brauche Hilfe. Ich soll für eine Klausur ein VBA Programm schreiben. Das habe ich auch getan. Nun hat der Dozent eine kleine Zusatzaufgabe gestellt und siehe da sie ist mir ein absolutes Rätsel. Vielleicht kann mir einer von euch Cracks da draußen mal ein Programm zeigen das folgende Aufgabenstellung erfüllt:

> Entwickeln sie einen Gutschein. Dieser Gutschein soll auf einem DIN A4
> Blatt drei mal gedruckt werden.
>
> Wenn sie das Dokument öffnen soll sich ein Dialogfenster öffnen.
> Dieses Fenster verlangt nach einer Nummer die in ein Textfeld
> übergeben werden soll. Wenn sie die Nummer in das Dialogfenster
> eingegeben und mit OK bestätigt haben, soll sich das
> DruckDialogfenster öffnen. Wenn sie den gewünschten Drucker ausgewählt
> haben soll ein Druckvorgang starten, der ab der eingegebnen Nummer 500
> x fortlaufend nummeriert und immer drei Gutscheine auf einer Seite druckt.
>
> Wenn sie das Dokument schließen und anschließend wieder öffnen, soll
> das Dialogfenster ihnen mitteilen welches die zuletzt gedruckte Nummer
> war die verwendet wurde und wiederum nach einer neuen verlangen die
> dann abermals 500 x fortlaufend ab der eingegebenen Zahl fortlaufend
> nummeriert druckt.

Es ist einem Frei gestellt ob in Excel oder Word.
Ich finde nicht mal einen Ansatz. ICh hab schon viele Foren durchsucht aber immer nur hilflose Brocken hingeworfen bekommen, bis man mir sagte das hier das Beste VBA Forum zu finden ist.
Da es meiner Karriere deutlich helfen würde, wär ich sehr dankbar wenn jemand bereit ist mir zu helfen.

Danke im vorraus.
Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.01.2010 09:01:01 christian
NotSolved
Blau Aw:Ich brauch echt mal Hilfe
 28.01.2010 09:54:04 Holger
NotSolved