Accueil > > > VBA WORD - DÉCOUPAGE DOCUMENT EN FICHIERS HTML
VBA WORD - DÉCOUPAGE DOCUMENT EN FICHIERS HTML
Information sur la source
Description
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
- 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
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.
Sources du même auteur
Sources de la même categorie
DIMENSIONS GRAPHIQUES VBA (ÉQUIVALENTS DE SCALEX, SCALEY, TW...DIMENSIONS GRAPHIQUES VBA (ÉQUIVALENTS DE SCALEX, SCALEY, TWIPSPERPIXELX, TWIPSPERPIXELY, TEXTWIDTH ET TEXTHEIGHT DE VB6) 'Ce module contient des outils qui, présents sous VB6, sont absents sous VBA/Excel, à savoir :
'1) Les méthodes ScaleX et ScaleY, qui permettent de c...
par ucfoutu
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Conversion Word -> HTML [ par Thermosam ]
Il me faudrait les sources d'un programme qui à partir d'un fichier Word génère un fichier correspondant en HTML (avec tous les TAGS).
insertion d'un document word dans une page html [ par papy ]
Comment inserer le contenu d'un document word dans une page html ?Merci d'avance
Vba Word / commonDialog.......HELP [ par villissina ]
j'affiche la fenetre de parametrage d'imprimante avec la commande:CommonDialog1.ShowPrinterComment gerer reellement les boutons OK et Annuler ???En fa
VBA - WORD [ par Blanche ]
Je désire faire une pause lors de l'exécution de la macro afin de permettre à l'utilisation de faire des corrections dans le document. Donc, une paus
VBA : Automation d'Access vers Word [ par JS ]
Je suis à la recherche d'un code source en VBA pour Access faisant la chose suivante : 1. Lancer Word2. Charger un document type3. Remplacer des mots
VBA word [ par Zackarry ]
salutj me permet de vous ecrire parce que je debute sur vba et g un probleme. alors j me suis dis que peut etre ..Donc voila c sous word g un nombre d
Mise à jour d'une formulaire créé en VBA/WORD [ par Blanche ]
J'ai créé un formulaire en VBA contenant les informations fixes qui apparaissent dans toutes mes documents Word. Ce que je voudrais faire, c'est donn
VBA Word [ par Blanche ]
Je travaille présentement avec Word et VBA. Dans la programmation, je dois faire effectuer des calculs où il y a des décimales. Je dois utiliser la
VBA dans WoRd ! [ par Rex ]
Salut,Je poste cette question pour une amie qui a un petit soucis pour faire un truc tout simple en vba sou word, elle souhaite affiche une inputbox à
les champs de word et vba [ par orion ]
lorsque l'on a insérer un champ username dans un documentpeut on modifier sa valeur ex:remplacer paul par pierre
|
Derniers Blogs
IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
RE : DATAREPORTRE : DATAREPORT par cmarcotte
Cliquez pour lire la suite par cmarcotte
Logiciels
sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|