1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Vba word - découpage document en fichiers html

Vba word - découpage document en fichiers html

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 166 fois - Téléchargée 19 fois

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

Ajouter un commentaire

Commentaire

Signaler
Messages postés
97
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
24 février 2012
Pour de gros documents, il faut rajouter un DoEvents avant le wend afin d'éviter que Word 2000 ne plante.
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)