Vba word - découpage document en fichiers html
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 296 fois - Téléchargée 19 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...
En espérant que celà puisse vous être utile.
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
- Découpage html
- Wdformathtml - Meilleures réponses
- Selection.endkey unit:=wdstory - Meilleures réponses
- Découpage d'une page html dans un array ✓ - Forum - PHP
- Tableau php html - Conseils pratiques - PHP
- Exemple de code html page d'accueil ✓ - Forum - Graphisme/design
- Code source formulaire d'inscription html - Guide
- Exemple page d'authentification html - Conseils pratiques - PHP
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.