View Single Post
 
Old 11-14-2014, 08:02 AM
gmayor's Avatar
gmayor gmayor is offline Windows 7 64bit Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

The Word add-in at http://www.gmayor.com/document_batch_processes.htm will handle the backroom tasks relating to the folders and sub folder processing and it is then a relatively simple process to create a custom function to run from the add-in to insert a specific text at the end, either from the clipboard, or from text saved as an autotext entry or directly from text defined in the function e.g. Using an Autotext entry

Function AddAPage(oDoc As Document) As Boolean
Dim oRng As Range
On Error GoTo Err_Handler
Set oRng = oDoc.Range
oRng.Collapse 0
oRng.InsertBreak wdPageBreak
Set oRng = oDoc.Range
oRng.Collapse 0
Application.Templates("Normal.dotm"). _
BuildingBlockEntries("AutoTextName").Insert _
Where:=oRng, _
RichText:=True
AddAPage = True
lbl_Exit:
Exit Function
Err_Handler:
AddAPage = False
Resume lbl_Exit
End Function
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote