Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Word and OLE
Message
 
To
02/11/1999 03:04:26
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Miscellaneous
Thread ID:
00284559
Message ID:
00285332
Views:
20
>>Trying to automate that if a particular document isn't found, get the template and do a FileSaveAs and create it. Using oword.createobject("Word.Application"), and can open the file (Documents.open) but there's no SaveAs there. Used the Object Browser and found under "Document" a SaveAs, but can't get it to work. Not sure what I'm doing wrong. Really need to know how to change directories, FileSaveAs and run macros. Can Someone help? (God Bless whoever responds!)
>
>
Mary,
>SaveAs method applies to Document object. Below sample code works with w97 and up and any version VFP :
PUBLIC oWord
>
>*** set the LOCALEID to English
>nlLocaleId=sys(3004)	&& Save local id
>=sys(3006,1033)		&& We will be sending instructions in English
>USE customer		&& test table
>Application.datatoclip()
>WAIT window nowait "Creating Word Document..."
>
>oWord=createobject("word.application")	&& Create word object
>WITH oWord
>  .documents.add        	&& New file, default template
>  .Selection.Paste
>  .Selection.Goto(-1,,,"\StartOfDoc")
>  #DEFINE wdDialogEditReplace 117
>  WITH .dialogs(wdDialogEditReplace)
>    .Find = "Owner"
>    .Replace = "Çetin"
>    .MatchCase = .f.
>    .ReplaceAll = .t.
>    .Execute
>  ENDWITH
>  .ActiveDocument.SaveAs("c:\temp\test.doc")
>  .ActiveDocument.Close(-1)
>  .Quit
>ENDWITH
>WAIT clear
Cetin

Hi Cetin,

To reinforce what you said, all that worked for me with VFP5 or WFP6 and Word 97 works exactly the same in Word 2000.

José
Previous
Reply
Map
View

Click here to load this message in the networking platform