Ole2 question about inserting document object in Word

Question

I thought I had it figured out but it doesn't seem to work. From a Oracle Forms 6i application, I want to insert an object(a file) in a word document as an icon.
The vb code generated when I record the macro of inserting an object as an icon is:
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName _
:="string defining the location of the file object", LinkToFile:=False _
, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0050048383C9}\wordicon.exe" _
, IconIndex:=1, IconLabel:= _
"string defining the location of the file object"
Using this I wrote the following code: ( I am leaving out the declaration of the ole2.obj_type and other variables)
args := ole2.create_arglist;
ole2.add_arg (args, 'string defining the location of the file object');
hinlineshapes :=
ole2.get_obj_property (hselection, 'InlineShapes');
ole2.invoke (hinlineshapes
,'AddOLEObject'
,args
ole2.destroy_arglist (args);
holeformat := ole2.get_obj_property (hinlineshapes, 'OLEFormat');
ole2.set_property (holeformat
,'ClassType'
,'Word.Document.8'
ole2.set_property (holeformat
,'DisplayAsIcon'
,TRUE
ole2.set_property (holeformat
,'IconLabel'
,'string defining the location of the file object'
When I run the code I get the following message from MS Word:
" This object was created in 'string defining the location of the file object'.
This application is not available to open this object.
Make sure the application is properly installed and that it has not deleted, moved or renamed."
Can someone please help? Thanks in advance.

Answer 1

Second, when it inserts the date, it makes it an "update automatically" date that updates to the current time every time I open the document
Sure, that's because you specifically tell it to. Your script inserts a 'new field' which is analogous to Word's dynamic text objects (date, time, page number, etc.)
Instead, what you want to do is insert an actual string of characters - sure, to you and I that string of characters might look like a date and time, but to Word it's nothing more than a series of characters.
For that we can fall back on AppleScript's date features, specifically current date, like:
tell application "Microsoft Word"
  tell selection
    type text text "Left message " & (current date as text)
  end tell
end tell
Note that current date as text returns a rather verbose form of the date. If that's too much for you there are alternate options, such as:
short date string of (current date) & space & time string of (current date)
which will look more like: "6/10/10 3:26:50 PM"
But there is also a myriad of other ways (with seconds, without seconds, 12/24 hr, etc.) depending on what you want.
Third, if possible, I would also like it to be in italics.
I'll have to look at that one, unless someone else beats me to it.