Soyez le premier à donner votre avis sur cette source.
Vue 7 132 fois - Téléchargée 755 fois
'convertir Document Word en rtf, txt et html et toutes extensions en Document Word(texte brut) Private Function convertword(ByVal Ext As String) As String 'Créer une instance de word oWord = CreateObject("Word.Application") 'Ouvrir un nouveau document oWord.Documents.Open(Cheminsource) 'rendre le document word visible ' oWord.Visible = True 'ce n'est pas obligatoire Select Case Ext Case ".txt" 'on enregistre en TXT oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".txt", FileFormat:=Word.WdSaveFormat.wdFormatDOSText, _ LockComments:=False, Password:="", AddToRecentFiles _ :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False) Case ".rtf" 'on enregistre en RTF oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".rtf", FileFormat:=Word.WdSaveFormat.wdFormatRTF, _ LockComments:=False, Password:="", AddToRecentFiles _ :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False) Case ".html" 'on enregistre en HTML oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".html", FileFormat:=Word.WdSaveFormat.wdFormatFilteredHTML, _ LockComments:=False, Password:="", AddToRecentFiles _ :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False) Case ".doc" 'on enregistre en Document Word (texte brut) oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".doc", FileFormat:=Word.WdSaveFormat.wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles _ :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False) End Select oWord.ActiveDocument.Close() 'on ferme le document ' oWord.Visible = False oWord.Quit() 'on ferme Word Return Ext End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.