vytvoril som čosi, ale poslúcha to len pri opätovnom spúšťaní makra pri jednej otvorenej šablone...
Nedarí sa mi nahrať ukladanie aby to zakomponovalo do kódu pri spúšťaní.
Nemám prax s makrami vo worde, už sa s tým ser...m hodiny kým som dal dokopy čo som dal dokopy... je to úplne iné ako v Exceli
Je mi ľúto ale zatiaľ mi to nejde... A vôbec, ukladanie ako šablonu a otvárať ako šablonu... robí to divy...

Zdenál máš pravdu s takouto organizáciou práce...
Podľa mňa to tiež nemá zmysel, veď do faktúr predsa aj tak musí dopĺňať ďalšie údaje, tak prečo nemôže rovno vpísať aj nové číslo...


Toľkoto som stvoril, ďalej neviem pohnúť...
Ak chcete, skúste, či niekto nájde tú fintu...

Private Sub Document_New()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    AktText = Selection.Text
    Nuly = ""
    If Len(Format(Val(Left(AktText, 3)) + 1, "@")) = 1 Then Nuly = "00"
    If Len(Format(Val(Left(AktText, 3)) + 1, "@")) = 2 Then Nuly = "0"
    NewText = Nuly & Format(Val(Left(AktText, 3)) + 1, "@") & "/" & Year(Date)
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=NewText
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub