Create new sheets in report with script?

Question

Is it possible to create new sheets in the report using VBscripts?
I am writing a script that will create a report with different sheets. The number of sheets in the report will change in each report depending on the number of groups added in the data portal. For example: If there are 3 channel groups in the data portal I will need 3 sheets in the report.
I searched for the instructions but I could not find how to do it.
And another question: how can I insert the name of a channel group in the report?
I am using DIAdem 9.0.
Thank you very much!

Answer 1

For all with the same problem: You can copy the Picture an paste it automaticaly in ms word.
Here my code:
Call PicPrint("WinClip") ' Copy picture to clipboard
'open Word document
' Start Word via OLE.
  ' Always a new instance of Word will be created.
  Set Word = CreateObject("Word.Application")
  ' Make Word visible. Until now Word was not visible.
  Word.Visible = True
  ' Maximize Word-window.
  Word.WindowState = wdWindowStateMaximize
' Create new Word-document based on prepared template.
   AutoDrvLibr="C:\......"    'direction of the Word ducument
   Const DiademWordTemplate = ".....doc"                                'ducument name
   Word.Documents.Add AutoDrvLibr & DiademWordTemplate, false
    ' Maximize document-window.
call copy_to_Word
Private Sub copy_to_Word
  Word.ActiveWindow.WindowState = wdWindowStateMaximize
  ' Activate fullpage mode in Word.
  Word.ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
  ' Set reference to Word-document.
  ' With the help of this reference you can easily acess the Word-document.
  Set WordDoc = Word.ActiveDocument
Const wdPasteMetafilePicture = &H3
'Paste picture
  Word.Selection.Range.PasteSpecial , , , , wdPasteMetafilePicture
  Word.Selection.EndKey 5                 'Set Courser to end of page
  Word.Selection.Range.InsertBreak(&H1)   'paste new sheet
  Word.Selection.MoveDown 5,1             'move ohne row down to set the courser to the next page
end sub