[Résolu] Conversion par lot .doc en .dot

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Conversion par lot .doc en .dot

KevinTran

Photographe

Bonjour,

J'ai plusieurs dizaines de documents word et il faudrait que je puisse les convertir en .dot... Connaissez-vous un moyen simple de le faire via une macro ? un script ?
(étant donné qu'un simple renommage ne suffit pas... )

J'ai lu le sujet suivant :
http://forum.hardware.fr/hfr/Progr [...] 7133_1.htm

C'est exactement l'inverse que je veux réaliser

Message édité par KevinTran le 02-11-2011 à 13:58:14

---------------
http://www.kevintran.fr

Publicité

olivthill

Je pense qu'il suffirait d'utiliser le code de sgachet, mais en remplaçant *.dot par *.doc et en remplaçant wdFormatDocument par wdFormatTemplate , (edit : et "c" par "t" ) ce qui donnerait :

With Application.FileSearch
.NewSearch
.TextOrProperty = "*.doc"
.LookIn = "Le_répertoire_où_sont_les_doc"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
Total = .FoundFiles.Count
For i = 1 To Total
strNomFichier = .FoundFiles(i)
Documents.Open strNomFichier
ActiveDocument.SaveAs Left(strNomFichier, Len(strNomFichier) - 1) & "t", wdFormatTemplate
ActiveDocument.Close wdDoNotSaveChanges
Next
End With

N.B. J'ai trouvé wdFormatTemplate sur la page http://msdn.microsoft.com/en-us/li [...] e.12).aspx

Message édité par olivthill le 02-11-2011 à 12:07:19

KevinTran

Photographe

Ah cool, merci et ce code je le met où ?
J'ouvre un document Word, j'ouvre ensuite Visual Basic Editor, mais après ?

Désolé je suis un pur noob en VB... j'utilise plutôt python/java

---------------
http://www.kevintran.fr

olivthill

Oui c'est du VBA.

Personnellement, je crée une macro bidon avec l'enregistreur de macros.
Puis, je vais dans l'éditeur du VBA avec alt F11 et je modifie la macro bidon en y mettant le code.

Mais attention, c'est une macro pour tous les fichiers d'un répertoire. Il est recommander de faire un test avec un seul fichier dans ce répertoire-là.

Message édité par olivthill le 02-11-2011 à 12:18:02

KevinTran

Photographe

Pour le répertoire il lui faut un chemin en dur ? (c:\dossier\)
ou un chemin logique fonctionne ?

J'ai testé vite fait mais apparemment ça ne fonctionne pas.

Message édité par KevinTran le 02-11-2011 à 13:28:10

---------------
http://www.kevintran.fr

KevinTran

Photographe

ça y est, j'y suis arrivé, avec l'aide de ce script et une autre page web. J'ai utilisé .FileName = ".doc" plutôt que .TextOrProperty = "*.doc" et .FileType = msoFileTypeAllFiles

Cela donne :

Code :

Sub ConversionDOT()
'
' ConversionDOT Macro
'
With Application.FileSearch
.NewSearch
.LookIn = "C:\TestMacro"
.SearchSubFolders = True
.FileName = "*.doc"
.Execute
Total = .FoundFiles.Count
For i = 1 To Total
strNomFichier = .FoundFiles(i)
Documents.Open strNomFichier
ActiveDocument.SaveAs Left(strNomFichier, Len(strNomFichier) - 1) & "t", wdFormatTemplate
ActiveDocument.Close wdDoNotSaveChanges
Next
End With
End Sub

Merci pour le coup de main

---------------
http://www.kevintran.fr

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Conversion par lot .doc en .dot

Sujets relatifs
MACRO VBA pour numérotation d'image Word	Champs Word /Date
Générer fichier word avec des données d'une page Web	VBA : Erreur de syntaxe dans un champs Word
Inserer des renvoi dans un doc word via une macro VB excel	Conversion VBA word vers VBS
Conversion Chiffres Anglais/Français Français/Anglais sous WORD	[delphi 7] conversion de word en string
Conversion Word vers HTML "Intelligente" ???
Plus de sujets relatifs à : [Résolu] Conversion par lot .doc en .dot

Page générée en 0.036 secondes