Word

Číslovala podle čeho?

to chceš pre otváranie toho istého súboru alebo pri každom novom?
Sorry ale nauč sa popísať problém.

...a aj chápeš, ako by si to využil? Aké ti pri otváraní súborov môžu nastať prípady... ?
A že v prípade, že súbor už obsahuje nejaký obsah, ty mu pri ďalšom otvorení prepíšeš číslo na prvej strane?
Akosi nechápem...

Ano, při otevření stejného listu, ale aby tam bilo další číslo.

Uložit to jako šablonu a při otevření šablony aby se napsalo samo nové číslo.

Děkuji

A na čo by to akože malo byť dobré?

Na tvorbu Faktur

Vo Worde som ešte makrá nerobil ale na základe skúseností s makrami v Exceli by to mohlo ísť makrom nad konkretnou šablonou udalosťou otvárania šablony.
Ale nepotrebuješ to pre seba, však? Pre tátu nebo mámu?

Pro matku můžeš mi pomoct, prosím.

Ok skusim, ale až večer
Je od teba prekne, ze sa jej snazis pomoct

Ja trochu pochybujem ze ci je to vobec mozne urobit. Kde sa bude to posledne cislo ukladat, do sablony?

ano, otvoriť dokument na šablone, urobiť zmenu a ako prvé ho uložiť ako šablonu a vrátiť sa k pokračovaniu na dokumente...
To je ale len teória, uvidíme, čo to urobí...

Myslím, že by to tak mohlo jít.

ALE - pro autora dotazu:
Uživatel vytvoří nový soubor (čili v šabloně se zvýší číslo faktury), ale neuloží jej a při dalším vytvoření nového souboru naskočí o 1 vyšší číslo - načež nastane problém s přerušenou fakturační řadou.
Ne nadarmo se říká, že nejhrůznější zadání, s jakým se programátor může setkat a kterého se bojí jako upír česneku je "vytvoř mi šablonu faktury v Excelu nebo Wordu".

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

Moc děkuji