Uprav si makro nasledovne:
If (aj <> Empty) And (cz <> Empty) Then
objekt_word.Selection.TypeText aj
objekt_word.Selection.TypeText ">>"
objekt_word.Selection.TypeText cz
objekt_word.Selection.TypeText vbCr
End If
poradna.net
Neregistrovaný Přihlásit Registrovat