1. A dokumentum fejlécébe belépsz, majd ALT+F9(mezőkódok megjelenítése), beírod (példánál maradva) az SB 121212 szöveget, majd a CTRL+F9, a megjelenő kacsacsőrű zárójelek közé bemásolod ezt a kódot: PAGE \# "0000"
Ismételten ALT+F9 (elrejtjük a mezőkódokat) és így már ezt kell, hogy lásd: [link]
Értelem szerűen, ha több oldal van, akkor az oldalszám automatikusan növekedni fog minden oldal fejlécében így: [link]
2. Most jönnek a makrók, ehhez megnyitjuk a Macro Editor, ALT+F11 (amennyiben jobb oldalon megjelennek ablakok, azok mindegyikét zárd be most, csak hogy a későbbi dolgokkal szinkronban legyünk)
3. Insert menü/Module(megjelenő ablakot zárd be), majd Insert menü/ Class Module(megjelenő ablakot zárd be). Ha jól jártál el, akkor ezt kell, hogy lásd: [link]
4. Duplaklikk bal oldalon a ThisDocument-en, a megjelenő ablakból mindent törölj ki, majd másold bele az alábbi kódot
Private Sub Document_Open()
Call FSCD_Register_Event_Handler
End Sub
5. Duplaklikk bal oldalon a Module1-en, a megjelenő ablakból mindent törölj ki, majd másold bele az alábbi kódot
Dim MyApplication As New Class1
Public Sub FSCD_Register_Event_Handler()
Set MyApplication.App = Word.Application
End Sub
6. Duplaklikk bal oldalon a Class1-en, a megjelenő ablakból mindent törölj ki, majd másold bele az alábbi kódot (mint láthatod, a makróban is az "SB121212 " sztringet használom, de az úgy módosíthatod, ahogy szeretnéd.
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
With Dialogs(wdDialogFileSaveAs)
.Name = "SB 121212 " & Format(ActiveDocument.BuiltInDocumentProperties(wdPropertyPages), "0000")
Select Case .Display
Case -1
.Execute
Case 0
Exit Sub
End Select
End With
End Sub
Ha jól jártál el, akkor így kell kinéznie a dolognak:
[link]
7. Bezárhatod a Macro Editor-t és ments el a doksit Makróbarát Word-dokumentum-ként, majd zárd is be. Ezután nyisd meg újra, ha kérdezi a Tartalom engedélyezését(makró miatt teszi), akkor engedélyezd
8. Ezt követően viszont mentéskor mindig SB121212 + legmagasabb oldalszám néven menti majd el(mint írtam ezt a nevet módosíthatod a 3. makrónál, a Class1-ben). Példaként nálam 9 oldalas a most a doksi így SB121212 0009 néven mentené: [link]
Remélem sikerül kivitelezned és -ha nem értettem valamit félre- akkor úgy is működik, ahogy kell. természetesen elsőre ne éles doksival próbálkozz, hanem egy üressel, amibe csak próba jelleggel írsz adatokat, csak hogy minden úgy működik-e, ahogy kell.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)