office 97 ou avant

office 97 ou avant - Logiciels - Windows & Software

Marsh Posté le 20-04-2007 à 11:36:03    

Bonjour à tous,
Je viens vers vous une problèmatique peut commune :
 
Je me retrouve avec un bon paquet de fichiers word au format .doc accompagné d'un fichier txt et sty.
Ces fichiers date d'une autre époque et le but du jeux serait de pouvoir les ouvrir.
Une idée ?

Reply

Marsh Posté le 20-04-2007 à 11:36:03   

Reply

Marsh Posté le 20-04-2007 à 20:04:08    

Bonjour
 
Tes fichiers .doc ne sont pas lisibles avec Word97/2000/xp/2003/2007 ?
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 22-04-2007 à 14:28:14    

si par 97 et 2000 mais le problème cest que il y a 500 fichiers au moins.
 
et que je ne me vois pas les prendre un par un pour les réengistré
 
j'avais déja une manip avec office 2003 en rajoutant une dll.
Mais maintenant avec le 2007 ca marche pu.

Reply

Marsh Posté le 22-04-2007 à 15:15:41    

Bonjour
 
Tes fichiers sont dns le meme dossier ?
 
Si c'est le cas une tite macro qui ouvre enregistre tes fichiers au format voulu et referme...
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 22-04-2007 à 16:45:39    

pas vraiment mais bon ca peut etre une idée.
Comment pourrais je faire ça ?
sachant que pour moi un macro cest un poisson ? :)

Reply

Marsh Posté le 22-04-2007 à 19:41:51    

Bonsoir
 
Il y a certainement plus rapide mais j'avoue ne pas avoir cherché 3h...
 
Je pars du principe que tes docs sont sur C:\FichiersWord\
 

  • Tu vas dans demarrer executer, tu tapes cmd


ici tu tapes :

cd\
c:\
cd FichiersWord
dir *.doc >c:\FichiersWord\FichiersWord.txt /D


Tu te retrouves avec un fichier texte (FichiersWord.txt) contenant la liste des documents Word se trouvant dans C:\FichiersWord\
 

  • Tu ouvres ce fichier texte, tu vires les entetes "Le volume dans le lecteur..." etc. de maniere a ce que ta premiere ligne et ta derniere ligne dans le fichier texte soit le nom d'eun des documents.


  • Tu ouvres ce fichier texte "reformaté" avec Excel.

Tu vas te retrouver avec en A1 le premier nom doc en A2 le second etc.
Tu enregistres ton fichier et tu fermes Excel
 

  • Tu ouvres Word sur un document vierge

Menu : Outis, Macro, Visual Basic Editor
Tu te retrouve dans l'interface de VBA de Word
Sur la gauche il y a une arborescence, tu deplies Normal - Modules - NewMacros
Tu selectionnes NewMacros pour que ca apparaisse dans la fenetre de droite.
Dans cette fenetre tu saisi ceci dans NewMacros

Sub ChangeFormat()
 
    Nom = ActiveDocument.Name 'récupere le nom du fichier ouvert
    Chemin = "C:\FichiersWordNouveau\" 'defini le nouveau changement pour enregistrer, veiller a ce que le dossier FichiersWordNouveau existe
 
    ChangeFileOpenDirectory Chemin 'change le chemin d'enregistrement du doc
    ActiveDocument.SaveAs FileName:=Nom, FileFormat:=wdFormatDocument 'enregistre ton doc avec le meme nom mais dans un dossier different
 
End Sub


Là on vient de créer la macro qui va enregistrer tes docs au format Word par defaut dans le dossier  
C:\FichiersWordNouveau\
Tu enregistres avec la disquette dans Visual Basic Editor et tu fermes Word
 

  • Tu ouvres Excel avec ton fichier texte reformaté que tu as enregistré dans un des points avant, tu vas dans menu : Outis, Macro, Visual Basic Editor

Tu te retrouve dans l'interface de VBA d'excel
 

  • Menu : Insertion, Module

Une page blanche sur la droite apparait avec des pioches en haut (Général) et (Declaration)
Tu saisis ceci dedans
 

Sub ChangeDoc()
 
Dim NbLigne
 
NbLigne = 500 'Nombre de ligne qui sont remplies, a modifier en consequence
 
CheminVersDoc = "C:\FichiersWord\" 'chemin vers tes fichiers doc
 
    For x = 1 To NbLigne
        Cells(x, 1).Value = CheminVersDoc & Cells(x, 1).Value & " /m ChangeFormat"
        'Il va modifier chaque cellule de 1 à 500
        'Ex : si ta cellule A1 = Toto.doc
        'elle deviendra "C:\FichiersWord\Toto.doc /m ChangeFormat"
    Next x
     
