Hi Experten,
ich hab ein mehrteiliges Problemchen…
Und zwar soll ich eine Textvorlage erstellen…
Eigentlich kein großes Problem. Mit Tabellen ging das recht gut von der Hand, auch wenn die Rahmen ein wenig gefuchst haben…
Tja…
Nun hab ich also eine doc bzw dot Datei und kann die öffnen…
Was ich nun aber noch gerne wollen würde ist, dass wenn man auf die zweite Seite kommt die gleiche Seite dann wieder erscheint (also die Blanco-Vorlage)
Da bin ich nun schon mal mit meinem Latein am Ende…
Noch toller wäre es, wenn man auf Knopfdruck eine von mehreren Vorgaben auswählen könnte…
Hat den Hintergrund, dass die Unterbereiche nochmal unterteilt werden könnten und das eben auch im idealfall gleich als Standard vorhanden ist…
Nur…
Wie macht man das denn?
Ich hab da absolut keine Ahnung…
Kann mir jemand helfen?
Grüße
Munich
Hallo Munich,
Hi Experten,
ich meld mich trotzdem solange kein Word.VBA Experte sich meldet:smile:
Und zwar soll ich eine Textvorlage erstellen…
Eigentlich kein großes Problem. Mit Tabellen ging das recht
gut von der Hand, auch wenn die Rahmen ein wenig gefuchst
haben…
Mittels Word eine Tabelle oder pflegst du die tabelle in Excel, da weiß ich nen Tick mehr.
Nun hab ich also eine doc bzw dot Datei und kann die öffnen…
Was ich nun aber noch gerne wollen würde ist, dass wenn man
auf die zweite Seite kommt die gleiche Seite dann wieder
erscheint (also die Blanco-Vorlage)
Habe grad geschaut, automatische Ereignis-Prozeduren gibt es nur für New,Close,Open eines Dokuments, sieht von daher düster aus, also das Ereichen eiones anderen Blattes (wie kommst du eigentlich dahin? Durch Volltexten des ersten Blattes oder gibts da was wie lege 2tes Blatt an und geh dahin?) wird nicht "abgefangen soweit ich das überblicke.
Einzige Idee die ich habe, du arbeitest völlig ohne Blätter (ok, das erste muss wohl sein.) und nimmst UFs als „Blätter“. Für jedes neu Blatt ölegst du automatisch per Klick eine neue UF an.
Wäre der Ansatz was? Wenn ja, mailmir doch mal das erste Blatt deiner .doc, natürlich mit allen wichtigen Telefonnummern darauf und Adessen usw *ggg
Noch toller wäre es, wenn man auf Knopfdruck eine von mehreren
Vorgaben auswählen könnte…
Hat den Hintergrund, dass die Unterbereiche nochmal unterteilt
werden könnten und das eben auch im idealfall gleich als
Standard vorhanden ist…
Fällt mir auch nur UF-Lösung ein, auch dazu ein Beispielblatt.
Gruß
Reinhard
Hallo Munich,
anbei ein Beispiel, natürlich funktioniert da noch nichts.
Wenn keine UF erscheint, unter extras–makro–Sicherheit auf Mitttel stellen, dann schliessen, noch mal neu öffnen.
http://rapidshare.de/files/33721185/BlaetterAlsUserf…
Gruß
Reinhard
hmmm…
wäre das jetzt zum einfügen von einem neuen Blatt gedacht, oder wie meinst Du das?
Also wenn es so gehen würde, dann wäre dieser Ansatz echt genial…
Allerdings sollte es keine Excel-Tabelle sondern eine dieser Word-Tabellen sein - weil es eben zur Seitenformatierung gedacht ist und dafür ist Excel eher ungeeignet…
besonders deswegen, weil innerhalb der Tabellen nochmal Tabellen eingeschachtelt sind…
Es würde mir dabei völlig ausreichen, wenn durch Klick neue Seiten hinzugefügt werden können.
Eine Steuerung über Events wäre also nicht unbedingt notwendig…
Vielen Dank schon mal…
Ich hoffe, dass mich die Lösung nicht überfordert - sieht jedenfalls nicht gerade einfach aus das so zu machen…?
Grüße
Munich
Nun hab ich also eine doc bzw dot Datei und kann die öffnen…
Was ich nun aber noch gerne wollen würde ist, dass wenn man
auf die zweite Seite kommt die gleiche Seite dann wieder
erscheint (also die Blanco-Vorlage)
Hallo Munich,
ich mutmaße du kannst nur durch manuellen Start eines Makros dein .Dot als neues Blatt anhängen. Dies ist aber machbar*glaub*
Gruß
Reinhard
Moin Reinhard,
ich mutmaße du kannst nur durch manuellen Start eines Makros
dein .Dot als neues Blatt anhängen. Dies ist aber
machbar*glaub*
und wie?
ich scheitere ja schon am manuellen einfügen einer Seite aus einer Vorlage 
(
Gruß
Munich
ich mutmaße du kannst nur durch manuellen Start eines Makros
dein .Dot als neues Blatt anhängen. Dies ist aber
machbar*glaub*
und wie?
ich scheitere ja schon am manuellen einfügen einer Seite aus
einer Vorlage (
Hallo Munich,
so oder ähnlich, ist zwar ne doc aber was soll bei .dot beim Einfügen anders sein.:
Option Explicit
Private Sub CommandButton1\_Click()
Selection.InsertBreak (wdSectionBreakNextPage)
Selection.InsertFile FileName:="Weihnachten.doc", Range:="", \_
ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub
Gruß
Reinhard
1 „Gefällt mir“
danke! 
Das ist schon mal echt cool…
auch wenn ich da sehr stark auf die Ränder achten muss…
Auch doof ist natürlich, dass die Blätter wohl im gleichen Verzeichnis liegen müssen wie die Datei, die gerade bearbeitet wird - bzw ein absoluter Pfad, den ich aber im Moment nicht habe…
Wie dem auch sei - kannst Du mir sagen, wie ich noch so ein Fenster wie Du es gebaut hattest hinbekomme, wo ich mit Klick auf eine Vorschau dann das passende Blatt anhängen kann?
Vielen Dank nochmal
Munich
Hallo Munich,
auch wenn ich da sehr stark auf die Ränder achten muss…
K.A. was du meinst, geht es auch genauer?
Auch doof ist natürlich, dass die Blätter wohl im gleichen
Verzeichnis liegen müssen wie die Datei, die gerade bearbeitet
wird - bzw ein absoluter Pfad, den ich aber im Moment nicht
habe…
*hmmh* den Pfad der Datei kann man auslesen, wenn die Dot oder die einzufügende Datei woanderst steht musst du das schon bei Makrostart wissen, zumindest den Dateinamen, Problematisch wirds wenn es den Dateinamen mehrmals auf derFestplatte gibt.
Wie dem auch sei - kannst Du mir sagen, wie ich noch so ein
Fenster wie Du es gebaut hattest hinbekomme, wo ich mit Klick
auf eine Vorschau dann das passende Blatt anhängen kann?
Ich bin unsicher was genau du meinst, die UF? Lassen wir die weg, wie wäre es damit, du jhast ein Kombinationsfeld, da wählst du eine Vorlage aus, sie wird dir als kleines Bild angezeigt und wenn sie dir gefällt klickste auf OK und es wird eine neue Seite mit dieser Vorlage an die Datei angehängt als letztes Blatt!?
Gruß
Reinhard
Hi Reinhard
auch wenn ich da sehr stark auf die Ränder achten muss…
K.A. was du meinst, geht es auch genauer?
klar…
Also ich habe die Ränder auf ein sehr kleines minimum gesetzt (Der Drucker kann das ab).
Wenn ich nun andere Blätter (mit diesem Makro) einfüge, dann bleiben die Ränder des aktuellen Blattes und es werden logischerweise nicht die übernommen, due das andere Blatt hat.
Sprich: Ich muss überall genau die gleichen Ränder verwenden…
Auch doof ist natürlich, dass die Blätter wohl im gleichen
Verzeichnis liegen müssen wie die Datei, die gerade bearbeitet
wird - bzw ein absoluter Pfad, den ich aber im Moment nicht
habe…
*hmmh* den Pfad der Datei kann man auslesen, wenn die Dot oder
die einzufügende Datei woanderst steht musst du das schon bei
Makrostart wissen, zumindest den Dateinamen, Problematisch
wirds wenn es den Dateinamen mehrmals auf derFestplatte gibt.
naja… es würde wohl eher auf nem Netzlaufwerk liegen…
Und da ist dann wieder das Problem: Was, wenn der Laptop des Users offline ist und die Vorlage verwenden will…?
Aber naja… man kann ja einen Hinweis bringen, dass man dafür online sein muss…
Ach, dabei fällt mir nochwas ein 
für den Fall, dass sich der Pfad mal ändern sollte, kann man auch ein Makro per Makro umschreiben? *g*
also so, dass man den Pfad nachträglich anpasst (durch neues suchen oder festlegen oder wie auch immer) wenn die Dateien nicht gefunden werden?
Wie dem auch sei - kannst Du mir sagen, wie ich noch so ein
Fenster wie Du es gebaut hattest hinbekomme, wo ich mit Klick
auf eine Vorschau dann das passende Blatt anhängen kann?
Ich bin unsicher was genau du meinst, die UF? Lassen wir die
weg, wie wäre es damit, du jhast ein Kombinationsfeld, da
wählst du eine Vorlage aus, sie wird dir als kleines Bild
angezeigt und wenn sie dir gefällt klickste auf OK und es wird
eine neue Seite mit dieser Vorlage an die Datei angehängt als
letztes Blatt!?
Also ich meinte das, was Du hochgeladen hattest.
Man kann durchklicken auf vor und zurück und in dem Fenster in der Mitte ändert sich die Vorschau…
Aber mit Kombinationsfeld wäre auch klasse
Gruß
Munich