Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

How to retreive single page content in VBA MS-Word2007

Posted on 2009-05-08
3
Medium Priority
?
180 Views
Last Modified: 2013-11-10
I have the necessity to create from a .DOC file, for each page in it, a page.html
I explain better, for each page in the .DOC document I need to create a single HTML document.
from A.doc -> to -> Apage1.html, Apage2.html, Apage3.html
All this with VBA.
How can I do?
Thanks.
0
Comment
Question by:bobdylan75
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 2000 total points
ID: 24337629
Hi. bobdylan75.  

Try this.
Sub SavePages()
    Dim wrdDoc1 As Word.Document, _
        wrdDoc2 As Word.Document, _
        wrdRange As Word.Range, _
        intPages As Integer
    Set wrdDoc1 = ActiveDocument
    On Error Resume Next
    For intPages = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages.Count
        Set wrdRange = ActiveDocument.Range
        Selection.GoTo wdGoToPage, wdGoToAbsolute, intPages
        Set wrdRange = ActiveDocument.Bookmarks("\Page").Range
        wrdRange.Copy
        Set wrdDoc2 = Application.Documents.Add
        wrdDoc2.Range.Paste
        wrdDoc2.SaveAs wrdDoc1.Name & "-Page" & intPages & ".html", wdFormatHTML
        wrdDoc2.Close
        Set wrdDoc2 = Nothing
    Next
End Sub

Open in new window

0
 

Author Closing Comment

by:bobdylan75
ID: 31579386
You are not a sage, you are something like a cyber-god!
thank you!
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24344153
LOL!  Thanks and you're welcome.
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
The SignAloud Glove is capable of translating American Sign Language signs into text and audio.
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…
Loops Section Overview
Suggested Courses

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question