This example publishes slides three through five of the active presentation in HTML version 3.0. It names the published presentation Mallard.htm.
With ActivePresentation.PublishObjects(1)
.FileName = "C:\Test\Mallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.HTMLVersion = ppHTMLv3
.Publish
End With