MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.08.2019, 17:07   #1
cako76
Neuer Benutzer
Neuer Benutzer
Weinen Frage - In der Fußzeile einen Schnellbaustein einfügen

Hallo!
Ich erstelle eine Vorlage für unser Büro. In dieser Vorlage soll man über eine Userform den Bearbeiter auswählen können und die Fußzeile soll ab der 2. Seite fortlaufend entsprechend angepasst werden. Soweit, so gut.
Ich habe ein Makro aufgenommen und angepasst (ich bin absoluter Neuling was VBA angeht...). Momentan wird über das Makro Text eingefügt. Wie kann man den Code umschreiben das er einen Schnellbaustein (Fußzeile) einfügt?
Mein Makro:
Sub MakroFusszeile1()
'
' MakroFusszeile1 Makro
'
'
ActiveDocument.Tables(2).Rows(1).Delete
ActiveDocument.FormFields("Vorlage").Result = "StvChef"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
With ActiveDocument
.PageSetup.DifferentFirstPageHeaderFooter = True
.Sections(4).Footers(wdHeaderFooterFirstPage) _
.Range.InsertBefore _
"Erstellt von xxx"
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Für eure Hilfe wäre ich sehr, sehr dankbar, ich bin kurz vor völliger Verzweiflung.

Ich arbeite mit Word 2016 und Windows 7

LG cako76

Geändert von cako76 (14.08.2019 um 17:13 Uhr).
cako76 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.08.2019, 20:45   #2
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo cako,

du hast ja hoffentlich bereits deine Dokumentvorlage mit der Userform nebst Dropdown zur Mitarbeiterauswahl und den zugehörigen Bausteinen.

Wenn du das hier hochlädst (natürlich in anonymisierter und abgespeckter Form; zwei fingierte Mitarbeiter bzw. Bausteine genügen), muss das nicht erst nachgebastelt werden. Dann richte ich dir gern ein Makro ein.

Verwende zum Hochladen bitte die forumseigene Uploadfunktion, die du ein bisschen unterhalb dieses Textfensters in Gestalt der Schaltfläche Anhänge verwalten findest

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.08.2019, 10:10   #3
cako76
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard!

Vielen Dank für die schnelle Antwort, sehr gerne nehme ich Dein Angebot in Anspruch, die Datei habe ich angehängt. Ich habe das Dokument als .dotm Datei erstellt, die Userform funktioniert auch einwandfrei. Du kriegst bestimmt einen Schlag wenn Du Dir anschaust was ich mir da "zurecht gezimmert" habe. Aber für meine Zwecke genügte es bisher. In dieser Vorlage soll über das Dropdownfeld die Auswahl Vorlage an: Direktor, Stellvertreter, usw. möglich sein. Mit dieser Auswahl sollte sich gleich die korrekte Fußzeile einfügen, allerdings erst ab Seite zwei. Das Makro im o.g. Beitrag habe ich entfernt, da ich nun keinen Text, sondern eben die Fußzeilen die ich unter BuildingBlocks.dotx gespeichert habe einfügen möchte. Für Deine Unterstützung bin ich Dir sehr dankbar!

LG cako
Angehängte Dateien
Dateityp: dotm Vorlage Briefentwurf .dotm (110,2 KB, 6x aufgerufen)

Geändert von cako76 (15.08.2019 um 10:25 Uhr).
cako76 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.08.2019, 13:19   #4
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo cako,