End Sub


  • Tu lances la macro avec le petit triangle bleu dans la barre d'icones
  • Tu enregistres ton fichier Excel au format Excel ou tu veux.
  • Tu enregistre ton fichier Excel au format Txt


Tu vas te retrouver donc avec un fichier texte contenant :

C:\FichiersWord\tutu.doc /m ChangeFormat
C:\FichiersWord\toto.doc /m ChangeFormat
C:\FichiersWord\tata.doc /m ChangeFormat
Etc.


 

  • Il te suffit maintenant de renommer ton fichier texte en bat et de le lancer.

Donc en gros, il va lancer C:\FichiersWord\tutu.doc et lancer la macro (/m) nommée ChangeFormat
 
J'espere avoir ete clair.
 
Si qqun a une meilleure idée, surtout plus courte... lol
 
Cordialement


Message édité par SuppotDeSaTante le 22-04-2007 à 21:14:11

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 22-04-2007 à 21:08:52    

outch.
Avant meme de tester et de comprend je te dis un "MERCI"
Ne serait de que pour l'idée et le temps que tu as du mettre à taper.
GRAND MERCI
 
Je te donne un retour rapide sur ceci.

Reply

Marsh Posté le 22-04-2007 à 21:12:30    

N'importe quelle version de word marchera ?
 
Le point STY ne posera til pas de problème ?? (style)
 
 
Tu crois que la ca va me lenregistré dun format doc antérieur a un format doc nouveau ?
:) :)
 
merci pour tout


Message édité par Oseborn le 22-04-2007 à 21:19:26
Reply

Marsh Posté le 22-04-2007 à 21:13:25    

Pas de quoi le forum est fait pour ca :d
 
J'ai edité, j'ai oublié un point crucial, en rouge
 
Cordialement
 
[edit]
 
Je l'ai fait sous 2003 avec des fichier Word6 et pas de souci rencontré
 
[/edit]


Message édité par SuppotDeSaTante le 22-04-2007 à 21:15:45

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 22-04-2007 à 22:38:18    

oui en fait le problème c'est que il faut réimporter le fichier sty correspondant au fichier
:s

Reply

Marsh Posté le 22-04-2007 à 22:38:18   

Reply

Marsh Posté le 22-04-2007 à 23:16:45    

Tes fichiers etaient pas sous mac par hasard ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 22-04-2007 à 23:17:42    

t'as pas un exemple que je regarde concretement ?
Parceque les fichiers de styles je ne vois pas pk ca generait l'enregistrement sous Word... Ou alors ce sont des docs specifiques...


Message édité par SuppotDeSaTante le 22-04-2007 à 23:19:11

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 23-04-2007 à 20:58:30    

je peux te le balance par msn
:)
 
ok pour le mail


Message édité par Oseborn le 23-04-2007 à 21:21:47
Reply

Marsh Posté le 23-04-2007 à 21:20:09    

Normalement j'ai un mail dns mon profil ;)


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 24-04-2007 à 11:32:58    

je l'ai balance hier,
l'as tu recu ?
 
Merci encore et encore vraiment merci :)

Reply

Marsh Posté le 24-04-2007 à 12:46:06    

Oui oui je l'ai eu, me suis bien pris la tete...
Donc en fait quand tu ouvres le Doc Word avec le bloc note, on voit qu'il cherche le fichier sty sur O:
J'ai donc remplacé O: par C: pour voir si ca tournait. Mais a l'ouverture il me dit que le fichier ne fonctionne plus... Normal.
Mais je ne sais pas comment faire pour lui dire de ne pas chercher le .sty sur 0:\ mais ailleurs...
 
J'ai essayé pas mal de combines pour le forcer a pointer ailleurs etc, ajouter les styles au normal.dot etc. bref rien n'y fait.
 
Seule solution trouvée, mettre tes docs sur C:\ par exemple et tes .sty sur O:\ (lecteur reseau que je me suis mis) et la ca marche. Suffit de decocher la case comma quoi il y a le message de conversion de fichier.
Reste a esperer que les liens vers les .sty sont toujours vers O:\
 
Voila si tu as une autre piste tiens moi au courant, j'aime po rester au pied du mur ! lol
 
Cordialement
 
 
[edit]
Morceau du début de ton fichier Word ouvert avec le bloc note :
 

Citation :

1¾   «                 
 
 
 O:\NEW11.STY


[/edit]
 
 
Trouver de la doc sur Word 3.... MDR


Message édité par SuppotDeSaTante le 24-04-2007 à 12:49:03

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed