Vba word - découpage document en fichiers html

0/5 (1 avis)

Snippet vu 11 576 fois - Téléchargée 21 fois

Contenu du snippet

Cette macro permet de découper chaque page d'un document Word en fichiers HTML indépendants tout en conservant la typographie et les images, etc...

Source / Exemple :


Option Explicit

Sub MDMain()
    Dim Page As Integer
    Dim StartRange As Range
    Dim Chemin As String

    Chemin = ActiveDocument.Path + "\"
    Selection.HomeKey Unit:=wdStory
    Set StartRange = Selection.Range
    Selection.Collapse
    While StartRange.End <= Selection.End And ActiveDocument.Content.End > Selection.End
        Page = Page + 1
        Selection.HomeKey Unit:=wdStory
        Selection.Extend
        Application.Browser.Next
        On Error GoTo SelectionFin
        Selection.Cut
        GoTo Suivant
SelectionFin:
        Selection.EndKey Unit:=wdStory
        Selection.Cut
Suivant:
        On Error GoTo 0
        Documents.Add Template:="", NewTemplate:=False, DocumentType:=1
        Selection.Paste
        ActiveDocument.SaveAs FileName:=Chemin + "Page" + CStr(Page) + ".html", fileformat:=wdFormatHTML
        ActiveDocument.Close savechanges:=False
    Wend
End Sub

Conclusion :


En espérant que celà puisse vous être utile.

A voir également

Ajouter un commentaire Commentaire
cs_glad Messages postés 97 Date d'inscription lundi 26 novembre 2001 Statut Membre Dernière intervention 24 février 2012
15 nov. 2007 à 09:52
Pour de gros documents, il faut rajouter un DoEvents avant le wend afin d'éviter que Word 2000 ne plante.

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.