erst mal einige Vorbemerkungen:
  • angesichts der Tatsache, dass du mit Abschnittswechseln arbeitest, war der Tipp mit Erste Seite anders etwas unglücklich, da sich diese Einstellung auf alle anderen Abschnitte (soweit es welche vom Typ Nächste Seite sind) vererbt. Also hab ich zuerst alle Erste Seiten anders rausgenommen, bis auf die im ersten Abschnitt. Die Fußzeile auf der zweiten Seite liegt bedingt durch die fortlaufenden Abschnittswechsel im Abschnitt 4. Dementsprechend ist das Makro gestrickt.
  • Du hast angegeben, dass du deine Bausteine in der Building Blocks.dotx gespeichert hast. Das wäre keine gute Idee gewesen, denn die ist rechnerspezifisch und auf anderen Rechnern kann man nicht drauf zugreifen. Die bessere Idee, falls Weitergabe vorgesehen ist: die Bausteine in der Dokumentvorlage selber zu speichern. Wo ich sie übrigens auch vorgefunden habe. Also ggf. kontrollieren und doppelte Einträge eliminieren!
  • Der Baustein StvDir hat kein Leerzeichen; im Dropdown steht er aber mit. Da Leerzeichen in Bausteinnamen eine Fehlerquelle sein können, hab ich sie im Dropdown auch zusammengeschrieben. Oder arbeitest mit Unterstrichen.
  • Für das Dropdown Vorlage finde ich zwei Ereignismakros: Change und Click.
    Ich weiß nicht was letzteres macht, und ob sich die beiden Ereignisse nicht in die Quere kommen. Ich hab das Click-Ereignis mal deaktiviert. Je nachdem, was es macht, muss hier der Dokumentschutz temporär aufgehoben werden, genau so wie im - nun endlich - folgenden Makro zum Einfügen der Fußzeilen-Bausteine:

Code:

Private Sub Vorlage_Change()
'nicht machen, wenn der leere Eintrag gewählt ist
If Me.Vorlage.Text = " " Then Exit Sub


ActiveDocument.FormFields("Vorlage").Result = Me.Vorlage.Text

'********************Fuszeile****************

With ActiveDocument
    
    'erst mal den Schutz aufheben
    If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect
    
    'Baustein einfügen
    Application.Templates(ThisDocument.AttachedTemplate.FullName).BuildingBlockEntries(Me.Vorlage.Text).Insert _
    where:=.Sections(4).Footers(wdHeaderFooterPrimary).Range
    
    'Dokument wieder schützen
    If .ProtectionType = wdNoProtection Then
        .Protect Type:=wdAllowOnlyFormFields, noreset:=True
    End If
End With

End Sub
Der Code ist im angehängten Dokument enthalten.
Angehängte Dateien
Dateityp: dotm caco_Briefentwurf - v2.dotm (119,7 KB, 3x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.08.2019, 05:56   #5
cako76
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Gerhard!

Vielen Dank für die Tipps und die schnelle und unkomplizierte Hilfe.
Ich habe es gestern nicht mehr geschafft, werde es aber gleich ausgiebig testen.

Gruß
cako
cako76 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.08.2019, 21:27   #6
cako76
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard ... noch eine Frage

Hallo Gerhard!
Es funktioniert super, so hab ich mir das vorgestellt. Eine Frage hab ich aber doch noch. Ist es möglich den Code so zu verändern das man auf der 2. Seite die eine Fußzeile hat und ab der 3. Seite fortlaufend eine andere Fußzeile einfügt?

LG cako
cako76 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.08.2019, 23:54   #7
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo cako,

das ist möglich, allerdings kommt dann wieder die Einstellung Erste Seite anders zum Tragen.

Bei der folgenden Anleitung geh ich davon aus, dass dein Originaldokument genauso wie das Muster nach der zweiten Seite keine weiteren Abschnitte mehr hat:

Richte in der Dokumentvorlage die Einstellung Erste Seite anders ein und achte dabei darauf, dass sie für das gesamte Dokument gilt.

Im Makro änderst du dann in dieser Zeile:
Application.Templates(ThisDocument.AttachedTemplate.FullName).BuildingBlockEntri es(Me.Vorlage.Text).Insert _
where:=.Sections(4).Footers(wdHeaderFooterPrimary).Range


den Ausdruck wdHeaderFooterPrimary in wdHeaderFooterFirstPage

Da die Fußzeile auf den Folgeseiten immer gleich bleiben soll, kannst du sie händisch einfügen:
Mach temporär eine dritte Seite auf (nur Seitenwechsel, keinen neuen Abschnitt!), beschrifte die Fußzeile, speichere die Vorlage, lösch die dritte Seite wieder raus und speichere nochmal.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.08.2019, 08:25   #8
cako76
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Perfekt!

Guten Morgen!
Hat super geklappt, ganz herzlichen Dank für die Hilfe! Das ist eine unglaubliche Erleichterung für mich.
Gruß
cako
cako76 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:28 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.