Wow!! That is great! Thank you very much. I'll try it some time this week and let you know if I have any problems.
Regards Rafael Copquin ----- Original Message ----- From: "Peter Hart" <[email protected]> To: <[email protected]> Sent: Monday, September 07, 2009 2:29 PM Subject: RE: vfp and automation > Hi Rafael > > This id the way I would do it. > First open the document and locate the embedded image, note down it > properties. Then depending upon which version of Word (Office 2007 only > has macro recording in the higher versions) you need to start recording > a macro and pick up the logo and embed it into the header. Just follow > the manual procedure. Make sure you set the properties of the object > while recording. When the logo is embedded stop the recording and go to > edit the macro. Copy and paste the macro into FoxPro and edit it to > change the syntax. > > You then need to add the commands to open word and run the macro. > > #Declare wdPrintAllDocument 0 > #Declare wdPrintDocumentContent 0 > #Declare wdPrintAllPages 0 > > && Check the above constant values with the object browser or Google > > oleWord = CreateObject("Word.Application") > > With oleWord > > .Visible = .T. > > .Documents.Open("NameAndPathOfDocument") > > && Macro contents here don't forget to put a . in front of the > Word statements where necessary > > > .Application.PrintOut("",wdPrintAllDocument,wdPrintDocumentContent,1,"", > wdPrintAllPages,ManualDuplexPrint,True,True,False,0,0,0,0) > > EndWith > > The Printout routine is for office 2007 > If using earlier version use the macro recorder to find the correct > syntax. > I.e. in VBS the no of copies is Copies:=1 In VFP should just place the > no. of copies in the right place. > > An example of the Printout code for Word below so you can see how it > needs to be changed. > > **************************** > Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= > _ > wdPrintDocumentContent, Copies:=1, Pages:="", > PageType:=wdPrintAllPages, _ > ManualDuplexPrint:=False, Collate:=True, Background:=True, > PrintToFile:= _ > False, PrintZoomColumn:=0, PrintZoomRow:=0, > PrintZoomPaperWidth:=0, _ > PrintZoomPaperHeight:=0 > **************************** > Peter Hart > Peter Hart Computers. > > If no one else comes up with a better solution and you want help. > > Send me a copy of the document suitably edited if it is private, with > the logo embedded and I will create the VFP code to print it out with > other images embedded. > > > Sent by Rafael Copquin > Sent: 07 September 2009 18:46 > Subject: vfp and automation > > I have a client that generated hundreds of Word documents and all of > them have the company logo embedded in the document header. Now they > created a subsidiary company with a different logo and want to use the > same Word documents, except that the headers should show the new logo. > FYI, these documents have to do with internal procedures and special > manufacturing norms they have to follow to comply with GMP (good > manufacturing practices). > > Can you guys give me a lead on how to automate the embedding process, so > as to replace the logo in each document for the logo in the copy? > > The idea would be to replace the embedded logo by a link to the new > logo, just in case they decide to open a third subsidiary. They would > use the same documents and change the logo once more. > > If you would show examples of code, it would be great. > > TIA > > Rafael Copquin > > > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/e03bdd6210824531af9c40255c68e...@rafael ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
