0/5 (1 avis)
Snippet vu 11 576 fois - Téléchargée 21 fois
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
15 nov. 2007 à 09:52
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.