Dokumentvorlage erstellen??

Lars + Anja Peters

unread,

Jul 17, 2002, 12:43:36 PM7/17/02

to

Hallo,

ich hätte mal die folgende Frage:

Habe eine Tabelle mit 60 Zeilen und 4 Spalten aufgebaut, diese Tabelle füllt
eine komplette Din A4 Seite aus. Die einzelnen Zeilen sind jeweils wie folgt
"{macrobutton no macro [hier klicken wert]}" aufgebaut. Wie kann ich es
einrichten, dass ich bei einem Seitenwechsel diese Tabelle wiederum von
vornherein auf dieser Seite als Vorlage habe??

Habe schon alles Mögliche ausprobiert bekomme es aber irgendwie nicht hin.

Danke schon einmal für jede Hilfe.

Gruß

Lars

Thomas Löwe [MS MVP Word]

unread,

Jul 17, 2002, 1:19:29 PM7/17/02

to

Hallo Lars,

"Lars + Anja Peters" <lars-anj...@t-online.de>
Bezug: news:ah46rp$9pa$04$1...@news.t-online.com...

> Habe eine Tabelle mit 60 Zeilen und 4 Spalten aufgebaut, diese Tabelle
> füllt eine komplette Din A4 Seite aus. Die einzelnen Zeilen sind jeweils
> wie folgt "{macrobutton no macro [hier klicken wert]}" aufgebaut. Wie
> kann ich es einrichten, dass ich bei einem Seitenwechsel diese Tabelle
> wiederum von vornherein auf dieser Seite als Vorlage habe?

du hast leider nicht die verwendete Version von Microsoft Word ange-
geben. Bitte schließe diese Information bei allen weiteren Anfragen
ein.

Leider habe ich deiner Anfrage die Aufgabenstellung nicht vollständig
entnehmen können. Du kannst dein Dokument als Dokumentenvorlage
speichern (Datei, Speichern unter Dateityp: Dokumentenvorlage *.dot).

--
Mit freundlichen Grüßen,
Thomas Löwe [Microsoft MVP Word]
Bitte alle Supportanfragen in die Newsgroup stellen.
Microsoft KB: englisch: http://search.support.microsoft.com/kb/c.asp
Microsoft KB: deutsch :
http://support.microsoft.com/default.aspx?ln=DE&pr=kbinfo&

Lars + Anja Peters

unread,

Jul 17, 2002, 1:59:28 PM7/17/02

to

Sorry, also ich arbeite mit office2000, die Dokumentvorlage soll aber auch
unter office97 verwendet werden.
Also ich kann die Datei ohne weiteres als *.dot speichern.
Mein Fragestellung zielt in die folgende Richtung ab:
Wenn ich diese Tabelle ausgefüllt habe und somit eine zweite Seite anfangen
möchte, möchte ich auf dieser Seite genau die gleiche Tabelle wieder als
Vorlage haben, welche ich wiederum neu ausfüllen kann usw. usw..
Diese Vorlage erstelle ich für absolute Computerneulinge und von daher muß
es möglichst einfach sein, also nicht soetwas wie Tabelle kopieren und
wieder einfügen.
Ich hoffe, daß ich die Problematik etwas klarer darstellen konnte.
Gruß

Lars

Michael Günther

unread,

Jul 17, 2002, 2:35:23 PM7/17/02

to

ich versteh was Du meinst. Ich habe eine solche Vorlage als Bestellvodruck
für Reisemittel erstellt. Wenn meine Kollegen auf eine Schaltfläche in der
Symbolleiste klicken, wird die gleiche Tabelle unter wieder eingefügt. Ich
habe das über Autotext realisiert. Auf der Seite unten habe ich eine
Textmarke eingefügt und dann die ganze Seite bis zur Textmarke als Autotext
definiert. Den Rest dann einfach über Marko neu aufgezeichnet. Dann das
Makro auf der Symbolleiste abgelegt.
Den genauen Texst des Makros kann ich Dir morgen mitteilen.

Michael Günther

"Lars + Anja Peters" <lars-anj...@t-online.de> schrieb im Newsbeitrag
news:ah4bai$3ab$07$1...@news.t-online.com...

Lars + Anja Peters

unread,

Jul 17, 2002, 2:57:37 PM7/17/02

to

Das wäre nett.
Gruß

Lars

Michael Günther

unread,

Jul 18, 2002, 12:26:31 PM7/18/02

to

Hallo,

hier das Makro:

Sub xxx()
Application.ScreenUpdating = False
ActiveDocument.Unprotect ("xxxx")

If ActiveDocument.Bookmarks.Exists("NeueSeite") = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="NeueSeite"
Selection.Delete
Selection.GoTo What:=wdGoToBookmark, Name:="COPYNEU"
Selection.MoveUp Unit:=wdLine, Count:=1
Else
Selection.GoTo What:=wdGoToBookmark, Name:="COPYNEU"
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.InsertBreak Type:=wdPageBreak
End If

ActiveDocument.AttachedTemplate.AutoTextEntries("xxxxxxxxxxx").Insert _
Where:=Selection.Range, RichText:=True
Selection.MoveUp Unit:=wdLine, Count:=39
ActiveDocument.Protect Password:="xxxxx", NoReset:=True, Type:= _
wdAllowOnlyFormFields
Application.ScreenUpdating = True
ActiveDocument.Save

End Sub

Du mußt am Ende deines Dokumentes eine Textmarke mit dem Namen Copyneu
definieren.
Dann makierst Du den ganzen Text ohne die Zeile mit der Textmarke und legst
dies als Autotext ab. Den Namen den Du vergibst, trägst Du anstelle der
xxxxx bei AutoTextEntries ein.
Du muß ein bißchen experimentieren bis es 100% funktioniert.

Michael

Lars + Anja Peters

unread,

Jul 18, 2002, 2:13:34 PM7/18/02

to

Danke schön, werde es mal ausprobieren.

Lars