![]() |
#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.
|
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |