Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Druckschaltfläche -> abändern
zurück: Text in vorhandene Zeile mit Text einfügen weiter: Listennummerierung neustarten (regelbasiert) 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
Cassy
Gast


Verfasst am:
07. Sep 2007, 13:02
Rufname:

Druckschaltfläche -> abändern - Druckschaltfläche -> abändern

Nach oben
       Version: Office 2003

Hallo zusammen!

habe mir von einem beitrag von 2004 folgenden Code rauskopiert:

Zitat:
Code:

'Aktives Worddokument drucken
ActiveWindow.PrintOut copies:=1, collate:=True


'Kopfzeile erstellen mit "Kopie"
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="Kopie"
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Size = 18
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


'Aktives Worddocument nochmal drucken
ActiveWindow.PrintOut copies:=1, collate:=True


'Kopfzeile entfernen
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HomeKey Unit:=wdLine
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


'Aktives Dokument speichern
ActiveDocument.Save


Diesen Code möchte ich insofern abändern, dass er

- Das Dokument am Ende nicht abspeichert -> habe den letzten Part rausgelöscht
Zitat:

'Aktives Dokument speichern
ActiveDocument.Save


- Die Kopfzeile bestehen bleibt und das Wort "Kopie" in einer Tabelle (wird als Anschriftenfeld genutzt) erscheint-> ?

Also möchte ich an der Kopfzeile gar nix ändern, sondern nur, dass er mir in die Tabelle "Kopie" reinschreibt und dann nochmal ausdruckt (nochmal drucken macht er ja durch den anderen Befehl)

Bitte helfen =(
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
07. Sep 2007, 14:56
Rufname:
Wohnort: Leipzig


AW: Druckschaltfläche -> abändern - AW: Druckschaltfläche -> abändern

Nach oben
       Version: Office 2003

Hallo Cassy,

lass doch einfach den Teil, in dem die Kopfzeile wieder "gesäubert" wird, weg. Das könnte dann so aussehen:
Code:
'Aktives Worddokument drucken
ActiveWindow.PrintOut copies:=1, collate:=True

'Kopfzeile erstellen mit "Kopie"
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="Kopie"
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Size = 18
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

'Aktives Worddocument nochmal drucken
ActiveWindow.PrintOut copies:=1, collate:=True

Ansonsten ist Deine Frage nicht klar.

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

Guter Rat ist teuer!
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 Hilfe: Custom UI Editor - Ribbon tabs und groups abändern 0 Quarry 158 22. Aug 2013, 12:07
Quarry Custom UI Editor - Ribbon tabs und groups abändern
Keine neuen Beiträge Word Hilfe: Word 2010: Zitierweise von APA etwas abändern 1 neugeborene 313 07. Mai 2013, 16:07
EPsi1 Word 2010: Zitierweise von APA etwas abändern
Keine neuen Beiträge Word VBA Programmierung (Makros): Abändern des Codes für Duplex Druck 2 amagosa 226 10. Feb 2013, 18:25
amagosa Abändern des Codes für Duplex Druck
Keine neuen Beiträge Word Formate: Nur [ ] in / / abändern in IEEE 2006 Literaturverzeichnis 4 entersleep 1713 14. Jul 2012, 12:44
entersleep Nur [ ] in / / abändern in IEEE 2006 Literaturverzeichnis
Keine neuen Beiträge Word Gestaltungselemente: APA-Fifth-Edition Stil abändern 0 Exeo ST 886 29. Apr 2012, 13:40
Exeo ST APA-Fifth-Edition Stil abändern
Keine neuen Beiträge Word Hilfe: Word Schutz abändern zum bearbeiten! 0 Word-neuling 1714 14. Feb 2008, 12:16
Word-neuling Word Schutz abändern zum bearbeiten!
Keine neuen Beiträge Word Formate: Formatvorlage abändern für viele Absätze in großem Dokument 3 Amitl 692 02. Mai 2007, 22:41
Hübi Formatvorlage abändern für viele Absätze in großem Dokument
Keine neuen Beiträge Word VBA Programmierung (Makros): Benutzerinformationen via vba auslesen/abändern 1 Thorsten82 2021 19. Feb 2007, 18:14
Thorsten82 Benutzerinformationen via vba auslesen/abändern
Keine neuen Beiträge Word Gestaltungselemente: Inhaltsverzeichnis abändern 1 Picard 782 05. Jun 2005, 18:23
Lisa Inhaltsverzeichnis abändern
Keine neuen Beiträge Word VBA Programmierung (Makros): Druckschaltfläche erstellen - automatisch Kopie ausdrucken 1 Mortis 4828 22. Nov 2004, 14:21
ZeroCool Druckschaltfläche erstellen - automatisch Kopie ausdrucken
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript