ouvrir fichier doc

Version imprimable

05/06/2012, 22h32
Invité

ouvrir fichier doc
Bonjour j'essai d'ouvrir un fichier doc avec ce script mais pour x raisons il me mentionne que le fichier est utilisé et me l'ouvre qu'en lecture seule?
Code:

1 2 3 Set objWord=CreateObject("Word.Application") Set oDoc=objWord.Documents.Open("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc") oDoc.PageSetup.Orientation=1 ' Landscape
Des idées pour orienter mes recherches

Merci
06/06/2012, 00h42
l_autodidacte

Salut,

Le chargement de Winword n'est pas instantané et tu as dû exécuter le code au moins à deux reprises. Ce qui fait qu'il y a deux instances en cours d'exécution, d'où le message reçu.

Ajoute dans ton code, juste avant le dernière ligne ceci objWord.Visible = True.
Exécute le code une seule fois et attends l'apparition de la fenêtre de Word.

Super effectivement...tu avais raison :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists ("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc") then
Set word = CreateObject("Word.Application")
word.Visible = True
Set objectdocument = word.Documents.Open ("C:\Users\padawan\Desktop\ScriptUserInfo\XLSFiles\OldCU.doc")
Set oDoc=objectdocument
word.selection.Wholestory
word.selection.Font.Name = "Times New Roman"
word.selection.Font.Size = 8
oDoc.PageSetup.Orientation=1 ' Landscape
WScript.Sleep 2000
objectDocument.SaveAs("C:\Users\padawan\Desktop\testdoc.doc")
Word.Quit
Else
Msgbox "Fichier introuvable..."
End If

ça fonctionne