Monday, 21 November 2011


How to create tables in Microsoft word 
Set objWord = CreateObject("Word.Application")
const END_OF_STORY=6
objWord.Visible = True
 
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
 
objSelection.TypeText "Table 1"
objSelection.TypeParagraph()
 
Set objRange = objSelection.Range
objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(1)
 
objTable.Cell(1, 1).Range.Text = "This is cell 1."
objTable.Cell(1, 2).Range.Text = "This is cell 2."
objSelection.EndKey END_OF_STORY
objSelection.TypeParagraph()
 
objSelection.TypeText "Table 2"
objSelection.TypeParagraph()
 
Set objRange = objSelection.Range
objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(2)
 
objTable.Cell(1, 1).Range.Text = "This is cell 1."
objTable.Cell(1, 2).Range.Text = "This is cell 2."
 
objSelection.EndKey END_OF_STORY
objSelection.TypeParagraph()
QTP Real Time Examples

0 comments:

Post a Comment

TrainingHUB. Powered by Blogger.

Total Pageviews

THE BEST QTP TRAINING INSTITUTE IN HYDERABAD

QTP Training in hyderabad

Sql Tutorial

Popular Posts

Our Facebook Page

TrainingHUB

Followers