Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

String Manipulation

Question:
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?

Answer:
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.

 

 

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