Navigation:  Articles > May-1998 >

Tip: Symbolically Yours

Previous pageReturn to chapter overviewNext page

Charlie Curtis          
 
I've never found a suitable method for inserting symbols into text. I've written a selection of functions for the common symbols and assigned them to keystrokes. I suspect that there's an easier method, but I haven't found it yet. Here's the one I use for inserting the diameter symbol:
 

Public Function chrDia()

Dim ctl As Control

  Set ctl = Screen.ActiveControl

  ctl = ctl & Chr(216)   'diameter symbol

  ctl.SelStart = Len(ctl)

End Function

 

We are good at Access and Excel Programming and UpgradesLoad Basecamp Backup XML to Access or SQLServerThe Smart Access PDFs and DownloadsThe Toolbox - Access KBData Mining Tool In AccessThe Access WorkbenchourProducts