Bonjour,
J'ai un script VB qui fait un appel a Word pour certains fichiers il fonctionne et pour d'autres j'ai l'erreur suivante:
Memoire insufficante.
code 800A13E9
La ligne de l'erreur correspond à l'open du script (en gras).
Je ne vois pas ce qui pose pb. Les fichiers ne sont pas forcement gros.
Le script est appelé par wsscript et l'argument est un fichier avec le chemin complet (ex c:\toto\titi\tutu\fichier.doc)
Si qq'un a une idee je lui serait super reconnaissant.
Merci.
Dim nomFichier, objWord, resultatword, args
'On verifie s il y a bien l argument de la fonction qui est le nom du fichier
Set args = Wscript.Arguments
If args.count=0 Then
WScript.Echo "il manque les parametres"
WScript.quit 'on sort du vbs si pas d argument
else
nomFichier=args(0)
end if
'Definition du fichier resultat
resultatword="C:\Documents and Settings\user\Mes documents\resultatdoc.txt"
'Ouverture des applications
Set objWord = CreateObject("Word.Application" )
objWord.Visible = False 'on affiche pas word
objWord.DisplayAlerts = wdAlertsNone 'on affiche pas les alertes
'ouverture du fichier Word
Set objDoc = objWord.Documents.Open(nomFichier,False,True) 'ouverture sans conversion en lecture seule
Set objFSO = CreateObject("Scripting.FileSystemObject" )
'ouverture du fichier de resultat
Set objFiledoc = objFSO.CreateTextFile(resultatword)
'recherche des hyperlinks non vide et copie dans le fichier de resultat
Set colHyperlinks = objDoc.Hyperlinks
For Each objHyperlink in colHyperlinks
if not (objHyperlink.Address="" ) then
objFiledoc.WriteLine chr(34) & objHyperlink.Address & Chr(34) & " ; " & objHyperlink.TextToDisplay
end if
Next
