dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

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


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