Hello 

just tested the new 

do tvbscript as "vbscript"

syntax in 2.9 beta dp4 for writing from runrev into word. It workes fine.
local tVBScript
put "Dim Word" & return after tVBScript
put "Set Word = CreateObject(" & quote & "Word.Application" & quote & ")" & 
return after tVBScript
put "Word.Visible=1" & return after tVBScript
put "Word.Documents.Add()" & return after tVBScript
put "'Word.Selection.Font.Bold=" & quote & "1" & quote & return after tVBScript
put "Word.Selection.Font.Name=" & quote & "Arial" & quote & return after 
tVBScript
put "Word.Selection.TypeText(" & quote & "Hello Word" & quote & ")" & return 
after tVBScript
put "Word.Selection.InsertParagraph()" & return after tVBScript
put "Word.Selection.MoveDown()" & return after tVBScript
put "Word.Selection.InsertParagraph()" & return after tVBScript
put "Word.ActiveDocument.SaveAs(" & quote & "C:/newtest.doc" & quote & ")" & 
return after tVBScript
put tVBScript
do tVBScript as "vbscript"
---------------------------------------------
Does anyone know a trick to use the Word-Object after the vbscript has ended 
and runrev got the result of vbscript? Could runrev get the Word-ID as result 
of the createobject syntax and use it later again? I assume this wouldn't be 
possible, but it would be fine if this could have be done.

The same can be used with excel if you transfer the attached perl program with 
the -> style into point notation as I did above with word 
Regards, Franz 
Mit freundlichen Grüßen
Franz Böhmisch

[EMAIL PROTECTED]
http://www.animabit.de
GF Animabit Multimedia Software GmbH
Am Sonnenhang 22
D-94136 Thyrnau
Tel +49 (0)8501-8538
Fax +49 (0)8501-8537


Perl:
use Win32::OLE;
# grab the numbers
@numbers = qw(1 2 3 4 5);
# create the automation object
Win32::OLE::CreateObject("Excel.Application", $xl) || die "CreateObject: $!";
# show it and add a new workbook
$xl->{Visible} = 1;
$xl->Workbooks->Add();
# start at the top left
$col = "A"; $row = 1;
foreach $num (@numbers) {
chomp($num);
$cell = sprintf("%s%d", $col, $row++);
# add it to Excel
$xl->Range($cell)->{Value}  = $num;
}


# OLE-Programmierung mit Perl
use Win32::OLE;
$app = Win32::OLE->new('Word.Application', 'Quit') || 
  die "Problem mit WinWord: $!";
$app->{'Visible'}=1;
$worksheet = $app->Documents->Add();
$app->Selection->Style->{wdStyleHeading3} = 1;
$app->Selection->Font->{Bold} = 1;
$app->Selection->Font->{Name} = "Arial";
$app->Selection->Font->{Size} = 24;
$stil = $app->Selection->Font->{Name};
$app->Selection->TypeText("Hallo Jakob. Word schreibt von selbst ...");
$app->Selection->InsertParagraph();
$app->Selection->MoveDown();
$app->Selection->TypeText("Schriftstil ist $stil");
$app->Selection->InsertParagraph();
$app->Selection->MoveDown();
$app->Selection->InlineShapes->AddPicture("d:\\test.jpg");
$app->Selection->InsertParagraph();
$app->Selection->MoveDown();
$app->Selection->Style->{wdStyleNormal} = 1;
$app->Selection->Font->{Size} = 12;
$app->Selection->TypeText("Viel Freude bei Winword...");
$app->ActiveDocument->SaveAs("C:/animabit/newtest.doc");
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to