Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Jun 4, 1999



Building the Right Environment to Support AI, Machine Learning and Deep Learning

String Manipulation

I have a VB app which formats a large text file and then prints it using MS Word. I need to include what amounts to a thick underscore in certain places in the margin (each page is unique). I am limited to using a non-proportional font (Courier or Letter Gothic). Word has the symbol I need (Insert, Symbol - Normal Text/2nd from last row, 6th from right between solid square and up triangle). How can this symbol be injected into the document using VB?

The easiest way that I have found to do anything with Microsoft Word is to record a macro for the procedure I wish to reproduce programmatically. Recording the procedure to add the dash you described produced the following code:

Selection.InsertSymbol CharacterNumber:=9644, Unicode:=True
In your code, you will have something like this:
Dim oWord As Word.Application
	Dim oDoc As Word.Document

	Private Sub Command1_Click()
	    Set oWord = New Word.Application
	    Set oDoc = oWord.Documents.Add
 	    oWord.Visible = True
	    oWord.Selection.InsertSymbol CharacterNumber:=9644, Unicode:=True
	End Sub
DevX Pro
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date