We're working on converting an application that uses Word.Basic OLE
Automation with Word 7 to use Word.Application OLE Automation with Word 8.
We've applied the 5.0.03 patches.

For some reason, we can open a document, but we can't save or saveas. The
following script is being used:

long i
string ls_filename, ls_test_filename
integer li_contact_id

setpointer(hourglass!)

//retrieve datawindow
dw_quote_rpt.retrieve(dw_1.getitemnumber(1, "quotejob_id"))

//create ole object and connect to MSWord
iole_quote = create oleobject
if iole_quote.connecttonewobject("word.application") <> 0 then
	destroy iole_quote
	messagebox(title, "Unable to connect to Microsoft Word", &
		exclamation!, ok!)
	return
end if
 //No problem to this point.

//open template 

iole_quote.documents.open("c:\nts\template_quote.doc")

ls_test_filename = iole_quote.ActiveDocument.FullName
messagebox ("document name", ls_test_filename)

//	this produces a messagebox with the full path of the opened document, 
//	i.e. "c:\nts\template_quote.doc", and seems to prove that
//	iole_quote.ActiveDocument is a good object reference.

iole_quote.ActiveDocument.SaveAs("quote_test.doc")

//	this produces the following error:
//	Error Number 33.
//	Error text = Invalid parameter type calling external object function
saveas.

I've tried changing the argument to (REF "quote_test.doc"), and I've tried
placing the
name in a local string variable (which is actually the way I want to do
it), but all efforts
produce the same message.

Following is copied from the Word8 VBA help file:

expression.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)

expression   Required. An expression that returns a Document object.

FileName   Optional Variant. The name for the document. The default is the
current folder and file name. If the document has never been saved, the
default name is used (for example, Doc1.doc). If a document with the
specified FileName already exists, the document is overwritten without the
user being prompted first.

Any suggestions?

