Home
Search
 
What's New
Index
Books
Links
Q & A
Newsletter
Banners
 
Feedback
Tip Jar
 
C# Helper...
 
XML RSS Feed
Follow VBHelper on Twitter
 
 
 
MSDN Visual Basic Community
 
 
 
 
 
TitleRemove hyperlinks from a Word file
DescriptionThis example shows how to remove hyperlinks from a Word file in Visual Basic 6.
KeywordsWord, Microsoft Word, Microsoft Office, hyperlink
CategoriesOffice, Miscellany
 
This program requires a reference to the Word object model. Select Project/Add Reference. Click the COM tab and select "Microsoft Word 11.0 Object Library" (or whatever version you have on your system).

To remove the hyperlinks, the program opens a Word server and uses it to open the Word document. It loops over the document's stories. For each story, it loops through Hyperlinks collection, calling each one's Delete method.

 
Private Sub cmdRemoveHyperlinks_Click()
Dim word_app As Word.Application
Dim word_doc As Word.Document
Dim doc_story As Word.Range
Dim hyper_link As Word.Hyperlink

    ' Make a Word server object.
    Set word_app = New Word.Application
    word_app.Visible = False

    ' Open the Document.
    Set word_doc = word_app.Documents.Open(txtFile.Text)

    ' Loop over all document stories.
    For Each doc_story In word_doc.StoryRanges
        For Each hyper_link In doc_story.Hyperlinks
            hyper_link.Delete
        Next
    Next doc_story

    ' Save and close the document.
    word_doc.Close True

    ' Clean up.
    word_app.Quit
    MsgBox "Done"
End Sub
 
For more information on programming Word and other Microsoft Office applications with VBA, see my book Microsoft Office Programming: A Guide for Experienced Developers.
 
 
Copyright © 1997-2010 Rocky Mountain Computer Consulting, Inc.   All rights reserved.
  Updated