How to insert a symbol into a Word text through the VBA code ?

[Peter]

I'd like to use such a formula:

'If txtzak1.Value = "" Then txtzak1.Value = symbol sign

where symbol sign = infinity sign'



How to make it ?

Who could help me ?

Thanks

Peter

 

[Peter]

OK, but I have this sign in Times New Roman font so it isn't a infinity sign
but something like A.
Maybe a new procedure to find all this signs (like A) and change them into
infinity sign (it'll be sufficient to change a font to Symbol).
Please help, beacause I wasted all day for this.
Very thanks
Peter

 

[JB]

I'd like to use such a formula:

'If txtzak1.Value = "" Then txtzak1.Value = symbol sign

where symbol sign = infinity sign'



How to make it ?

Who could help me ?

Thanks

Peter

HI Try this,
If txtzak1.Value = "" Then txtzak1.Value = Chr$(236)

 

[Klaus Linke]

Times New Roman has an infinity sign, too:
ChrW(&H221E)

Regards,
Klaus