Word templates and Active Library - creating a mirror folder

See also:

• Application-level sax-basic macros

If you wish to use Oyez's Word templates outside of OyezForms - within case management for example - you can create a mirror folder containing templates with comprehendible filenames for ease of manipulation. It is important that this folder is not directly used as a working base document production as file locks will prevent replacement.

By using application-level macros and the OyezForms ActiveLibraryComplete event (available in version 10.00S+), you can use the following script to make a mirror folder of all Word templates delivered by Active Library. Templates are copied to a folder specified in the first line of the script (root_target) and renamed to the form's library title. A log of the files copied during the last library sync is also created to aid the user. Initially, all templates will copy to the target folder. Subsequently, only newly delivered Word templates will copy.

Copy the following script into the \oyezfrms.bas file in your application folder. Call support for help.

'requires OyezForms 10.00S+ Dim fso Dim library_root Dim joblist Const root_target = "c:\AL_output" Const copy_dot = True Const copy_dotx = True Const copy_dotm = True Public Sub Application_ActiveLibraryComplete(App As OyezLegalFormsApp, status As Integer) 'Rename target folder as required. 'User must have write access to this location. Set fso=CreateObject("Scripting.FileSystemObject") If fso.FolderExists(root_target ) = False Then Set fldr = fso.createfolder(root_target) Set myWS = CreateObject("WScript.Shell") library_root = myWS.RegRead("HKEY_CURRENT_USER\Software\Oyez\Oyez Legal Forms\user\OyezDatabasePath") Set MyConn = CreateObject("ADODB.Connection") MdbFilePath = library_root & "mastlibr.mdb" MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" SQL_query = "SELECT Categories.Category, Max(CStr([revision])+[formname]) AS form_title ," & _ " Max(CStr([revision])+[path]) AS form_path " & _ " FROM LegalForms " & _ " INNER JOIN Categories ON LegalForms.CategoryID = Categories.CategoryID " & _ " WHERE (pages = -2 or pages = -500) " & _ " GROUP BY Categories.Category, LegalForms.OyezID " Set RS = MyConn.Execute(SQL_query) While Not RS.EOF ct = rs("Category") pth = Right(rs("form_path"), Len(rs("form_path")) - 8) ttle = Right(rs("form_title"), Len(rs("form_title")) - 8) If copy_dot = True Then DoCopy pth & ".dot", ttle & ".dot", ct If copy_dotx = True Then DoCopy pth & ".dotx", ttle & ".dotx", ct If copy_dotm = True Then DoCopy pth & ".dotm", ttle & ".dotm", ct RS.MoveNext Wend If joblist = "" Then joblist = "No files copied." joblist = "The following files were copied at " & Now & vbCrLf & vbCrLf & joblist Set tso = fso.createtextfile(root_target & "\_lastcopylist.txt", True) tso.write joblist tso.close joblist = "" End Sub Sub DoCopy(src, targ, cat) cat = FolderClean(cat) copyfrm = library_root & src trg_folder = root_target & "\" & cat If Not fso.folderexists(trg_folder) Then fso.createfolder trg_folder If Not fso.folderexists(trg_folder & "\revs") Then fso.createfolder trg_folder & "\revs" If fso.fileexists(copyfrm ) = True Then If fso.fileexists(trg_folder & "\revs\" & src) = False Then fso.copyfile copyfrm , trg_folder & "\revs\" & src , True 'tracking revision fso.copyfile copyfrm , trg_folder & "\" & targ, True 'human readable joblist = joblist & targ & vbCrLf End If End If End Sub Function FolderClean(f) f = Replace(f, "\", "_") f = Replace(f, "/", "_") f = Replace(f, "*", "_") FolderClean = f End Function