Vba word - découpage document en fichiers html

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_glad)