]zTk xzȤJ @ȓ'?7{PX0@ 0J 3 i`у{`l^ oP/Zhipe&ǩSrԐH埍ZdĘ}-ؐd2 !#BfjpKOU!g*F5` gg \`!z7:}gߗK+~.kL ۊIℶ.""Bf 8DqyPg1 9t^gucq =0U@Z
{2XeS%4 kms4#2+,^o3vQRκnvgy Lُ G=oqeWKȧ~AH dT0.3Pնe)+@ T 2 T i t l e d a$ 5CJ( OJ PJ QJ aJ( nHtH P oP 2
T i t l e C h a r # 5CJ( OJ PJ QJ ^J aJ( nHtH T O "T 2 F i e l d T e x t d 1$ CJ OJ PJ QJ ^J aJ > @ 2> 2 H e a d e r d H$ . A. 2 H e a d e r C h a r > @ R> 2 F o o t e r d H$ . a. 2 F o o t e r C h a r N @ rN 2 B a l l o o n T e x t d CJ OJ QJ aJ N oN 2 B a l l o o n T e x t C h a r CJ OJ QJ ^J aJ Z @ Z 2 L i s t P a r a g r a p h d ^ CJ OJ PJ QJ aJ PK ! [Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;r ØJB+$G]7O٭V$ !)O^rC$y@ /yH*)UDb`}"qۋJחX^)I`nEp)liV[]1M<OP6r=zgbIguSe bORD۫qu gZo~ٺlAplxpT0+[}`j zA V2Fi@qv֬5\|ʜ̭NleXd sjcs7f
W+Ն7` g ȘJj|h(KD-
dXiJ؇(x$( :;˹! I_TS 1?E ??ZBΪmU/ ?~xY'y5g&/ɋ>GMGeD3Vq%'#q$8K )fw 9:ĵ
x}rxwr:\TZaG*y8IjbRc|XŻǿI
u3KGnD 1NIBs
RuK>V.E L+M2#'fi ~V vl{u8z H
* :( W ☕
~JTe\O*tHGHY }KNP*ݾ˦ TѼ9/#A7qZ $*c?qUnwN%Oi4 =3N)cbJ
uV4(Tn
7_?m-ٛ{UBwznʜ"Z xJZp; {/<P;,)''KQk5 qpN8KGbe
Sd̛\17 pa>SR!
3 K4'+rzQ
TTIIvt]Kc⫲K#v5+|D~ O@%\w_nN[L9KqgVhn
R!y+Un;*&/HrT >>\
t=.Tġ
S; Z~!P9giCڧ!# B,;X=ۻ,I2UWV9$lk=Aj;{AP79|s*Y ; ̠[MCۿhf]o{oY=1kyV V5E8Vk+֜\80X4D)!!?*|fv
u"xA@T_q64)kڬuV7 t '%;i9s9x,ڎ-45xd8?ǘd/Y|t &LILJ`& -Gt/ PK !
ѐ ' theme/theme/_rels/themeManager.xml.relsM
0wooӺ&݈Э5
6?$Q
,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{ P8g/ ]QAsم(#L[ PK- ! [Content_Types].xmlPK- ! ֧ 6 0 _rels/.relsPK- ! ky theme/theme/themeManager.xmlPK- ! 0C) theme/theme/theme1.xmlPK- !
ѐ ' theme/theme/_rels/themeManager.xml.relsPK ]
, [ E ( 2 K; C K S ] g 3q ^y À Y d M A = o r " =+ 3 ; $D N W ]a j s { B ҋ 8 " ' * . 2 6 9 = @ D G K N R U X [ _ c f U
Z d 5 . # % s) s, 0 4 8 : > PA C 2F (I L *O R $V Y /] ` d h k o qr Lu 4x { } τ H h 5 5 M $ L j w S C [ Q# & * e- *0 h3 6 : > (A D =H IL P BU X \ ` 'e ,i l p s w { L~ ; у >
! # $ % & ( ) + , - / 0 1 3 4 5 7 8 : ; < > ? A B C E F H I J L M O P Q S T V W Y Z \ ] ^ ` a b d e / h p ! T # @ H 0 (
0 (
B
S ? x x x uPk\S h^h`OJ QJ o( 8^8`OJ QJ ^J o( o ^`OJ QJ o( ^ `OJ QJ o( ^ `OJ QJ ^J o( o x^x`OJ QJ o( H^H`OJ QJ o( ^`OJ QJ ^J o( o ^`OJ QJ o( u 妺 KT4Q /3 :
, ' :
, iS?' 4Q 2 p4 n
V 4 4 V 4 4 V 4 4 5 T e m p l a t e P r o j e c t . N e w M a c r o s . C l e a n U p R e q u i r e m e n t s D o c u m e n t 8 T e m p l a t e P r o j e c t . N e w M a c r o s . R e p l a c e P r o c e s s A n d F u n c t i o n N a m e s K T e m p l a t e P r o j e c t . N e w M a c r o s . R e m o v e A p p e n d i c e s A n d R e p l a c e P r o c e s s A n d F u n c t i o n N a m e s 5 T E M P L A T E P R O J E C T . N E W M A C R O S . C L E A N U P R E Q U I R E M E N T S D O C U M E N T 8 T E M P L A T E P R O J E C T . N E W M A C R O S . R E P L A C E P R O C E S S A N D F U N C T I O N N A M E S K T E M P L A T E P R O J E C T . N E W M A C R O S . R E M O V E A P P E N D I C E S A N D R E P L A C E P R O C E S S A N D F U N C T I O N N A M E S @ @ U n k n o w n G * Ax T i m e s N e w R o m a n 5 S y m b o l 3. * Cx A r i a l 7. @ C a l i b r i 5. . [` ) T a h o m a ; W i n g d i n g s ?= * Cx C o u r i e r N e w A $ B C a m b r i a M a t h " 1 h 11 : 9O : 9O ! 0 ? ? +` J HP $P u 2 2 ! x x P a u l I s b e l l L e e R o b i n s o n Oh +'0 x
4 @
L X ` h p Paul Isbell Normal.dotm Lee Robinson 2 Microsoft Office Word @ @ 1@ 1 : 9O ՜. +,0 h p |
? Title
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g i j k l m n o p q r s t u v w x y z { | } ~ E 9 R o o t E n t r y F FZ!1 D a t a
h w 1 T a b l e y) W o r d D o c u m e n t 4 S u m m a r y I n f o r m a t i o n ( D o c u m e n t S u m m a r y I n f o r m a t i o n 8 M a c r o s @U!1@U!1 V B A @U!1@U!1 d i r B N e w M a c r o s
/ T h i s D o c u m e n t
_ V B A _ P R O J E C T ;
! # > 0* pH d Template ProjectQ H @
=
| tV J<
9stdole>s t d o l eP
h %^ * \G{00020430- C
0046}# 2.0#0#C: \Windows \system32\e2.tlb #OLE Automation 0 EOfficEO f i cEE2DF 8D04C-5B FA-101B-BDE5EAAC42Egra m Files\@CommonM icrosoft Shared\ OFFICE14 \MSO.DLL#M 14.0 Ob Libprary K `NormalN r m a *\C
Ag z| ~o'BeThi sDocumenPtG Tfi s D@c uQe nn 2E HB1B
@ B,!("B+B A.NewMaOG N iw M:c r %s
2 O M [ ! C o' x ME (
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 : F < = > ? @ A B C D r } o'[ x ME ( <. < < <: 0 *x ! ,p % 8 6( K 2 _ ) % @ ` @ ` @ 4x Y @ ` ` p :0 \ % @ ` ` - @ % ` ` < Y ` ` ` % > ` ` ` ` ` ` % % % + P ' I p I ` ` ` @ Q ` ` @ @ @ ` B0 ` +
i ` +"x
i$ 8
i& X
i( `
i,
i. i0 `2 `4 4 8 % < % `> `@ ` " " 8 P @ D
0 8 @ H P X ` h p 6 : ( @ " H P & X ( 0 8 @ H P X ` h p
" $ ^ x : ( 0 8 @ H P \ X : ( h x \ X h : 0 @ P X ` h p x \
@
`
h
" p
x
h
h H p X 8 0 6 h Z J
P
`
$
( 0 8 @ H P X x 2 . . P ` " p 0 V P " . ( H X ` h p x B 0 P " X ` * h F
( 0 H " P X , ` Z | h p ( h N 0 ` @ N p
` 0 P 8 . ( 0 8 @ H P X ` d x H @ P h x J X h ( " 0 8 > @ r " < R H P X h L p J D X h Z @! P! " `! ! ! 0 ! ! ` " `"
x" " " " " " " # j # # J #
#
# $ D $ X$ h$ $ $ $ $ $ $ $ $ $ $ $ $ 4 $ % 0% H% X% `% p% x% % % % % % % % % % " % % % & X & h& p& & & 6 & * & & ' ' 0' 8' @' H' P' X' `' h' p' x' ' ' ' V ' ( N ( h( @ x( ( (
( ( " ) ) ) N 0) F ) 2 ) D * . H* P x* P * + + (+ 0+ X 8+ . + J + Z , J p, , , , - (- 8- H- h- x- - - - - - - - - - - . - . . @. 0 p. . 0 . . v / / / / / / / / / 0 (0 00 80 @0 H0 P0 X0 `0 h0 p0 x0 0 B 0 0 0 1 " (1 01 81 N X1 F 1 4 1 D (2 . p2 P 2 P 2 @3 H3 P3 X3 `3 h3 p3 x3 X 3 0 3 \ 4 J h4 Z 4 J 5 h5 x5 5 5 5 5 5 6 06 86 @6 H6 P6 X6 `6 h6 p6 x6 6 6 . 6 . 6 (7 d H7 0 7 ` 7 @8 R P8 8 T 8 9 v 9 6 9 9 @ 9 : : 0: P: X: `: h: p: x: : : : : 8 : : ; ^ ; 8 x; ; n ; (< l 8< < $ < < V < T H= = = l = b 0> b >
? ? ? $ ? H? P? X? h? x? ? ? ? ? ? ? ? ? ? ? ? @ B @ 0 `@ @ B @ < @ < @ A (A 0A 8A J PA A A A
A A A 4 B HB XB
`B L pB @ B
C C C (C 0C @ @C C C C " C C C L C F D $ `D b D > D 0E 8E @E X `E E > E 0 F Z 0F J F F F G N (G xG G
G G G G H H H (H 0H 8H @H HH PH XH `H H . H H . H . I @I N `I I I I I J J J J J (J 0J 8J @J HJ
PJ `J J B J 0 J K " K K V K @ xK K K K K L & L & HL . pL
L L B L L Z L (M 0M $ 8M $ `M M B M M ^ M 8 N 8N @N XN pN xN B N N N N 6 N O O (O J @O
O " O O < O
P ( P HP 8 PP P P " P P H P P P Q Q Q Q L 0Q Q Q Q Q Q Q Q R R R R R (R 0R 8R XR hR R d R S S S 0S PS `S hS pS xS S S S S S S S CleanUpRequirementsDocument
J This is parent subroutine that calls other subroutines within this module > to clean up the requirements document output from DocFactory. ] X . , Tahoma ,( O b
,( 0i b ,A@2 A@4 A@6 A@8 A@: A@< A@> A@@ A@6
LeftAlignText A@B 0 Update the Page Numbers in the Table of Contents 4 ActiveDocument.TablesOfContents(1).UpdatePageNumbers Go to top of Document J H DB@F o x PutCachedImagesInDocument Macro When CaliberRM DocFactory creates a document, all exported images are cached locally and linked within the document. When a document is viewed on another computer, the images do not appear. This macro puts the cached images directly in the document. L! N! P L! N( P D! RB@T D! R! VB@T D! R INCLUDEPICTURE \d9 d INCLUDEPICTURE 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q l j D! RB@h DB@n D! pB@r L! N! P L! N( P DB@H o RemoveExcessiveEOLChars Macro W This macro goes through the document and replaces two blank lines with one blank line. 3 Find all situations with 5 EOL characters in a row D! RB@T D! R! VB@T D! R
^p^p^p^p^p9 d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q V Reduce the number of EOL characters in a row to 2...therefore, removing extra spaces. D! R! hb x v DB@t | H ~ DB@z | H ~ DB@ 3 Find all situations with 4 EOL characters in a row D! RB@T D! R! VB@T D! R ^p^p^p^p9 d9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q V Reduce the number of EOL characters in a row to 2...therefore, removing extra spaces. D! R! hb x v DB@t | H ~ DB@z | H ~ DB@ 8 3 Find all situations with 3 EOL characters in a row D! RB@T D! R! VB@T D! R ^p^p^p9 d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q h V Reduce the number of EOL characters in a row to 2...therefore, removing extra spaces. D! R! hb x v DB@t | H ~ DB@z | H ~ DB@ o ( ChangeFontForBlockOfText a This routine scans document for blocks surrounded by strKeyBegin and strKeyEnd which identifies a a block of text to be changed. The strKeyBegin and strKeyEnd must be part of the Doc Fac Template. B (e.g. !#BEGIN_FONT_CHANGE#! !#END_FONT_CHANGE#!).] ] R '''''''''''''''' Edit these Values to Match Your Criteria '''''''''''''''''''''''' !#BEGIN_FONT_CHANGE#! ' . String to Search for !#END_FONT_CHANGE#! ' * String to Search for S ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' D Show Field Codes so we don't Search through Table of Contents etc... L! N( P Go to top of Document J H DB@F Set Search Criteria D! RB@T D! R 9 d ) Find this Begin string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q Loop Thru the Search D! R! hb | H ~ DB@ 8 Delete strKeyBegin H DB@ H DB@ + Select to End of Line D! ! ' ( Set Search Criteria to find matching End D! RB@T D! R 9 d + Find this End string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q D! RB@h D! ' ] % . DB@ $ Delete StrKeyEnd P Apply Font and Size to the Block of text surrounded by strKeyBegin and strKeyEnd ! ! .( ! 0 ! .( 0 ( Need to set the selection criteria again D! RB@T D! R 9 d - Find this string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q ` X Show Fields like TOC L! N( P ; Update the Table of Contents so the indents show in the TOC ) ActiveDocument.TablesOfContents(1).Update o
$ RemoveSpacesBetweenParagraphs Macro @ This macro removes spaces between paragraphs of the same style. DB@n D! 9 9 9 9 q J H DB@F o x % ReplaceProcessAndFunctionNames Macro Process Name Replacement S This sub asks the user to input the desired Process for the Requirements Document, v finds the Title of the Document and **Process** key and replaces it with the desired Process Name (myDesiredProcess), b then it removes the spaces and replaces the filter names to get the correct process from Caliber. Function Name Replacement j This sub asks the user to input the desired Function for the Requirements Document as shown in CaliberRM, b finds the **Function** keys and replaces them with the desired Function Name (myDesiredFunction). ] ] Q Please enter the Process for the Requirements Document (do not include numbers):
$ " Example: Manage Market Settlements Requirements Document: Process $ ' G If user presses Cancel, present this message and don't change anything 3 Process and Function Name Replacement is Cancelled. Requirements Document $ ' d X ^ Please enter the Function (exactly as it appears in CaliberRM) for the Requirements Document:
$ Example: FM03-SETTLEMENTS Requirements Document: Function $ ' G If user presses Cancel, present this message and don't change anything 3 Process and Function Name Replacement is Cancelled. Requirements Document $ ' k D 1 If the user presses Cancel, skip all replacement ( Replace the Title with the Process Name D! RB@T D! R! VB@T D! R **ProcessTitle**9 d 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q l j D! RB@h ^ Condense the Process Name by removing spaces...getting the name ready for the Caliber filters $ j ' B Replace the Filter Names so they are specific to the process name D! RB@T D! R! VB@T D! R **ProcessFilter** 9 d 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q l j D! RB@h D Replace the Function Names so they are specific to the process name D! RB@T D! R! VB@T D! R **Function**9 d 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q l j D! RB@h k k o 8 RemoveAppendicesAndReplaceProcessAndFunctionNames Macro y This subroutine calls two other subroutines. First, it calls RemoveAppendices to remove all appendices in the document. k Then, it call ReplaceProcessAndFunctionNames to prompt the user to create their process-specific template. A@ A@ o ` p 6 DetectRemoveEmptySupportingRequirementsSections Macro K This Sub detects and removes all empty "Supporting Requirements" sections. ] ] ] ) !#DETECT_EMPTY_SUPPORTING_SECTION_START#! ' B String to Search for ' !#DETECT_EMPTY_SUPPORTING_SECTION_END#! ' > String to Search for > Find the beginning of first "Supporting Requirements" section D! RB@T D! R! VB@T D! R 9 d9 X \9 Z 9 9 ^ 9 ` 9 f 9 d 9 b q S Loop through the Supporting Requirements Sections, Find Empty ones and delete them D! R! hb D! ' DB@ Delete Start Tag x v DB@t : DB@ D! . 0 Save Supporting Title Range x v DB@t Z Find the next non-blank line to determine if the Supporting Requirements Section is Empty D! d b DB@ x v DB@t H ~ DB@ D! D( H DB@ D! D( c Determine if the Selection is the End Tag...if it is, the Supporting Requirements Section is Empty D! d D Found an empty section...delete the Supporting Title and the End Tag DB@ B@ k = Find the beginning of next "Supporting Requirements" section D! RB@T D! R! VB@T D! R 9 d9 X \9 Z 9 9 ^ 9 ` 9 f 9 d 9 b q - Delete all End Tags remaining in the document D! RB@T D! R! VB@T D! R 9 d 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 f 9 d 9 b q H l j D! RB@h o ( 0 LeftAlignText Macro R This Left Aligns all text between the strKeyBegin tag and the end of the document ] ] ] !#LEFT_ALIGN_START#!' - String to Search for $ Find the beginning Left Align Range D! RB@T D! R! VB@T D! R 9 d9 X \9 Z 9 9 ^ 9 ` 9 f 9 d 9 b q D! RB@h D! . D! ' O Set the leftAlignRange to be from the startPosition to the end of the document ! . H Expand the Selection to cover everything between the start and end tags ( 9 Left align everything except the Title on the Cover Page ! ( Delete the Start tag B@ o ChangeWordHeadings G This routine scans document for strKey which identifies a Heading style @ to be changed. The strKey must be part of the Doc Fac Template. , (e.g. !#HEADING#!<> <>). = The strKey is deleted and the ".'s" in hierarchy are counted. ( There is an option for base 0 or base 1. I blnBase1 = False has no "." at the end of hierarchy. (e.g. 1, 1.1, 1.1.1) I blnBase1 = True has a "." at the end of hierarchy (e.g. 1., 1.1., 1.1.1.) ] H ] ` ] x ] R '''''''''''''''' Edit these Values to Match Your Criteria '''''''''''''''''''''''' !#HEADING#! ' String to Search for ' > Is there a "." at the end of Hierarchy? Yes = True, No = False S ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' D Show Field Codes so we don't Search through Table of Contents etc... L! N( P Go to top of Document J H DB@F Set Search Criteria D! RB@T D! R 9 d $ Find this string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q @ Loop Thru the Search D! R! hb | H ~ DB@ 8
Delete strKey H DB@ H DB@ + Select to End of Line D! . ) Store selection information ! d$ $ ( d ! d $ ' C Calculate Head Style Apply Heading Style Heading $ $ % ( [ : Set Heading to number of dots + 1 (1.1 will be Heading 2) UC# B@ d H FR# B@ k ( D! RB@T D! R 9 d ( Find this string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q Show Fields like TOC L! N( P ; Update the Table of Contents so the indents show in the TOC ) ActiveDocument.TablesOfContents(1).Update o ChangeGRWordHeadings G This routine scans document for strKey which identifies a Heading style @ to be changed. The strKey must be part of the Doc Fac Template. . (e.g. !#GRHEADING#!<> <>). = The strKey is deleted and the ".'s" in hierarchy are counted. ( There is an option for base 0 or base 1. I blnBase1 = False has no "." at the end of hierarchy. (e.g. 1, 1.1, 1.1.1) I blnBase1 = True has a "." at the end of hierarchy (e.g. 1., 1.1., 1.1.1.) ] ] ] 8 ] P ] h ] ] ] R '''''''''''''''' Edit these Values to Match Your Criteria ''''''''''''''''''''''''
!#GRHEADING#! ' ! String to Search for !#END_ASSOC_PROCESSES#! ' 2 6 String to find end of range for "Associated Processes" ' > Is there a "." at the end of Hierarchy? Yes = True, No = False S ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' D Show Field Codes so we don't Search through Table of Contents etc... L! N( P Go to top of Document J H DB@F Set Search Criteria D! RB@T D! R 9 d $ Find this string .Replacement.Text = "" 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q Loop Thru the Search D! R! hb H DB@ H DB@ + Select to End of Line D! . ) Store Requirement Heading ! d$ $ ( d ] CleanString removes any non-printing characters; Trim removes any leading or trailing spaces ! d $ ' C Calculate Head Style Z Apply Heading Style and Remove the Caliber Heading Information (Caliber Hierarchy and Tag) ! d$ ( d X 2 If a heading, remove the Caliber Hierarchy and Tag d P ! d $ ( d Y 3 If not a heading, just remove the Caliber Hierarchy k Heading $ $ % ( [ 9 Set Heading to number of dots + 1 (1.1 will be Heading 2) / Find the starting position for the Requirement ! ' : Find end of the Associated Processes for this Requirement D! RB@T D! R 9 d 2 Find this string 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q h D! RB@h D! ' ' % Find End point for Requirement range Set requirement range % . D! d M = Check to see if Selection is the "End Associated Process" tag DB@ ( Delete the "End Associated Process" tagk H g Remove the Associated Process section from the Requirement if it is Heading1 (meaning it is a category) ! a Turn on Error Handler to resume if Table does not exist (such as in Common Requirements Document) % B@ Resets the Error Handler d O Remove the Associated Process section if there is only one process in the list. N This improves the readability of the document and reduces the number of pages. ] ! % a Turn on Error Handler to resume if Table does not exist (such as in Common Requirements Document) % Associated Processes:
O % Check to find "Associated Processes:" % ! ! d , J 1 Check to see if there is only one Process in list B@ k k Resets the Error Handler k D! RB@T D! R 9 d ( Find this string 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q Show Fields like TOC ? L! N( P ; Update the Table of Contents so the indents show in the TOC ) ActiveDocument.TablesOfContents(1).Update o h? 5 This function calculates the Heading style for strSel 5 It assumes there is at least one space after Hierarcy ] ] ] $ ( ( We found the first space after hierarchy $ ' y @> k 8> ' Reset count $ . . Count the "." (s) ' k = F If there is no "." at the end of Hierarchy then add 1 to Heading Style 9 So zero "." = Heading Style 1 & one "." = Heading Style 2 ' k < ' Error in Check blnBase1 Variable A@ g x< k p< i h< ChangeDirectWordHeadings F This routine scans document for strKeys which identify a Heading style @ to be changed. The strKey must be part of the Doc Fac Template. (e.g. !#HEADING2#!<>). \ The strKey is deleted and the line where it appears is changed to the desired Heading Style. 8 This Sub supports direct request of Headings 1 through 3 ] 0 ] H ] ` x R '''''''''''''''' Edit these Values to Match Your Criteria '''''''''''''''''''''''' ' !#HEADING ' " % Beginning of the String to Search for #!' End of the String to Search for S ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' D Show Field Codes so we don't Search through Table of Contents etc... L! N( P Go to top of Document J H DB@F H Go through Document finding all strKeys and changing to desired Headings ' Set Search Criteria D! RB@T D! R 9 d ( Find this string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q 7 Loop Thru the Search D! R! hb | H ~ DB@ <
Delete strKey H DB@ H DB@ / Select to End of Line D! d' $ Store selection information Apply Heading Style Heading $ $ % D( Z Set to desired Heading D! RB@T D! R 9 d , Find this string 5 V( d 9 X \9 Z 9 9 ^ 9 ` 9 b 9 d 9 f q 5 5 Show Fields like TOC L! N( P ; Update the Table of Contents so the indents show in the TOC ) ActiveDocument.TablesOfContents(1).Update o 4 P SaveAsDocFile takes the current document and converts it into a Word .doc file. : It saves the file in the same folder as the current file. ] Save as .doc file ! $
.doc ' B@ Update the fields in the footer % % ! ! pB@r ' Save the Document after all the changes B@ o H3 0 S FileNameNoExt returns the filename without the extension from the file's full path ] \ $ $ ' . $ $ '
i p2 X funcCountWords takes a String as input, returns the number of words within that string, 2 and returns all of the words as an array (vWords) $ $ * ' ( ( ' & ' " i 1 x
G funcRemoveCaliberHeadingInfo removes the Caliber Hierarchy and the Tag / within the Heading passed in as the parameter. ] 0 ] H , 2 4A " C Remove the Caliber Hierarchy number (the first word of strHeading) . , , $ 4 $ 6 ' , k 00 5 Remove the Caliber Tag (the last word of strHeading) 0 , , 2 $ 4 $ ' ,k / ,$ ' , " # Remove leading and trailing spaces ,' i h/ ` B RemoveAppendix removes the appendix at the bottom of the document ] ] ] Appendix' > ! . < F Delete any sections that use the term "Appendix" in a Heading 1 Style Set Search Criteria <! RB@T <! R >9 d ) Find this string 5 V( d 9 X 9 9 ^ 9 ` 9 b 9 d 9 f q - ] Loop Thru the Search <! R! hb <! Heading 1 D <% B ' @ @ % ! ! @ % ! ! % B@ If Found, Delete the Section k , <! RB@T <! R >9 d ( Find this string 5 V( d 9 X 9 9 ^ 9 ` 9 b 9 d 9 f q `, X, o P, H, _ Attribut e VB_Nam e = "New Macros"
Sub Cle anUpRequ irementsDocu ()
' FBThiDs par subrouti ne that calls others wi0thin # :modulento "c up e Rr d _p ut from Factory.Dim my Font As I
wet
=. .Ta0homa Siz10!Change(ForB lockOfTex+
Remo veSpaces BetweenP aragraphsExsivPeEOL(r I ncludeCa chedImage
Detect)EmptySuPpporgS1 ion OWo rdHeadinRgGRQD|ctK('LeftAlignACol lapse DiBrd:=wdEnd4Move Unit.hara, CouRn -17D te 6Loop
D
2Sub
Priva ChangeF ontForBl@ockOfT(myDes ed
P As )F' Thisutine s cans doc@ument b:s surryded by strKeyBe2gndcwh@ich id ifies a3#` of t_be c7d. Th must part@ Doc Fac `TemplKĆ'(e.g !#B EGIN_FON T_CHANGE#!@!#END)-HDim@tRaS:t ,A; ^Lolng
F,HE S\trC
C'
`Edit Valu@O Mat@TYour Criia QIg= "B"@? 'C%cSear| 9I (GC 'Sh FPieldqd%so weWn't thVgh TabOC`i`S`s etc C AveW`ow.`View.a B Co! = TruC'Go&top RQ"fcǎHome eFStory#'SeF;#3gBCl3`mat uNWith ia;. =PCub> ' MGF&T.Re kcfeA ""( w8ard #WrdapwdA !.i n' FalJs.b]Ca_={pWholeWoWildcs SsLike5All! ߬a.c 'ru!wNCԡ!` =^1A'}#/ OL , Extend#xpaPg@:h"!_a!i
GinH+g"~.B 0PNOf09 @/ch) 0'Q&. 20 _2~12q
Q6 x2]2q20S22$20 . 33a.)at_+33Oh 4Oh_44>4Q q Jx=8P0G{ryqV _e[.)(+~3VD8A4 u9Pu7W @'Apply !Q6Sizedhe "ext?@?Zq?J
P"nt.NamMZBg= A(c 7'Ne ;s3 m0 sB ceagain' Af-P/ 0
.Space After = 0
End With4Sel ection.H omeKey U nit:=wdS@tory
\S@ub
Repl Pro cessAndFun~Names`()
' & `Macro*J C@7mentFT his sub asks the us to inputdes ired GforRequ %@s Docu,!*find&Title of$ a**'**, k r}s it w
?c(myDK")< `n removeAss9/tfiln xgewcorr p from Caliber.npTU@g show6n"RMZ**CTw;FM03- SETTLEMENTS_:a g :@6s :6:F!|= ;;;e\;
If 'Q<>cyaU (̍cs kip all 1'Eق̿fe_]F.C rFormattmpf WkK.Te4xtPO"p2 **z".t A_.!p
ward@Tru:"WrapwdCon 9 Faj?MatchC9Z= "WholeWo2 B.ildc sOR@ Sou0LikeAll _!/ #Execute?' ' qden m0)* \by / ( .|.. 1)-Q adyfP$ ss_!T
^ 0Q"? F5Mo1[re ecificQE l8"C A8hR Kߏ8
88=O$ /88 .8n88dC188_=W8 88!8Ql 8d!8[kcVw,sp, ,l , 4 ,h/ed,
O,O,H,_, G _,i_,dw c"_,.d 1d.C_,. M atchAllW ordForms = False
End With TSel ection.F ind.Exec ute Replace:=wd rIf
Sub
Mmove AppendicesAnUPro# FunNa mes()
' /9 Macro This su broutine calls t wo other
s. Fir@st, itReZ to r # ag in ' document.\The>n&cw,prompt#usMa 6crea -i r -spe cific tem)te6_
,E j
Privc AmDetE&ySuppor@RgRequiBy ;sSÏl
Fl kA dB s a#C\ll @o C"! #DETECT_ EMPTY_SU PPORTING_S@ION_START#!"B'Searc`h for %= END
C '@` .AYba n@ of fc. ClatGrRBg %.Text`,(.@wardTru(.WrapwdConc L.MCaseuWho>`J<>)D
d
,dGa:".'s " f are c{ted. @an op"` ba0 or#1'blnB@1? has no "." a'K$jf. 1, 1. .17 a a . |1. #a Boanlng:St :!1^rawC '
Edi" ValuI G You r Criteria N `.?`FE^$ ' Is80 of H'? Y
= A, No Showeld CodAso we;n<'t^1P R,*unP#1'?dC>{
&LinмEx.d' n.z ccIo a`jA'yt hOҏoDsin d g'+AnS"@(Trim(,)$]w[= fu`nCalc\M," EP) 'ul;! _ 'Applyv|h
ǐQ\bs("Qb" &pT (
`+ 1)) &tbnumb` dots ` (s willF2?If l1 o1 x Ins ertBepe @("UC#"EgȯFR`IfEQ3A0 /Pd1oPQ3 oPvEPP2Pa3 /Qi*QQ. @0{s .Q
Q C/R .Match SoundsLi ke = Falpse
A llWordFormsEnd 0WithrLoop
&'Show Fields "lvTOC$Ac tiveWind ow.View.+*Code x3 'Update the Tabl e of Con tents so Qzin:';Docum"."sOf"(1L).28
wS ub
Pr iv? Cha ngeGRHe adings() S
Thi s routin e scans dM for s trKey wh@ich idXidfia 9yl'to be cLd. TC mustpxartMAP Ac@ Templ5.!%(e.g@!# GRHEADIN G#!<>@<|>)
31, 6d eleted a@ ".'s" d ar , N an optionDbase 0 FB1
'blnB1 has no @"." ate'@! . :1, 1..1EpTrueaYf.BD1.GDim As B@ooleanlnguStt LongJStoPosiDQAStr Vg AssProcessmrngReq!Ra_ /Q@ C'
E dib2`9Valu Z@W Your CriteriWrapwd ainuHmnCAS7Wh0HAl Wildc@ ? 2u`8s'kruA2 &Do Whi`7 .Execut1"L w, Exd# nplAU&Paragh F(!F eA'7 t 8S=0&SKoAVuir"~G(,nSO@(Trim(,)h! w' x DovPGanysn -p`bQ1QracPYs;:l4Aaytrail`/ 8spadwm= funCalcnE
,r) 'u;!b q 'Appplys҇R em`
$iberrFIn3(G5XTagIf 1d| csT4sC_GQ a hS,4
7EN xt,Z,á not j!O
0If 3 C= bs(B" " &((V(z+ 1))
q`num :do@P (` will22 '0 Ѭs.px;
Sڛ=8@. D߆:@gReq5CGR? o+_odGoO墿6 ?pKon.nnnDi/o%Tmoo8Do{ mo,/pxc n$?@)dT# | point f or Requireme xran`ge
$' Set r<ng = Ac tiveDocu .R(lng StartPosition, (End)wIf StrComp (Sele Won .Text, str =AssPr ocess, vb,are) 0 Then ' Check to see i RJ is the
"$ %ociated )" t\agKBD "tpe ' #6Ifw'Remov eIG _ frBfind \㝤", =/$`?GDGAG!e `a -&;g_a
'F .. Clear Pma tt'With~ +Key!g 'a e`l
. war"dTru .WHrap wdC>)4 @ tr|ddҰline ea.Spps
,qgd+q@suppor`d{e@
2!2hgh 3
S !T1*As XMa~x1V PCP"p BegiC#r`bY+'
Ed@P kuo b Your Cr it @eria '
lngHe adStyleM@ax = 3`s trKeyBegin ("!#HE@ADING"j '0ning o f the Strto Search for EndG#!@ :9J'Sh ow Field Codes s o we don'tdthrou gh TablewContent s etc...%ActiveW indow.Vi8ew.--,= 0True'GDo top*D0ocum +
Sele(on.Home Unit:=w oryσ#Q" f Dall rs a`chantg ;ired
sFor I@m1 To@ &&!@}B'Se\pCritAGDF16.Cl@*ma tt. With @nEO A .TextF+ ' i ³Replacei""q %war{.Wrap wdyinńC5@ FalsMat@chCaseWholeWo!Wildc s9 SoundsLik
All
!}2$''Lo_pThruBD`o Whin?E`xecutl#gD gte&fCharacI,|unh1)'Vag oLine, tEx dq#xVpnEwPg @h `]!Tp# 3BW'St ore s% in` aion
k'Apply%|+ b
#%".s(" "D & im((A ))) '@otpk5b7{2{y?|th4|| .]6} } 7@/u ~g<?9 .R @_@K.@@ N 1Z%G {s lITOCxxxUpda C~@pgbsA`U'l3RsOfł0(1).C
Sub!;Priv SaveAs7FO()
' [ takðcurr@ ӃC~onver LitA a `.Hdocle0' It ssWfQV4
samelder aea
Dim
N1AsFa1
' V
= funNoT(lq)G"QOvle:= ,ia Mb
fs #doo0c
-ss F"s(wdQ er maryH).Re.2s afݠ B Ae0o#+Fun`ZPa0) x% retur*ng!n w`ou]he 9ensAf from#'sp@c.a"Tempiq?e= Mid$dq
, InStrRev"\") x+ 10=#SLxeft"+"z. -"q7
7IcCta3s(sInpf, i
Long, v Va@פntBBopa@yQ b Criia .Find.C@DrFormatt Withl
.TextoDf( ' 9isA& a.Repl@P:"*ward !Fals .M@atchCa '= rWholeAWildcsSdsLike5All! ga*G#XintXIntegerA'Loop`rubc:$o While4.Execut#`l?G "J"!1h=-
!F`(wd^ }dNdA a c(Ss(g)h.Start,l@).dm ' !F8,o+`'?hgh 9ihB ibQi?-O5ۏ5Oh5Oh6O6@6 4lPkAm S" S S" < ( 1 N o r m a l . T h i s D o c u m e n t @ 0 t % @ x Attribut e VB_Nam e = "Thi sDocument"
Bas1Normal.VGlobal!SpaclFalse Creatabl Pre decla Id Tru
BExpose Temp lateDeriv$Custom izC1 ID="{79714607-6D43-4310-A529-1028402ADB7B}"
Document=ThisDocument/&H00000000
Module=NewMacros
Name="TemplateProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="0E0C8E82929EA4A2A4A2A4A2A4A2"
DPB="1C1E9C90A49FA59FA59F"
GC="2A28AAA6B9A7B9A746"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisDocument=0, 0, 0, 0, C
NewMacros=66, 87, 928, 719, Z
a * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 1 # 9 # C : \ P R O G R A ~ 1 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 7 \ V B E 7 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 9 0 5 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 8 . 5 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O f f i c e 1 4 \ M S W O R D . O L B # M i c r o s o f t W o r d 1 4 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W i n d o w s \ s y s t e m 3 2 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n (* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 5 # 0 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ O F F I C E 1 4 \ M S O . D L L # M i c r o s o f t O f f i c e 1 4 . 0 O b j e c t L i b r a r y * \ C N o r m a l * \ C N o r m a l tV tV o' T h i s D o c u m e n t 0 1 5 6 7 4 1 e c c % T h i s D o c u m e n t
N e w M a c r o s 0 2 5 6 7 4 1 e c c ( N e w M a c r o s [ 8 g@mRB M~ 0p^7zFxgQ H D Wordk VBA Win16~ Win32 Win64x Mac VBA6# VBA7# TemplateProjectE stdole` Officeu ThisDocument< _Evaluate NewMacrosj CleanUpRequirementsDocument- myFont0 FontU Size ChangeFontForBlockOfText RemoveSpacesBetweenParagraphsyo RemoveExcessiveEOLChars IncludeCachedImagesW /DetectRemoveEmptySupportingRequirementsSections ChangeWordHeadings* ChangeGRWordHeadings ChangeDirectWordHeadings
SaveAsDocFile SelectionZ HomeKey Unit wdStory& ActiveWindow+ ViewI ShowFieldCodes' Findn ClearFormatting) Replacement Forward WrapWy wdFindContinueBP MatchCase MatchWholeWordX MatchWildcards MatchSoundsLike0 MatchAllWordForms ExecuteY Replacef wdReplaceAllu#
WholeStory Fields7 Update Collapseu Direction&
wdCollapseEnd MoveEnd* wdCharacter Count0v Deletex
myDesiredFont
intRangeStart
intRangeEnd strKeyBegin strKeyEnds EndKey5 wdLine Extend? wdExtendd Expand$d wdParagraphH Range Start rngU ActiveDocument\ ParagraphFormat SpaceBeforeAutoJ SpaceAfterAutoC SpaceBefore
SpaceAfter( ReplaceProcessAndFunctionNamesN myDesiredProcessN myDesiredFunction`P str InputBox
Promptm ChrK~ Title~ MsgBoxR vbOKOnly 1RemoveAppendicesAndReplaceProcessAndFunctionNames h RemoveAppendicesj supportTitleRange
startPosition+ CharacteriC MoveDown̝
LeftAlignText
startTagRange? leftAlignRange AlignmentI wdAlignParagraphLeftW blnBase1E lngHeadStyleR strKey
rngHeading CleanString Trim@ funCalcHeadStyle4 Stylep Styles
p InsertBefore. lngStartPosition lngEndPositionB strEndAssProcess; rngReqy> funcRemoveCaliberHeadingInfo_
vbTextCompare Q Tables tblTemp~F Table Cell strSel\D i` intDotCount*u strHierarchy{ vbCrLf lngHeadStyleMaxե desiredFileName funFileNameNoExt SaveAsf; FileNamej
FileFormat wdFormatDocument Sections Footers wdHeaderFooterPrimaryd Save strPathl strTempM InStrRevĈ funcCountWordsyu sInput iWords. vWordsU Split)
strHeading% blnRemoveHierarchy blnRemoveTag lngWordCount T arrWordsM Right
tmpSection SectionG rngSearchRange strAppendixj
intSection] Information wdActiveEndSectionNumber Documentj Normal ` " % ) H $ P R O J E C T
P R O J E C T w m G C o m p O b j " r ThisDocument T h i s D o c u m e n t NewMacros N e w M a c r o s
F Microsoft Word 97-2003 Document
MSWordDoc Word.Document.8 9q