![]() |
|
#1
|
|||
|
|||
|
Hi,
I am trying to create a policies and procedure manual for my work. So far there is an Automatic TOC (Chapters) Automatic Table of Figures (Listing of Tables / Charts or Screenshots) In a separate type of automated process, I would like to create an Appendix type of document listing, which will list all of the varying links to outside sources or within our company, so that I will have one list to update from as we update every several months various documents that are listed in this document. I cannot seem to find a way to do this. I currently, have started using a new style for the links that I would like to list in hopes that I will find a way to integrate that style into this. I am sure its just something I am missing and that there must be a way. ![]() I currently use MS Word for Mac 2016 |
|
#2
|
|||
|
|||
|
You are not just missing something. What you have specified is not a built-in Word option.
You could use the index feature to prepare a list of the links. This would be far from Automatic. Indices - Complex Documents |
|
#3
|
||||
|
||||
|
You could use a macro like:
Code:
Sub Demo()
Dim RngDoc As Range, RngOut As Range, Fld As Field
With ActiveDocument
.Range.InsertAfter vbCr & Chr(12)
Set RngDoc = .Range
RngDoc.End = RngDoc.End - 2
Set RngOut = .Characters.Last
For Each Fld In RngDoc.Fields
Select Case Fld.Type
Case wdFieldData, wdFieldDatabase, wdFieldDDE, wdFieldDDEAuto, wdFieldImport, _
wdFieldInclude, wdFieldIncludePicture, wdFieldIncludeText, wdFieldRefDoc
With RngOut
.InsertAfter vbCr
.Characters.Last.Text = Fld.LinkFormat.SourceFullName
End With
Case wdFieldHyperlink
With RngOut
.InsertAfter vbCr
.Characters.Last.FormattedText = Fld.Result.FormattedText
End With
End Select
Next
RngOut.Collapse wdCollapseStart
RngOut.Text = "External Links"
End With
End Sub
For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
#4
|
|||
|
|||
|
Thank you so much. I was thinking this might be the case, and wanted to double check with the experts.
|
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Appendix field switches
|
LadyBug679 | Word | 10 | 11-05-2015 03:39 PM |
| Appendix, Tables and Index | tanias | Word | 1 | 05-21-2014 11:08 AM |
| Automatic Appendix | darksupernova | Word | 8 | 03-02-2013 04:12 AM |
| Appendix Page Numbering | ffuhharas | Word | 1 | 02-09-2012 12:23 PM |
| No page number on appendix please | davidaexp1 | Word | 0 | 08-22-2006 06:19 PM |