VBA WORD - DÉCOUPAGE DOCUMENT EN FICHIERS HTML

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

• XRCOPY - UNE SORTE DE SYNCHRONISATION DE RÉPERTOIRES
• CHANGEMENT DE RÉSOLUTION AU LANCEMENT D'UNE APPLI
• ÉDITEUR DE TEXTE

• CALCUL TREMIE
• BOUTONSFACEID
• GESTION DES INTERVENTIONS SUR UN PARC MACHINES
• USF_DATES.XLS (API VBA)
• UN GRAPHIQUE 3D TOUT EN MOUVEMENT

• TABLES DE MULTIPLICATION
• BOUTONSFACEID
• TUER UNE/DES SESSION(S) CACHÉE(S) D'EXCEL À PARTIR D'UNE AUTRE SESSION
• WORD : OUVERTURE (AVEC OU SANS PASSWORD) ET PROPRIÉTÉES D'UN DOCUMENT WORD
• INSÉRER UN DOCUMENT PPT AUTOMATIQUEMENT DANS UN WORD