Pomoc s napsanim prikazu Vyřešeno

[luko02420]

Zdravim lidicky potreboval bych pomoct s uvedenim do chodu s tenito dvema prikazy ve wordu, samostatne me funguji ale nedokazu je sloucit do hromady
nejsem az zase tak zdatny. Diky vsem za radu.

Private Sub Document_Open()
Dim cislo As String
Selection.MoveRight Unit:=wdCharacter, Count:=20 'odpočítá první znaky v prvním řádku až k číslům, pokud tedy dokument začíná "Cenová nabídka č. 000/atd."
Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend 'označí další 3 znaky toho čísla
cislo = Selection
cislo = cislo + 1
If cislo < 100 Then cislo = "0" & cislo 'přidává nuly před číslo tak aby byly max 3čísla tedy maximum je 999
If cislo < 10 Then cislo = "0" & cislo
Selection.TypeText Text:=cislo 'zapíše číslo
End Sub
Option Explicit
Private Sub Document_Open()
Selection.GoTo What:=wdGoToBookmark, Name:="Datum"
Selection.TypeText Text:=Date
End Sub

[Reklama]

[Azuzula]

"Private Sub Document_Open()" nemůže být 2x, to co je v tom druhém makru jednoduše dejte do toho předchozího na konec a "Option explicit" úplně na první řádek před makro, takto:

Kód: Vybrat vše

Option Explicit
Private Sub Document_Open()
Dim cislo As String
Selection.MoveRight Unit:=wdCharacter, Count:=20 'odpočítá první znaky v prvním řádku až k číslům, pokud tedy dokument začíná "Cenová nabídka č. 000/atd."
Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend 'označí další 3 znaky toho čísla
cislo = Selection
cislo = cislo + 1
If cislo < 100 Then cislo = "0" & cislo 'přidává nuly před číslo tak aby byly max 3čísla tedy maximum je 999
If cislo < 10 Then cislo = "0" & cislo
Selection.TypeText Text:=cislo 'zapíše číslo

Selection.GoTo What:=wdGoToBookmark, Name:="Datum"
Selection.TypeText Text:=Date
End Sub

[luko02420]

Super diky moc uz to chodi jak ma
jeste jednou dekuji