2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic
Keresés

Új hozzászólás Aktív témák

  • #1961 Fire/SOUL/CD félisten Fire/SOUL/CD #1959
    Új Válasz #1961
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz Fire/SOUL/CD #1959 üzenetére

    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.

Új hozzászólás Aktív témák