Sto tentando di automatizzare delle semplici operazioni d'ufficio con
VBScript ma ho dei problemi: le righe seguenti all'apertura del
documento di writer non sono mai eseguite. Il codice lo riporto di
seguito visto che son poche righe, ogni aiuto è gradito.
P.S. UserFieldSet non so se è corretta, non sono mai riuscito ad
eseguirla...
Dim n, retval
n = NotaTecnica("SN-0")
Function UserFieldSet(str, txt, doc)
Dim xNamedFieldMasters
Dim xEnumeratedFields
xNamedFieldMasters = doc.getTextFieldMasters()
xEnumeratedFields = doc.getTextFields()
xNamedFieldMasters.getByName("com.sun.star.text.FieldMaster.User." +
str).Content=txt
xEnumeratedFields.refresh()
UserFieldSet=0
End Function
Function NotaTecnica(strNum)
Dim oSvcMgr, ObjDesktop, oDoc, args()
set oSvcMgr = CreateObject("com.sun.star.ServiceManager")
set ObjDesktop = oSvcMgr.CreateInstance("com.sun.star.frame.Desktop")
set oDoc =
ObjDesktop.loadComponentFromURL("file:///C:\Programmi\BORLAND\CBuilder6\Projects\MicronOffice\NotaTecnica.stw",
"_blank", 0, args)
'
'non esegue nessuna delle righe seguenti
'
oDoc.StoreAsUrl("file:///C:\temp\Nt" + strNum + ".sxw", args)
i = UserFieldSet("Numero", strNum, oDoc)
i = UserFieldSet("Cliente", "Multiax International spa", oDoc)
i = UserFieldSet("Progetto", "Broken Shield", oDoc)
oDoc.StoreAsUrl("file:///C:\temp\Nt" + strNum + ".sxw")
NotaTecnica=0
End Function
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.9/116 - Release Date: 30/09/2005
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
