Úprava makra ve wordu
Napsal: 14 kvě 2013 06:32
Dobrý den, mám toto makro ve wordu a potřeboval bych do něho jeste dosadit rolování tak aby po otevření dokumetu byl tento na začátku stránky. Pokud to pujde děkuji všem za radu.
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
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