Worth Robbins wrote:
> 
> We're working on converting an application that uses Word.Basic OLE
> Automation with Word 7 to use Word.Application OLE Automation with Word 8.
> We've applied the 5.0.03 patches.
> 
> For some reason, we can open a document, but we can't save or saveas. The
> following script is being used:
> 
> long i
> string ls_filename, ls_test_filename
> integer li_contact_id
> 
> setpointer(hourglass!)
> 
> //retrieve datawindow
> dw_quote_rpt.retrieve(dw_1.getitemnumber(1, "quotejob_id"))
> 
> //create ole object and connect to MSWord
> iole_quote = create oleobject
> if iole_quote.connecttonewobject("word.application") <> 0 then
>         destroy iole_quote
>         messagebox(title, "Unable to connect to Microsoft Word", &
>                 exclamation!, ok!)
>         return
> end if
>  //No problem to this point.
> 
> //open template
> 
> iole_quote.documents.open("c:\nts\template_quote.doc")
> 
> ls_test_filename = iole_quote.ActiveDocument.FullName
> messagebox ("document name", ls_test_filename)
> 
> //      this produces a messagebox with the full path of the opened document,
> //      i.e. "c:\nts\template_quote.doc", and seems to prove that
> //      iole_quote.ActiveDocument is a good object reference.
> 
> iole_quote.ActiveDocument.SaveAs("quote_test.doc")
> 
> //      this produces the following error:
> //      Error Number 33.
> //      Error text = Invalid parameter type calling external object function
> saveas.
> 
> I've tried changing the argument to (REF "quote_test.doc"), and I've tried
> placing the
> name in a local string variable (which is actually the way I want to do
> it), but all efforts
> produce the same message.
> 
> Following is copied from the Word8 VBA help file:
> 
> expression.SaveAs(FileName, FileFormat, LockComments, Password,
> AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
> SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
> 
> expression   Required. An expression that returns a Document object.
> 
> FileName   Optional Variant. The name for the document. The default is the
> current folder and file name. If the document has never been saved, the
> default name is used (for example, Doc1.doc). If a document with the
> specified FileName already exists, the document is overwritten without the
> user being prompted first.
> 
> Any suggestions?



I am using the same code and it works fine ( PB 5.02 not 5.03 ). Are
you sure this error message does not come from one of the macros in
c:\nts\template_quote.doc that executes on SaveAs(...)?

Worth Robbins <robbins@tiac.net> schrieb im Beitrag
<01bc9480$4e4e2480$6413a8c0@worth2>...
> We're working on converting an application that uses Word.Basic OLE
> Automation with Word 7 to use Word.Application OLE Automation with Word
8.
> We've applied the 5.0.03 patches.
> 
> For some reason, we can open a document, but we can't save or saveas. The
> following script is being used:
> 
> long i
> string ls_filename, ls_test_filename
> integer li_contact_id
> 
> setpointer(hourglass!)
> 
> //retrieve datawindow
> dw_quote_rpt.retrieve(dw_1.getitemnumber(1, "quotejob_id"))
> 
> //create ole object and connect to MSWord
> iole_quote = create oleobject
> if iole_quote.connecttonewobject("word.application") <> 0 then
> 	destroy iole_quote
> 	messagebox(title, "Unable to connect to Microsoft Word", &
> 		exclamation!, ok!)
> 	return
> end if
>  //No problem to this point.
> 
> //open template 
> 
> iole_quote.documents.open("c:\nts\template_quote.doc")
> 
> ls_test_filename = iole_quote.ActiveDocument.FullName
> messagebox ("document name", ls_test_filename)
> 
> //	this produces a messagebox with the full path of the opened document, 
> //	i.e. "c:\nts\template_quote.doc", and seems to prove that
> //	iole_quote.ActiveDocument is a good object reference.
> 
> iole_quote.ActiveDocument.SaveAs("quote_test.doc")
> 
> //	this produces the following error:
> //	Error Number 33.
> //	Error text = Invalid parameter type calling external object function
> saveas.
> 
> I've tried changing the argument to (REF "quote_test.doc"), and I've
tried
> placing the
> name in a local string variable (which is actually the way I want to do
> it), but all efforts
> produce the same message.
> 
> Following is copied from the Word8 VBA help file:
> 
> expression.SaveAs(FileName, FileFormat, LockComments, Password,
> AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
> SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
> 
> expression   Required. An expression that returns a Document object.
> 
> FileName   Optional Variant. The name for the document. The default is
the
> current folder and file name. If the document has never been saved, the
> default name is used (for example, Doc1.doc). If a document with the
> specified FileName already exists, the document is overwritten without
the
> user being prompted first.
> 
> Any suggestions?
> 

Hi,

sometimes Word uses parameters to execute the function. Try to use some
parameter like
SaveAs("filename",0)    0 -> Saves the document in wordformat.

Please tell me,if it worked.


Andreas

-- 
*********************************************
Dipl. Inform. Andreas Risch 
Risch C.S.A
Germany
+049 (0) 26 42 / 98 13 - 30   Phone
+049 (0) 26 42 / 98 13 - 32   Fax

email Andreas.Risch@csa.ivm.de
http://www.csa.ivm.de
*********************************************

try to use PB function: "FileExists" to check if specified file exists (i`ve
tried it a couple a times, very useful!!!)

Worth Robbins wrote:

> We're working on converting an application that uses Word.Basic OLE
> Automation with Word 7 to use Word.Application OLE Automation with Word 8.
> We've applied the 5.0.03 patches.
>
> For some reason, we can open a document, but we can't save or saveas. The
> following script is being used:
>
> long i
> string ls_filename, ls_test_filename
> integer li_contact_id
>
> setpointer(hourglass!)
>
> //retrieve datawindow
> dw_quote_rpt.retrieve(dw_1.getitemnumber(1, "quotejob_id"))
>
> //create ole object and connect to MSWord
> iole_quote = create oleobject
> if iole_quote.connecttonewobject("word.application") <> 0 then
>         destroy iole_quote
>         messagebox(title, "Unable to connect to Microsoft Word", &
>                 exclamation!, ok!)
>         return
> end if
>  //No problem to this point.
>
> //open template
>
> iole_quote.documents.open("c:\nts\template_quote.doc")
>
> ls_test_filename = iole_quote.ActiveDocument.FullName
> messagebox ("document name", ls_test_filename)
>
> //      this produces a messagebox with the full path of the opened document,
> //      i.e. "c:\nts\template_quote.doc", and seems to prove that
> //      iole_quote.ActiveDocument is a good object reference.
>
> iole_quote.ActiveDocument.SaveAs("quote_test.doc")
>
> //      this produces the following error:
> //      Error Number 33.
> //      Error text = Invalid parameter type calling external object function
> saveas.
>
> I've tried changing the argument to (REF "quote_test.doc"), and I've tried
> placing the
> name in a local string variable (which is actually the way I want to do
> it), but all efforts
> produce the same message.
>
> Following is copied from the Word8 VBA help file:
>
> expression.SaveAs(FileName, FileFormat, LockComments, Password,
> AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
> SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
>
> expression   Required. An expression that returns a Document object.
>
> FileName   Optional Variant. The name for the document. The default is the
> current folder and file name. If the document has never been saved, the
> default name is used (for example, Doc1.doc). If a document with the
> specified FileName already exists, the document is overwritten without the
> user being prompted first.
>
> Any suggestions?

The code below works fine for me. I'm using PB 5.03 and Word 97.
So, I'm not sure what's causing your problem.


io_word = create oleobject

If io_word.ConnectToNewObject( 'word.application' ) <> 0 Then
	Messagebox("OLE Error","Could not connect to Word")
	Return -1
End If

io_word.documents.open("C:\My Documents\tempspell.doc")

io_word.activedocument.saveas("tempspell1.doc")
io_word.Documents.Close
io_word.application.quit()
io_word.disconnectobject()

destroy io_word


Chinni

>On Mon, 14 Dec 1998 21:42:24 -0500,
> in powersoft.public.powerbuilder.ole-ocx-activex
>Roman Gregory <romang@mediaone.net> wrote: 
>try to use PB function: "FileExists" to check if specified file exists (i`ve
>tried it a couple a times, very useful!!!)
>
>Worth Robbins wrote:
>
>> We're working on converting an application that uses Word.Basic OLE
>> Automation with Word 7 to use Word.Application OLE Automation with Word 8.
>> We've applied the 5.0.03 patches.
>>
>> For some reason, we can open a document, but we can't save or saveas. The
>> following script is being used:
>>
>> long i
>> string ls_filename, ls_test_filename
>> integer li_contact_id
>>
>> setpointer(hourglass!)
>>
>> //retrieve datawindow
>> dw_quote_rpt.retrieve(dw_1.getitemnumber(1, "quotejob_id"))
>>
>> //create ole object and connect to MSWord
>> iole_quote = create oleobject
>> if iole_quote.connecttonewobject("word.application") <> 0 then
>>         destroy iole_quote
>>         messagebox(title, "Unable to connect to Microsoft Word", &
>>                 exclamation!, ok!)
>>         return
>> end if
>>  //No problem to this point.
>>
>> //open template
>>
>> iole_quote.documents.open("c:\nts\template_quote.doc")
>>
>> ls_test_filename = iole_quote.ActiveDocument.FullName
>> messagebox ("document name", ls_test_filename)
>>
>> //      this produces a messagebox with the full path of the opened document,
>> //      i.e. "c:\nts\template_quote.doc", and seems to prove that
>> //      iole_quote.ActiveDocument is a good object reference.
>>
>> iole_quote.ActiveDocument.SaveAs("quote_test.doc")
>>
>> //      this produces the following error:
>> //      Error Number 33.
>> //      Error text = Invalid parameter type calling external object function
>> saveas.
>>
>> I've tried changing the argument to (REF "quote_test.doc"), and I've tried
>> placing the
>> name in a local string variable (which is actually the way I want to do
>> it), but all efforts
>> produce the same message.
>>
>> Following is copied from the Word8 VBA help file:
>>
>> expression.SaveAs(FileName, FileFormat, LockComments, Password,
>> AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
>> SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
>>
>> expression   Required. An expression that returns a Document object.
>>
>> FileName   Optional Variant. The name for the document. The default is the
>> current folder and file name. If the document has never been saved, the
>> default name is used (for example, Doc1.doc). If a document with the
>> specified FileName already exists, the document is overwritten without the
>> user being prompted first.
>>
>> Any suggestions?
>