Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1500 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  office 97 ou avant

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

office 97 ou avant

n°2679887
Oseborn
Posté le 20-04-2007 à 11:36:03  profilanswer
 

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 ?

mood
Publicité
Posté le 20-04-2007 à 11:36:03  profilanswer
 

n°2680062
SuppotDeSa​Tante
Aka dje69r
Posté le 20-04-2007 à 20:04:08  profilanswer
 

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


---------------
Soyez malin, louez entre voisins !
n°2680471
Oseborn
Posté le 22-04-2007 à 14:28:14  profilanswer
 

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.

n°2680481
SuppotDeSa​Tante
Aka dje69r
Posté le 22-04-2007 à 15:15:41  profilanswer
 

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 !
n°2680500
Oseborn
Posté le 22-04-2007 à 16:45:39  profilanswer
 

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

n°2680519
SuppotDeSa​Tante
Aka dje69r
Posté le 22-04-2007 à 19:41:51  profilanswer
 

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 !
n°2680540
Oseborn
Posté le 22-04-2007 à 21:08:52  profilanswer
 

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.

n°2680544
Oseborn
Posté le 22-04-2007 à 21:12:30  profilanswer
 

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
n°2680545
SuppotDeSa​Tante
Aka dje69r
Posté le 22-04-2007 à 21:13:25  profilanswer
 

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 !
n°2680567
Oseborn
Posté le 22-04-2007 à 22:38:18  profilanswer
 

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

mood
Publicité
Posté le 22-04-2007 à 22:38:18  profilanswer
 

n°2680574
SuppotDeSa​Tante
Aka dje69r
Posté le 22-04-2007 à 23:16:45  profilanswer
 

Tes fichiers etaient pas sous mac par hasard ?


---------------
Soyez malin, louez entre voisins !
n°2680576
SuppotDeSa​Tante
Aka dje69r
Posté le 22-04-2007 à 23:17:42  profilanswer
 

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 !
n°2680821
Oseborn
Posté le 23-04-2007 à 20:58:30  profilanswer
 

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


Message édité par Oseborn le 23-04-2007 à 21:21:47
n°2680826
SuppotDeSa​Tante
Aka dje69r
Posté le 23-04-2007 à 21:20:09  profilanswer
 

Normalement j'ai un mail dns mon profil ;)


---------------
Soyez malin, louez entre voisins !
n°2680960
Oseborn
Posté le 24-04-2007 à 11:32:58  profilanswer
 

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

n°2680981
SuppotDeSa​Tante
Aka dje69r
Posté le 24-04-2007 à 12:46:06  profilanswer
 

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 !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  office 97 ou avant

 

Sujets relatifs
formulaire + office 2002office 2007
[Office 2003] Rechercher et Remplacer, comportement bizarreErreur "interface non enregistrée" dans Microsoft office 2003
vista compatible avc office 2003 piraté?Probleme de mise à jour Office 2003
open office writer : utiliser le dictionnaire 
Plus de sujets relatifs à : office 97 ou avant


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR