ecrire dans un .txt [Résolu]

[kitch18]

bonjour grâce a du VBA je récupéré des valeurs qui sont objDoc.BuiltInDocumentProperties(wdPropertyTitle)
pour toutes les propriétés de word le problème c'est que ces valeur je doit les récupérés dans des variable php et cela je ne peu le faire (enfin je pense) donc je souhaiterais inséré ces valeur dans un fichier .txt afin de les récupérés ensuite par php
si vous pouvez m'aider pour écrire dans un fichier .txt merci beaucoup

[Heureux-oli]

Tu dois dois toutes les récupérer ou juste quelques unes.

Pour les mettre dans un fichier texte, tu les colles dans unnouveau document que tu sauvegarde en fichier texte et pas en doc.

Code :

ActiveDocument.SaveAs FileName:="oli.txt", FileFormat:=wdFormatText

[kitch18]

voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
' Macro enregistrée le 24/02/08 par  blachuta maxime
'
Dim objDoc As Word.Document
Dim strnom, strType As String
 
' ici prend le nom du document word pour le changer en .txt
 
strnom = Application.ActiveDocument
longueur = Len(strnom)
longueur = longueur - 3
strnom = Left(strnom, longueur)
strnom = strnom & "txt"
 
Set objDoc = Application.ActiveDocument
 
 
'ici on ouvre un fichier .txt qui porte le même nom que le fichier .doc
 
Open "C:\document\" & strnom For Output As #1
'ici on écri les propriétés dans le .txt
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyKeywords)
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyComments)
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyTitle)
Print #1, strType
' on ferme le .txt
Close #1
' on ferme le document word
objDoc.Application.Quit (wdDoNotSaveChanges)