Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Visual Basic for Word - Code for Footnotes
I have the visual basic code below, but I need it to work for footnotes. Any
help, thanks. Sub ListHyperlinks() Dim srcDoc As Document, destDoc As Document Dim HL As Hyperlink Set srcDoc = ActiveDocument Set destDoc = Documents.Add For Each HL In srcDoc.Hyperlinks destDoc.Range.InsertAfter _ HL.TextToDisplay & vbTab & HL.Address & vbCr Next destDoc.Range.ConvertToTable End Sub |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Visual Basic for Word - Code for Footnotes
See the Story Ranges part of the article "Using a macro to replace text
where ever it appears in a document including Headers, Footers, Textboxes, etc. at: http://www.word.mvps.org/FAQs/Macros...AllWithVBA.htm -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "ikovy" wrote in message news I have the visual basic code below, but I need it to work for footnotes. Any help, thanks. Sub ListHyperlinks() Dim srcDoc As Document, destDoc As Document Dim HL As Hyperlink Set srcDoc = ActiveDocument Set destDoc = Documents.Add For Each HL In srcDoc.Hyperlinks destDoc.Range.InsertAfter _ HL.TextToDisplay & vbTab & HL.Address & vbCr Next destDoc.Range.ConvertToTable End Sub |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Visual Basic for Word - Code for Footnotes
See the Story Ranges part of the article "Using a macro to replace text
where ever it appears in a document including Headers, Footers, Textboxes, etc. at: http://www.word.mvps.org/FAQs/Macros...AllWithVBA.htm -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "ikovy" wrote in message news I have the visual basic code below, but I need it to work for footnotes. Any help, thanks. Sub ListHyperlinks() Dim srcDoc As Document, destDoc As Document Dim HL As Hyperlink Set srcDoc = ActiveDocument Set destDoc = Documents.Add For Each HL In srcDoc.Hyperlinks destDoc.Range.InsertAfter _ HL.TextToDisplay & vbTab & HL.Address & vbCr Next destDoc.Range.ConvertToTable End Sub |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
A visual basic problem in Word 2003. | Microsoft Word Help | |||
Word Visual Basic | Microsoft Word Help | |||
Visual Basic through Word help | Microsoft Word Help | |||
Problem with Visual Basic A in Word | Microsoft Word Help | |||
How do I stop Visual Basic Macros from word? | Microsoft Word Help |