Option Explicit

Dim Count As Integer

Dim strSiglum As String

Dim strSiglumA As String

Dim strSiglum1 As String

Dim strSiglum2 As String

Dim strSiglum3 As String

Dim strSiglum4 As String

Dim strSiglum5 As String

Dim strSiglum6 As String

Dim strSiglum7 As String

Dim strSiglum8 As String

Dim strSiglum9 As String

Dim strSiglum10 As String

Dim strSiglum11 As String

Dim strSiglum12 As String

Dim strSiglum13 As String

Dim strSiglum14 As String

Dim strSiglum15 As String

Dim strSiglum16 As String

Dim strSiglum17 As String

Dim strSiglum18 As String

Dim strSiglum19 As String

Dim strSiglum20 As String

Dim strSiglum21 As String

Dim strSiglum22 As String

Dim strSiglum23 As String

Dim strSiglum24 As String

Dim strSiglum25 As String

Dim strSiglum26 As String

Dim strSiglum27 As String

Dim strSiglum28 As String

Dim strSiglum29 As String

Dim strSiglum30 As String

Dim strSiglum31 As String

Dim strSiglum32 As String

Dim strSiglum33 As String

Dim strSiglum34 As String

Dim strSiglum35 As String

Dim strSiglum36 As String

'variables for ReduceCET Form

Dim Sig1 As String

Dim Sig2 As String

Dim Sig3 As String

Dim Sig4 As String

Dim Sig5 As String

Dim Sig6 As String

Dim Common As String

Dim Wit As String

Dim SourceFile As String

Dim blnSiglum As Boolean

Dim blnSiglumm As String

Dim blnSiglumb As String

Dim blnNextVariant As Boolean

Dim blnNextOLVariant As Boolean

Dim blnNextSegment As Boolean

Dim blnNextLem As Boolean

Dim blnVariant As Boolean

Dim blnReference As Boolean

Dim blnSummary As Boolean

Dim strOverL As String

Dim strSel As String

Dim lngQuery As Long

Sub zProcessSelectedVariant()

' ProcessSelectedVariant Macro

' Macro created 3/27/01 by Kilcullen

'test for siglum

strSiglum = strSiglum1

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum2

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum3

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum4

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum5

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum6

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = "Wz"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "Edd"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "Ms"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "XX"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "YY"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

'otherwise delete variant

Call zDeleteBlue

Call zDeleteRed

GoTo LastL

'2. IF VARIANT CONTAINS SIGLUM, INSERT BOOKMARK AFTER VARIANT,

'AND DIVIDE IT INTO SEGMENTS ENDING "~"

ExamineSegments:

'Insert bookmark x

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="x"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

Call zBlue2Brown

Call zSegmentsSelect

'3. INSERT CR AT END OF NEXT SEGMENT, COLOUR REMAINING SEGMENTS GREEN

NextSegment:

'Next segment from green to red

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zFindNextSegment 'finds next ~, inserts CR, colours remaining red green

'4. TEST NEXT SEGMENT FOR SIGLUM; IF NOT CONTAINED, DELETE SEGMENT

'test for siglum

strSiglum = strSiglum1

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum2

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum3

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum4

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum5

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum6

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = "Wz"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "Edd"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "Ms"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "XX"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "YY"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

'otherwise delete segment

Call zDeleteRed

Call zGreen2Red

If blnNextSegment = False Then GoTo ExitVariant

If blnNextSegment = True Then GoTo NextSegment

'Preserve Segment

PreserveSegment:

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zRed2Brown

Call zGreen2Red

If blnNextSegment = False Then GoTo ExitVariant

'7. LOOP UNTIL END OF VARIANT

GoTo NextSegment

ExitVariant:

Selection.GoTo What:=wdGoToBookmark, Name:="x"

LastL:

End Sub

Sub a3Source2ChosenWitness()

' a3Source2ChosenWitness Macro

' Macro created 2/10/01 by Kilcullen

' Begin by running AbCleanUp

' Then insert <s@> and run a6utonum, and save as source of all witness files

lngQuery = MsgBox("First fix ///," & vbCr & "check red ( )," & vbCr & "run a2Cet2Source," & vbCr & "run DivideIntoCollationBlocks," & vbCr & "and run AutomaticNumbering." & vbCr & vbCr & "Continue?", vbYesNo + vbQuestion, "Continue?")

If lngQuery = vbNo Then End

'Get name of siglum

Call zGetSiglum

'Load ReduceCET

'ReduceCET.Show

'strSiglum = ReduceCET.Sig1

Selection.HomeKey Unit:=wdStory

'Call zSpaceSigla

Call zImplement

'ActiveDocument.SaveAs FileName:="ChosenWitness.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

End Sub

Sub zOmitted()

' Omitted Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'test for "omitted"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "omitted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Delete lemma

Call zDelete2Apostrophe

'Delete variant

Call zDeleteRed

End If

End Sub

Sub zSubstitute()

' Substitute Macro

'To implement a substitution variant

'test whether any red text remains

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Delete to `

Call zDelete2Apostrophe

'return variant to auto colour

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zRed2Auto

End If

End Sub

Sub zFindNextVariant()

' FindNextVariant Macro

' Macro created 2/10/01 by Kilcullen

'find next {}

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnNextVariant = True

'colour selection red

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=2

'mark end of lemma with `

Selection.TypeText Text:="`"

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Find and colour end of lemma

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "?\)`"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorBlue

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Find and colour beginning of lemma

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "\(?"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorBlue

End With

'insert bookmark

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

End If

If Selection.Find.Found = False Then

blnNextVariant = False

End If

End Sub

Sub zReplaceQuotationMarks()

' zReplaceQuotationMarks Macro

' Macro created 2/10/01 by Kilcullen

' Called by AbCet2WdLatText

'replace quotation marks

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C039}"

.Replacement.Text = "'"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C096}"

.Replacement.Text = "'"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C170}"

.Replacement.Text = """"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C186}"

.Replacement.Text = """"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteReferences()

' zDeleteReferences Macro

' Delete cet (+ +) {}

'Called by abCleanup, AbCet2WdLatText, delSuperfluous

'Reduce all (+^A-E, W-Z^+) to (+ +)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^A"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^B"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^C"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^D"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^E"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^W"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^X"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^Y"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+^^Z"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "A^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "B^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "D^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "E^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "W^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "X^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Y^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Z^^+"

.Replacement.Text = "+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete (+

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(+"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete +) {}

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+\) \{*\}"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zcet2WdBoldComments()

' zcet2WdBoldComments Macro

' To Replace <UB><BDB> <BDE><UE> with [] in Wd bold

' Called by AbCet2WdLatText

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Bold = True

With Selection.Find

.Text = "\<UB*\<UE\>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<UB><BDB>"

.Replacement.Text = "["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDE><UE>"

.Replacement.Text = "]"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zcet2WdBoldItal()

' zcet2WdBoldItal Macro

' Macro created 2/10/01 by Kilcullen

' Called by Abcet2WdLatTxt

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Italic = True

With Selection.Find

.Text = "\<IB*\<IE\>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Bold = True

With Selection.Find

.Text = "\<BDB*\<BDE\>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove cet coding for italics

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove cet coding for bold

With Selection.Find

.Text = "<BDB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteComments()

' zDeleteComments Macro

' Delete bold [comments]

' Called by AbCleanup

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

' Selection.Find.Font.Bold = True

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<UB\>*\<UE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDelete2Colon()

' zDelete2Colon Macro

' Macro recorded 2/10/01 by Kilcullen

' Not Called

Selection.HomeKey Unit:=wdStory

Call AllVariantsRed

Selection.HomeKey Unit:=wdStory

'find red colon

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Go to previous {

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Select { to : and delete

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "\{*:"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.TypeText Text:="{"

Loop

Selection.HomeKey Unit:=wdStory

' Call AutoColour

'Call zNormalFormat

End Sub

Sub zGreen2Red()

' Green2Red Macro

' Restores red, moves to bookmark

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorGreen

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then

blnNextSegment = False

Else

blnNextSegment = True

End If

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:="z"

End Sub

Sub zTest4Siglum()

' zTest4Siglum Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglum

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnSiglum = True

Else

blnSiglum = False

End If

End Sub

Sub a2Cet2Source()

' a2Cet2Source Macro

' To prepare from a CET file a file from which witnesses can be extracted

'remove XX

Call zBlueBracket2Colon

Call zSpaceSigla

Call zRemoveXX

Call zRemoveYY

Call zMedievalSpelling

'change <S/> to para

Call zcetCodedPara2Para

'delete superfluous cet coding

Call zDeleteSuperfluous

Call zDeleteCrossReferences

'delete comments

Call zDeleteComments

Call zDeleteUBComment

'delete references

Call zDeleteReferences

'delete chapter summaries

'Call zDeleteSummaries

Call zMinus2Star

'insert <s@>

'Call DivideIntoCollationBlocks

'$lembeg to @lembeg

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$lembeg"

.Replacement.Text = "@lembeg"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'underline block numbers

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "\<s*\>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

End Sub

Sub zDeleteBlue()

' zDeleteBlue Macro

' Macro recorded 2/13/01 by Kilcullen

'delete blue

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Color = wdColorBlue

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete apostrophe

'With Selection.Find.Font

'.Underline = wdUnderlineNone

'.Color = wdColorBlue

' End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "`"

.Replacement.Text = ""

.Forward = True

'.Format = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteRed()

' zDeleteRed Macro

' Macro recorded 2/13/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Color = wdColorRed

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zGetSiglum()

' zGetSiglum Macro

' Macro created 2/13/01 by Kilcullen

'Get name of siglum

' strSiglum declared at top of module

'Ask the user for a name

strSiglum = InputBox("What is the name of the MS to be selected?", _

"Siglum Request")

End Sub

Sub zDeleteExtraSpaces()

' DeleteExtraSpaces Macro

' Macro recorded 1/23/00 by Kilcullen

'replace four spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace three spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace two spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace space comma with comma

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ,"

.Replacement.Text = ","

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace space full stop with full stop

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ."

.Replacement.Text = "."

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace space; with ;

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ;"

.Replacement.Text = ";"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace space: with :

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " :"

.Replacement.Text = ":"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space after [

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[ "

.Replacement.Text = "["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space before {C186}

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " {C186}"

.Replacement.Text = "{C186}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space before {C039}

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " {C039}"

.Replacement.Text = "{C039}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space after C170

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C170} "

.Replacement.Text = "{C170}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space after C096

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C096} "

.Replacement.Text = "{C096}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space before asterisk

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " *"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space after asterisk

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "* "

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space before dash

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " -"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'space after dash

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "- "

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'fix (space and space)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "( "

.Replacement.Text = "("

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " )"

.Replacement.Text = ")"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'fix cury bracket space and space curly bracket

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{ "

.Replacement.Text = "{"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " }"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove space at beginning of paras

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p "

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub Cet2Collation()

' a4Cet2Collation Macro

' To transform cet coded file into collation file, HTML format

Call zDeleteSuperfluous

Call zDeleteReferences

Call zDeleteCrossReferences

'Call zcet2WdBoldComments

Call zDelComment

Call zcet2WdBoldItal

Call zCollationCleanUp

'Call Word2HTML

End Sub

Sub zSegments()

' zSegments Macro

' To mark segment ends with ~

' delete red {

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeBackspace

'replace red , with red ~

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ","

.Replacement.Text = "~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace red ; with red ~

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ";"

.Replacement.Text = "~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace red } with ~

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = "~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zFindNextSegment()

' zFindNextSegment Macro

' Macro recorded 3/16/01 by Kilcullen

'Find end of next segment and insert CR

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "~"

.Replacement.Text = "~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.TypeParagraph

Call zRemainingRed2Green

End If

End Sub

Sub zRemainingRed2Green()

' zRemainingRed2Green Macro

' Macro recorded 3/16/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorGreen

End With

Selection.GoTo What:=wdGoToBookmark, Name:="z"

End Sub

Sub zMarkParas()

' zMarkParas Macro

' Macro created 3/18/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p"

.Replacement.Text = "^p!"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestoreParas()

' zRestoreParas Macro

' Macro created 3/18/01 by Kilcullen

'Delete paragraphs

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Restore paras marked as original

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "!"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zTest4SiglumM()

' zTest4SiglumM Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglum & "m"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnSiglumm = True

Else

blnSiglumm = False

End If

End Sub

Sub zTest4SiglumB()

' zTest4SiglumB Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglum & "b"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnSiglumb = True

Else

blnSiglumb = False

End If

End Sub

Sub zDeleteSuperfluous()

' zDeleteSuperfluous Macro

' Macro created 3/18/01 by Kilcullen

'Stages:

'replace quotation marks

'separate 'delete references

'protect @lembeg

'separate 'delete @Crossreferences

'part of delete crossreferences 'reinstate @lembeg

'Delete empty paragraphs

'Replace quotation marks

Call zReplaceQuotationMarks

'Remove formatting

Call zNormalFormat

'Delete references

'Call zDeleteReferences

'Delete superfluous cet coding

Call DelCetSuperCoding

End Sub

Sub zFindNextOLVariant()

' zFindNextOLVariant Macro

' Macro recorded 3/19/01 by Kilcullen

'find ?^*) {

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "^^?\) \{"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = True

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnNextOLVariant = True

'Find variant and colour red

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=2

'mark end of lemma with `

Selection.TypeText Text:="`"

''Insert bookmark

' With ActiveDocument.Bookmarks

' .Add Range:=Selection.Range, Name:="z"

' .DefaultSorting = wdSortByName

' .ShowHidden = False

' End With

'colour blue ?^?)

Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend

With Selection.Font

.Color = wdColorBlue

End With

'identify overlap letter

Selection.MoveLeft Unit:=wdCharacter, Count:=2

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

strSel = Selection.Text

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'find (?^letter

Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "\(?^^" & strSel

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = True

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Colour blue (?^ & letter

With Selection.Font

.Color = wdColorBlue

End With

'Insert bookmark

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

Else

blnNextOLVariant = False

End If

End Sub

Sub zProcessVariant()

' ProcessVariant Macro

' Macro created 3/19/01 by Kilcullen

'test for siglum

Call zTest4Siglum

Call zTest4SiglumM

Call zTest4SiglumB

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'delete variant

If blnSiglum = False And blnSiglumm = False And blnSiglumb = False Then

Call zDeleteBlue

Call zDeleteRed

GoTo LastL

End If

'Retain marginal or interlinear comments

' If blnSiglumm = True Then

' Call zMarginalComment

' End If

' If blnSiglumb = True Then

' Call zInterlinearComment

' End If

'2. IF IT CONTAINS SIGLUM, DIVIDE IT INTO SEGMENTS ENDING "~"

Call zSegments

'3. INSERT CR AT END OF NEXT SEGMENT, COLOUR REMAINING SEGMENTS GREEN

NextSegment:

Call zFindNextSegment

'4. TEST NEXT SEGMENT FOR SIGLUM; IF NOT CONTAINED, DELETE SEGMENT

Call zTest4Siglum

Call zTest4SiglumM

Call zTest4SiglumB

If blnSiglum = False And blnSiglumm = False And blnSiglumb = False Then

Call zDeleteRed

GoTo Green2Red

End If

'Retain marginal or interlinear comments

If blnSiglumm = True Then

Call zMargin

End If

If blnSiglumb = True Then

Call zInterlinear

End If

'5. OTHERWISE IMPLEMENT ADDED, OMITTED, SUBSTITUTE

' preserve written and deleted

Call zAddedDeleted

'preserve deleted

Call zDeleted

'implement if "added"

Call zAdded

'implement if "omitted"

Call zOmitted

'otherwise implement substitution

Call zSubstitute

'6. CHANGE COLOUR OF REMAINING SEGMENTS FROM GREEN TO RED

Green2Red: 'label

Call zGreen2Red

If blnNextSegment = False Then GoTo ExitVariant

'7. LOOP UNTIL END OF VARIANT

GoTo NextSegment

'8. WHEN NO GREEN IS LEFT, DELETE BLUE (* *)

ExitVariant: 'label

Call zDeleteBlue

LastL:

End Sub

Sub zDeleteSummaries()

' zDeleteSummaries Macro

' Delete cet (- -) {}

'Reduce all (-^A-E, W-Z^-) to (- -)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^A"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^B"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^C"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^D"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^E"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^W"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^X"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^Y"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-^^Z"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "A^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "B^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "D^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "E^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "W^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "X^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Y^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Z^^-"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete (-

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete -) {}

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-\) \{*\}"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDelete2Apostrophe()

' Delete2Apostrophe Macro

' Deletes from 2 spaces after bookmark to `

Selection.MoveRight Unit:=wdCharacter, Count:=2

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*`"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = True

End With

Selection.Find.Execute

Call zDeletePink

End Sub

Sub zEndCleanUp()

' EndCleanUp Macro

' Macro created 3/20/01 by Kilcullen

Call zDeleteSigla

Selection.HomeKey Unit:=wdStory

'Call zDeleteOverlapCoding

Call zRestoreParas

Call zDeleteExtraSpaces

' Return pink underlined to autocolour no underline

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineSingle

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Call zcet2WdBoldItal

Call zDeleteBrackets

Call zRestoreNamAn

Call zRestoreBrackets

Call zSpacesAroundTags

Call zRemoveAngleBrackets

Call zNormalFormat

'ActiveDocument.Save

End Sub

Sub zFindNextLembeg()

' zFindNextLembeg Macro

' Macro recorded 3/20/01 by Kilcullen

'Find -#lembeg

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "-#lembeg"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then

blnNextLem = False

GoTo EndLem

Else

blnNextLem = True

End If

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Select Lembeg index

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Find beginning and colour blue

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "@lembeg" & strSel

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorBlue

End With

'Insert bookmark

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.TypeText Text:=""

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

'Select whole of (**)...-} and colour blue

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "$\*\*$*-\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorBlue

End With

'Insert ` and colour blue

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="`"

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

With Selection.Font

.Color = wdColorBlue

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

'colour variant red

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:="z"

EndLem:

End Sub

Sub zDeletePink()

' DeletePink Macro

' Macro recorded 3/21/01 by Kilcullen

'colour selection pink

With Selection.Font

.Color = wdColorPink

End With

Selection.GoTo What:=wdGoToBookmark, Name:="z"

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

'delete pink, no underline, not hidden

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Color = wdColorPink

.Hidden = False

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

End Sub

Sub zNormalFormat()

' NormalFormat Macro

' Macro recorded 3/24/01 by Kilcullen

Selection.WholeStory

With Selection.Font

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

Selection.HomeKey Unit:=wdStory

End Sub

Sub DivideIntoCollationBlocks()

' DivideIntoCollationBlocks Macro

' Macro recorded 3/24/01 by Kilcullen

'protect existing @

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@"

.Replacement.Text = "%%"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Insert section at beginning of each paragraph

With Selection.Find

.Text = "^p"

.Replacement.Text = "^p<s@>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Transformations preparing to insert sections at full stops

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "cap."

.Replacement.Text = "cap$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "c."

.Replacement.Text = "c$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "..."

.Replacement.Text = "$$$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "dist."

.Replacement.Text = "dist$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "q."

.Replacement.Text = "q$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "d."

.Replacement.Text = "d$"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'full stop

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "."

.Replacement.Text = ".<s@>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'semicolon

With Selection.Find

.Text = ";"

.Replacement.Text = ";<s@>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'restore fullstops

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$"

.Replacement.Text = "."

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete red <s@>

Call AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<s@>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Call zNormalFormat

Call AutoColour

'remove <s@> before para

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<s@>^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<s@> ^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'underline <s@>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "<s@>"

.Replacement.Text = "<s@>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ",<s@> c. "

.Replacement.Text = ", c."

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Colour <s@> red

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "<s@>"

.Replacement.Text = "<s@>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.Font.Color = wdColorRed

'remove s@<NPG>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@><NPG>"

.Replacement.Text = "<NPG>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove s@<HRB>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@><HRB>"

.Replacement.Text = "<HRB>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove s@#N+

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@>#N+"

.Replacement.Text = "#N+"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove s@<EL>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@><EL>"

.Replacement.Text = "<EL>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove s@<NP>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@><NP>"

.Replacement.Text = "<NP>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove s@#L-

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = "<s@>#L-"

.Replacement.Text = "#L-"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'return to autocolour

Selection.WholeStory

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.HomeKey Unit:=wdStory

Selection.TypeParagraph

Selection.MoveUp Unit:=wdLine, Count:=1

Selection.TypeText Text:="Check division, run AutomaticNumbering, replace %% (double%) with @"

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Font.Bold = wdToggle

End Sub

Sub zDeleteUBComment()

' DeleteUBComment Macro

' Macro recorded 3/25/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<UB\>*\<UE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zImplement()

' Implement

' module

Call zDelete2Colon

Selection.HomeKey Unit:=wdStory

'Call AutoColour

'Call zNormalFormat

' translate Ww

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Ww"

.Replacement.Text = strSiglum

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'protect Nam -- i.e. so that Latin word not treated as siglum

Call zPreserveNamAn

Call zSpaceBeforeVariant

'Protect overlap coding

Call zUnderlineOverlapCoding

'mark paras

Call zMarkParas

'deal with lembeg

Call zFindNextLembeg

If blnNextLem = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

If blnNextLem = True Then

Call zProcessVariant

End If

Loop

'deal with overlapping lemmata

Call zFindNextOLVariant

If blnNextOLVariant = False Then

Selection.HomeKey Unit:=wdStory

Call zDeleteOverlapCoding

Exit Do

End If

If blnNextOLVariant = True Then

Call zProcessVariant

End If

Loop

'deal with simple and nested variants

Call zFindNextVariant

If blnNextVariant = False Then Exit Do

If blnNextVariant = True Then

Call zProcessVariant

End If

Loop

'clean up and save

Selection.HomeKey Unit:=wdStory

Call zEndCleanUp

Call zRemoveAdded

Call zDelPunctLC

Call zDelExtraSpaces

'Call zcet2WdBoldItal

'ActiveDocument.Save

End Sub

Sub zzSource2SelectedWitnessFiles()

' zSource2SelectedWitnessFiles

' This procedure runs too slowly to be useful

Application.ScreenUpdating = False

Load WitnessesToReconstruct

WitnessesToReconstruct.Show

SourceFile = WitnessesToReconstruct.SourceFile

Common = WitnessesToReconstruct.Common

If WitnessesToReconstruct.An = False Then GoTo Witness2

If WitnessesToReconstruct.An = True Then

Wit = "An"

End If

Call zReconstructWitness

Witness2:

If WitnessesToReconstruct.Ar = False Then GoTo Witness3

If WitnessesToReconstruct.Ar = True Then

Wit = "Ar"

End If

Call zReconstructWitness

Witness3:

If WitnessesToReconstruct.Au = False Then GoTo Witness4

If WitnessesToReconstruct.Au = True Then

Wit = "Au"

End If

Call zReconstructWitness

Witness4:

If WitnessesToReconstruct.Av = False Then GoTo Witness5

If WitnessesToReconstruct.Av = True Then

Wit = "Av"

End If

Call zReconstructWitness

Witness5:

If WitnessesToReconstruct.Ax = False Then GoTo Witness6

If WitnessesToReconstruct.Ax = True Then

Wit = "Ax"

End If

Call zReconstructWitness

Witness6:

If WitnessesToReconstruct.Ba = False Then GoTo Witness7

If WitnessesToReconstruct.Ba = True Then

Wit = "Ba"

End If

Call zReconstructWitness

Witness7:

If WitnessesToReconstruct.Bb = False Then GoTo Witness8

If WitnessesToReconstruct.Bb = True Then

Wit = "Bb"

End If

Call zReconstructWitness

Witness8:

If WitnessesToReconstruct.Bm = False Then GoTo Witness9

If WitnessesToReconstruct.Bm = True Then

Wit = "Bm"

End If

Call zReconstructWitness

Witness9:

If WitnessesToReconstruct.Br = False Then GoTo Witness10

If WitnessesToReconstruct.Br = True Then

Wit = "Br"

End If

Call zReconstructWitness

Witness10:

If WitnessesToReconstruct.Ca = False Then GoTo Witness11

If WitnessesToReconstruct.Ca = True Then

Wit = "Ca"

End If

Call zReconstructWitness

Witness11:

If WitnessesToReconstruct.Ce = False Then GoTo Witness12

If WitnessesToReconstruct.Ce = True Then

Wit = "Ce"

End If

Call zReconstructWitness

Witness12:

If WitnessesToReconstruct.Di = False Then GoTo Witness13

If WitnessesToReconstruct.Di = True Then

Wit = "Di"

End If

Call zReconstructWitness

Witness13:

If WitnessesToReconstruct.Es = False Then GoTo Witness14

If WitnessesToReconstruct.Es = True Then

Wit = "Es"

End If

Call zReconstructWitness

Witness14:

If WitnessesToReconstruct.Fi = False Then GoTo Witness15

If WitnessesToReconstruct.Fi = True Then

Wit = "Fi"

End If

Call zReconstructWitness

Witness15:

If WitnessesToReconstruct.Fr = False Then GoTo Witness16

If WitnessesToReconstruct.Fr = True Then

Wit = "Fr"

End If

Call zReconstructWitness

Witness16:

If WitnessesToReconstruct.Gs = False Then GoTo Witness17

If WitnessesToReconstruct.Gs = True Then

Wit = "Gs"

End If

Call zReconstructWitness

Witness17:

If WitnessesToReconstruct.Ko = False Then GoTo Witness18

If WitnessesToReconstruct.Ko = True Then

Wit = "Ko"

End If

Call zReconstructWitness

Witness18:

If WitnessesToReconstruct.La = False Then GoTo Witness19

If WitnessesToReconstruct.La = True Then

Wit = "La"

End If

Call zReconstructWitness

Witness19:

If WitnessesToReconstruct.Lb = False Then GoTo Witness20

If WitnessesToReconstruct.Lb = True Then

Wit = "Lb"

End If

Call zReconstructWitness

Witness20:

If WitnessesToReconstruct.Lc = False Then GoTo Witness21

If WitnessesToReconstruct.Lc = True Then

Wit = "Lc"

End If

Call zReconstructWitness

Witness21:

If WitnessesToReconstruct.Lm = False Then GoTo Witness22

If WitnessesToReconstruct.Lm = True Then

Wit = "Lm"

End If

Call zReconstructWitness

Witness22:

If WitnessesToReconstruct.Ly = False Then GoTo Witness23

If WitnessesToReconstruct.Ly = True Then

Wit = "Ly"

End If

Call zReconstructWitness

Witness23:

If WitnessesToReconstruct.Mw = False Then GoTo Witness24

If WitnessesToReconstruct.Mw = True Then

Wit = "Mw"

End If

Call zReconstructWitness

Witness24:

If WitnessesToReconstruct.Mz = False Then GoTo Witness25

If WitnessesToReconstruct.Mz = True Then

Wit = "Mz"

End If

Call zReconstructWitness

Witness25:

If WitnessesToReconstruct.Na = False Then GoTo Witness26

If WitnessesToReconstruct.Na = True Then

Wit = "Na"

End If

Call zReconstructWitness

Witness26:

If WitnessesToReconstruct.Ox = False Then GoTo Witness27

If WitnessesToReconstruct.Ox = True Then

Wit = "Ox"

End If

Call zReconstructWitness

Witness27:

If WitnessesToReconstruct.Pa = False Then GoTo Witness28

If WitnessesToReconstruct.Pa = True Then

Wit = "Pa"

End If

Call zReconstructWitness

Witness28:

If WitnessesToReconstruct.Pb = False Then GoTo Witness29

If WitnessesToReconstruct.Pb = True Then

Wit = "Pb"

End If

Call zReconstructWitness

Witness29:

If WitnessesToReconstruct.Pc = False Then GoTo Witness30

If WitnessesToReconstruct.Pc = True Then

Wit = "Pc"

End If

Call zReconstructWitness

Witness30:

If WitnessesToReconstruct.Pe = False Then GoTo Witness31

If WitnessesToReconstruct.Pe = True Then

Wit = "Pe"

End If

Call zReconstructWitness

Witness31:

If WitnessesToReconstruct.Pz = False Then GoTo Witness32

If WitnessesToReconstruct.Pz = True Then

Wit = "Pz"

End If

Call zReconstructWitness

Witness32:

If WitnessesToReconstruct.Sa = False Then GoTo Witness33

If WitnessesToReconstruct.Sa = True Then

Wit = "Sa"

End If

Call zReconstructWitness

Witness33:

If WitnessesToReconstruct.Sm = False Then GoTo Witness34

If WitnessesToReconstruct.Sm = True Then

Wit = "Sm"

End If

Call zReconstructWitness

Witness34:

If WitnessesToReconstruct.Toul = False Then GoTo Witness35

If WitnessesToReconstruct.Toul = True Then

Wit = "To"

End If

Call zReconstructWitness

Witness35:

If WitnessesToReconstruct.Un = False Then GoTo Witness36

If WitnessesToReconstruct.Un = True Then

Wit = "Un"

End If

Call zReconstructWitness

Witness36:

If WitnessesToReconstruct.Va = False Then GoTo Witness37

If WitnessesToReconstruct.Va = True Then

Wit = "Va"

End If

Call zReconstructWitness

Witness37:

If WitnessesToReconstruct.Vb = False Then GoTo Witness38

If WitnessesToReconstruct.Vb = True Then

Wit = "Vb"

End If

Call zReconstructWitness

Witness38:

If WitnessesToReconstruct.Vc = False Then GoTo Witness39

If WitnessesToReconstruct.Vc = True Then

Wit = "Vc"

End If

Call zReconstructWitness

Witness39:

If WitnessesToReconstruct.Vd = False Then GoTo Witness40

If WitnessesToReconstruct.Vd = True Then

Wit = "Vd"

End If

Call zReconstructWitness

Witness40:

If WitnessesToReconstruct.Ve = False Then GoTo Witness41

If WitnessesToReconstruct.Ve = True Then

Wit = "Ve"

End If

Call zReconstructWitness

Witness41:

If WitnessesToReconstruct.Vf = False Then GoTo Witness42

If WitnessesToReconstruct.Vf = True Then

Wit = "Vf"

End If

Call zReconstructWitness

Witness42:

If WitnessesToReconstruct.Vg = False Then GoTo Witness43

If WitnessesToReconstruct.Vg = True Then

Wit = "Vg"

End If

Call zReconstructWitness

Witness43:

If WitnessesToReconstruct.We = False Then GoTo Witness44

If WitnessesToReconstruct.We = True Then

Wit = "We"

End If

Call zReconstructWitness

Witness44:

If WitnessesToReconstruct.Tx = False Then End

If WitnessesToReconstruct.Tx = True Then

Wit = "Tx"

End If

Call zReconstructWitness

End Sub

Sub zReconstructWitness()

' ReconstructWitness Macro

' To reconstruct one witness

Documents.Open FileName:=SourceFile, ConfirmConversions:=False

ActiveDocument.SaveAs FileName:=Common & Wit & ".doc", FileFormat:=wdFormatDocument

strSiglum = Wit

Call zImplement

ActiveDocument.SaveAs FileName:=Common & Wit & ".txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub Collation2CorrectedText()

' a5Collation2CorrectedText Macro

' To remove variants, references, (* *), (*^ ^*) and leave corrected text

Call zDeleteSuperfluous

Call zDeleteCrossReferences

Call zDeleteReferences

Call AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Reduce all (*^A-E, W-Z^*) to (* *)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^A"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^B"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^C"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^D"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^E"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^W"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^X"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^Y"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*^^Z"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "A^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "B^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "D^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "E^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "W^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "X^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Y^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Z^^*"

.Replacement.Text = "*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete (* *)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*)"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Call zDeleteExtraSpaces

Call zDeleteCetFormats

End Sub

Sub zPreserveReferences()

' PreserveReferences Macro

' Macro recorded 3/30/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "+) {"

.Replacement.Text = "]"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

Selection.TypeText Text:="[[["

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = "]"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:="]]]"

Loop

'Preserve (+ +)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "(+"

.Replacement.Text = "(+"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "+)"

.Replacement.Text = "+)"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zPreserveComments()

' PreserveComments Macro

' Macro recorded 3/30/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "<UB><BDB>"

.Replacement.Text = "+)"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.TypeText Text:="[[[["

Selection.Find.ClearFormatting

With Selection.Find

.Text = "<BDE><UE>"

.Replacement.Text = "+)"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:="]]]]"

Loop

End Sub

Sub zRestoreComSumRef()

' RestoreComSumRef Macro

' Macro recorded 3/30/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[[[["

.Replacement.Text = "<UB><BDB>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]]]]"

.Replacement.Text = "<BDE><UE>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[[["

.Replacement.Text = "{"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[["

.Replacement.Text = "{"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]]]"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "]]"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineNone

With Selection.Find

.Text = "(+"

.Replacement.Text = "(+"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineNone

With Selection.Find

.Text = "(-"

.Replacement.Text = "(-"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineNone

With Selection.Find

.Text = "+)"

.Replacement.Text = "+)"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineNone

With Selection.Find

.Text = "-)"

.Replacement.Text = "-)"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteDoubleUnderlining()

' DeleteDoubleUnderlined Macro

' Macro recorded 3/30/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineDouble

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub a1ReduceCet()

' a1ReduceCet Macro

' To remove cet coding except when it relates to selected sigla

Load ReduceCET

ReduceCET.Show

strSiglum1 = ReduceCET.Sig1

strSiglum2 = ReduceCET.Sig2

strSiglum3 = ReduceCET.Sig3

strSiglum4 = ReduceCET.Sig4

strSiglum5 = ReduceCET.Sig5

strSiglum6 = ReduceCET.Sig6

'strSiglum7 = ReduceCet.Sig7

Call zReduceCet

End Sub

Sub zEndCleanUpSelect()

' EndCleanUpSelect Macro

' Macro created 3/30/01 by Kilcullen

Call zDeleteApos

Call zRestoreComSumRef

Call zRestoreNamAn

Call zRestoreParas

Call zDeleteExtraSpaces

Call zDeleteExtraPunctSelect

Call zRestoreQuotCode

Call zNormalFormat

End Sub

Sub zSegmentsSelect()

' SegmentsSelect Macro

' Macro created 3/27/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'replace red , with red ,~

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ","

.Replacement.Text = ",~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace red ; with red ;~

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ";"

.Replacement.Text = ";~"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace red } with ~}

With Selection.Find

.Text = "}"

.Replacement.Text = "~}"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'change red {} to autocolour

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:="z"

End Sub

Sub zDeleteSiglum()

' DeleteSiglum Macro

' Macro created 3/30/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglumA

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglumA & "b"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglumA & "m"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteSigla()

' DeleteSigla Macro

' To Call zfor deletion of sigla'

strSiglumA = "Vc"

Call zDeleteSiglum

strSiglumA = "Fi"

Call zDeleteSiglum

strSiglumA = "Fr"

Call zDeleteSiglum

strSiglumA = "Pa"

Call zDeleteSiglum

strSiglumA = "Ly"

Call zDeleteSiglum

strSiglumA = "An"

Call zDeleteSiglum

strSiglumA = "Ar"

Call zDeleteSiglum

strSiglumA = "Au"

Call zDeleteSiglum

strSiglumA = "Av"

Call zDeleteSiglum

strSiglumA = "Ax"

Call zDeleteSiglum

strSiglumA = "Ba"

Call zDeleteSiglum

strSiglumA = "Bb"

Call zDeleteSiglum

strSiglumA = "Bm"

Call zDeleteSiglum

strSiglumA = "Br"

Call zDeleteSiglum

strSiglumA = "Ca"

Call zDeleteSiglum

strSiglumA = "Ce"

Call zDeleteSiglum

strSiglumA = "Di"

Call zDeleteSiglum

strSiglumA = "Es"

Call zDeleteSiglum

strSiglumA = "Gs"

Call zDeleteSiglum

strSiglumA = "Kg"

Call zDeleteSiglum

strSiglumA = "Ko"

Call zDeleteSiglum

strSiglumA = "La"

Call zDeleteSiglum

strSiglumA = "Lb"

Call zDeleteSiglum

strSiglumA = "Lc"

Call zDeleteSiglum

strSiglumA = "Lm"

Call zDeleteSiglum

strSiglumA = "Md"

Call zDeleteSiglum

strSiglumA = "Mw"

Call zDeleteSiglum

strSiglumA = "Mz"

Call zDeleteSiglum

strSiglumA = "Na"

Call zDeleteSiglum

strSiglumA = "Ox"

Call zDeleteSiglum

strSiglumA = "Pa"

Call zDeleteSiglum

strSiglumA = "Pb"

Call zDeleteSiglum

strSiglumA = "Pc"

Call zDeleteSiglum

strSiglumA = "Pd"

Call zDeleteSiglum

strSiglumA = "Pe"

Call zDeleteSiglum

strSiglumA = "Pz"

Call zDeleteSiglum

strSiglumA = "Ra"

Call zDeleteSiglum

strSiglumA = "Rb"

Call zDeleteSiglum

strSiglumA = "Rc"

Call zDeleteSiglum

strSiglumA = "Rd"

Call zDeleteSiglum

strSiglumA = "Re"

Call zDeleteSiglum

strSiglumA = "Rf"

Call zDeleteSiglum

strSiglumA = "Rg"

Call zDeleteSiglum

strSiglumA = "Sa"

Call zDeleteSiglum

strSiglumA = "Sm"

Call zDeleteSiglum

strSiglumA = "To"

Call zDeleteSiglum

strSiglumA = "Tx"

Call zDeleteSiglum

strSiglumA = "Un"

Call zDeleteSiglum

strSiglumA = "Va"

Call zDeleteSiglum

strSiglumA = "Vb"

Call zDeleteSiglum

strSiglumA = "Vd"

Call zDeleteSiglum

strSiglumA = "Ve"

Call zDeleteSiglum

strSiglumA = "Vf"

Call zDeleteSiglum

strSiglumA = "Vg"

Call zDeleteSiglum

strSiglumA = "Vm"

Call zDeleteSiglum

strSiglumA = "We"

Call zDeleteSiglum

strSiglumA = "Ze"

Call zDeleteSiglum

strSiglumA = "Zn"

Call zDeleteSiglum

strSiglumA = "Vulg"

Call zDeleteSiglum

strSiglumA = "Gl"

Call zDeleteSiglum

strSiglumA = "Sc"

Call zDeleteSiglum

strSiglumA = "Ki"

Call zDeleteSiglum

strSiglumA = "Kn"

Call zDeleteSiglum

End Sub

Sub a3Source2Witnesses1d6a()

' a3Source2Witnesses1d6a Macro

' Macro created 3/26/01 by Kilcullen

'Application.ScreenUpdating = False

'OCCASIONALLY REPORTED -- CHECK WITNESSES AND COMPLETE

'1d6

'Reported: An Ba Bb Fi Ox Va Vc Vd Vf Vg We

ActiveDocument.SaveAs FileName:="1d6aAn.doc", FileFormat:=wdFormatDocument

strSiglum = "An"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aAn.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aBa.doc", FileFormat:=wdFormatDocument

strSiglum = "Ba"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aBa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aBb.doc", FileFormat:=wdFormatDocument

strSiglum = "Bb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aBb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aFi.doc", FileFormat:=wdFormatDocument

strSiglum = "Fi"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aFi.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aOx.doc", FileFormat:=wdFormatDocument

strSiglum = "Ox"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aOx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aVa.doc", FileFormat:=wdFormatDocument

strSiglum = "Va"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aVa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aVc.doc", FileFormat:=wdFormatDocument

strSiglum = "Vc"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aVc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aVd.doc", FileFormat:=wdFormatDocument

strSiglum = "Vd"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aVd.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aVf.doc", FileFormat:=wdFormatDocument

strSiglum = "Vf"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aVf.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aVg.doc", FileFormat:=wdFormatDocument

strSiglum = "Vg"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aVg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d6aWe.doc", FileFormat:=wdFormatDocument

strSiglum = "We"

Call zImplement

ActiveDocument.SaveAs FileName:="1d6aWe.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub a3Source2Witnesses1d3b()

' a3Source2Witnesses1d3b Macro

' Macro created 4/3/01 by John Kilcullen

Application.ScreenUpdating = False

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

Call DeleteLemmataWithinVariants

ActiveDocument.SaveAs FileName:="1d3bAn.doc", FileFormat:=wdFormatText

strSiglum = "An"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bAn.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bAv.doc", FileFormat:=wdFormatText

strSiglum = "Av"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bAv.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bBa.doc", FileFormat:=wdFormatText

strSiglum = "Ba"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bBa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bBb.doc", FileFormat:=wdFormatText

strSiglum = "Bb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bBb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bFi.doc", FileFormat:=wdFormatText

strSiglum = "Fi"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bFi.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bLy.doc", FileFormat:=wdFormatText

strSiglum = "Ly"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bLy.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bOx.doc", FileFormat:=wdFormatText

strSiglum = "Ox"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bOx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bPa.doc", FileFormat:=wdFormatText

strSiglum = "Pa"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bPa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bTo.doc", FileFormat:=wdFormatText

strSiglum = "To"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bTo.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bVa.doc", FileFormat:=wdFormatText

strSiglum = "Va"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bVa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bVc.doc", FileFormat:=wdFormatText

strSiglum = "Vc"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bVc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bVf.doc", FileFormat:=wdFormatText

strSiglum = "Vf"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bVf.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bVg.doc", FileFormat:=wdFormatText

strSiglum = "Vg"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bVg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bFr.doc", FileFormat:=wdFormatText

strSiglum = "Fr"

Call zImplement

ActiveDocument.SaveAs FileName:="1d3bFr.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d3bTx.txt", FileFormat:=wdFormatText

Call Collation2CorrectedText

ActiveDocument.SaveAs FileName:="1d3bTx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub zDeleteBrackets()

' DeleteBrackets Macro

' Macro recorded 4/4/01 by John Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "["

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

End Sub

Sub a3Source2Witnesses1d4b()

' a3Source2Witnesses1d4b Macro

' Macro created 4/5/01 by John Kilcullen

Application.ScreenUpdating = False

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

Call DeleteLemmataWithinVariants

ActiveDocument.SaveAs FileName:="1d4bAv.doc", FileFormat:=wdFormatText

strSiglum = "Av"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bAv.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bBa.doc", FileFormat:=wdFormatText

strSiglum = "Ba"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bBa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bBb.doc", FileFormat:=wdFormatText

strSiglum = "Bb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bBb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bFi.doc", FileFormat:=wdFormatText

strSiglum = "Fi"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bFi.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bFr.doc", FileFormat:=wdFormatText

strSiglum = "Fr"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bFr.txt", FileFormat:=wdFormatText

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bLy.doc", FileFormat:=wdFormatText

strSiglum = "Ly"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bLy.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d4bOx.doc", FileFormat:=wdFormatText

'strSiglum = "Ox"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d4bOx.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bPa.doc", FileFormat:=wdFormatText

strSiglum = "Pa"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bPa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bTo.doc", FileFormat:=wdFormatText

strSiglum = "To"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bTo.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bVa.doc", FileFormat:=wdFormatText

strSiglum = "Va"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bVa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bVc.doc", FileFormat:=wdFormatText

strSiglum = "Vc"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bVc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d4bVf.doc", FileFormat:=wdFormatText

'strSiglum = "Vf"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d4bVf.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bVg.doc", FileFormat:=wdFormatText

strSiglum = "Vg"

Call zImplement

ActiveDocument.SaveAs FileName:="1d4bVg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4bTx.txt", FileFormat:=wdFormatText

Call Collation2CorrectedText

ActiveDocument.SaveAs FileName:="1d4bTx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub zPreserveNamAn()

' PreserveNamAn Macro

' Macro created 4/6/01 by John Kilcullen

'Protect NamAn

Call AllVariantsRed 'what of an or nam within variant text?

'perhaps: replace space before each siglum and before } with z,

' then colour red strings ending }

' then space out red strings and replace non-red z with space.

'"an" in variant text would lose its space then have it replaced

'this would not work: if nam were last word in variant it would become siglum

'Call zAllSiglaRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Nam"

.Replacement.Text = "NAM"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "An"

.Replacement.Text = "AN"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Ar"

.Replacement.Text = "AR"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Return colour to auto

'Selection.WholeStory

' With Selection.Font

' .Color = wdColorAutomatic

' End With

Call AutoColour

Selection.HomeKey Unit:=wdStory

End Sub

Sub zRestoreNamAn()

' ReplaceNam Macro

' Macro created 4/6/01 by John Kilcullen

'Replace NAM with Nam, AN with An

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "NAM"

.Replacement.Text = "Nam"

.Forward = True

.Format = True

.MatchCase = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "AN"

.Replacement.Text = "An"

.Forward = True

.Format = True

.MatchCase = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "AR"

.Replacement.Text = "Ar"

.Forward = True

.Format = True

.MatchCase = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteApos()

' DeleteApos Macro

' Macro recorded 4/6/01 by John Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "`"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteExtraPunctSelect()

' DeleteExtraPunctSelect Macro

' Macro recorded 4/6/01 by John Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ",}"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ";}"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zPreserveQuotationMarks()

' PreserveQuotationMarks Macro

' Macro created 4/6/01 by John Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C039}"

.Replacement.Text = "C039"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C096}"

.Replacement.Text = "C096"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C170}"

.Replacement.Text = "C170"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C186}"

.Replacement.Text = "C186"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestoreQuotCode()

' RestoreQuotCode Macro

' Macro created 4/6/01 by John Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C039"

.Replacement.Text = "{C039}"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C096"

.Replacement.Text = "{C096}"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C170"

.Replacement.Text = "{C170}"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "C186"

.Replacement.Text = "{C186}"

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zBlue2Brown()

' Blue2Brown Macro

' Macro recorded 4/8/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorBlue

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorBrown

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRed2Brown()

' Red2Brown Macro

' Macro recorded 4/8/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorBrown

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zPreserveSelectedSigla()

' PreserveSelectedSigla Macro

' Macro created 4/10/01 by Kilcullen

'To preserve selected sigla from DeleteSigla

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1

.Replacement.Text = strSiglum1 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2

.Replacement.Text = strSiglum2 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3

.Replacement.Text = strSiglum3 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4

.Replacement.Text = strSiglum4 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5

.Replacement.Text = strSiglum5 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6

.Replacement.Text = strSiglum6 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+m

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1 & "m"

.Replacement.Text = strSiglum1 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2 & "m"

.Replacement.Text = strSiglum2 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3 & "m"

.Replacement.Text = strSiglum3 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4 & "m"

.Replacement.Text = strSiglum4 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5 & "m"

.Replacement.Text = strSiglum5 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6 & "m"

.Replacement.Text = strSiglum6 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+b

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1 & "b"

.Replacement.Text = strSiglum1 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2 & "b"

.Replacement.Text = strSiglum2 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3 & "b"

.Replacement.Text = strSiglum3 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4 & "b"

.Replacement.Text = strSiglum4 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5 & "b"

.Replacement.Text = strSiglum5 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6 & "b"

.Replacement.Text = strSiglum6 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestoreSelectedSigla()

' RestoreSelectedSigla Macro

' Macro created 4/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "PRESERVE"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zSummaries2Variants()

' Summaries2Variants Macro

' Macro recorded 4/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = "(*-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-)"

.Replacement.Text = "-*)"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestoreSummaries()

' RestoreSummaries Macro

' Macro recorded 4/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*-"

.Replacement.Text = "(&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-*)"

.Replacement.Text = "&)"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'protect #L- {- etc

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#L-"

.Replacement.Text = "#L&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "#N-"

.Replacement.Text = "#N&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{-"

.Replacement.Text = "{&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.EscapeKey

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-}"

.Replacement.Text = "&}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "|-"

.Replacement.Text = "|&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Protect dash

With Selection.Find

.Text = "---"

.Replacement.Text = "&&&"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Delete - when left over by deletion of a summary

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Replace & with -

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "&"

.Replacement.Text = "-"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zPreservePositiveApparatus()

' PreservePositiveApparatus Macro

' Macro created 1/16/01 by Kilcullen

Call AllVariantsRed

'find red :

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then GoTo Stage0

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Find previous {

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Select from { to : inclusive

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\{*:"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

'change case

' Selection.Range.Case = wdUpperCase

Selection.Range.Case = wdToggleCase

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Stage0:

End Sub

Sub zRestorePositiveApparatus()

' RestorePositiveApparatus Macro

' Macro created 1/16/01 by Kilcullen

Call AllVariantsRed

'find red :

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then GoTo Stage0

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Find previous {

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Select from { to : inclusive

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\{*:"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

'change case

'Selection.Range.Case = wdTitleWord

Selection.Range.Case = wdToggleCase

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Stage0:

End Sub

Sub zMs()

' Ms Macro

' Macro recorded 4/11/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Ms"

.Replacement.Text = "Bb Fi An Vd Vg Va Ba Vc Vf Ox We"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zEdd()

' Edd Macro

' Macro recorded 4/11/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Edd"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:="Pz Ly Gs"

End Sub

Sub zWz()

' Wz Macro

' Macro recorded 4/11/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Wz"

.Replacement.Text = "Bb Fi An Vd Vg Va Ba Vc Vf Ox We Pz Ly Gs"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Execute

End Sub

Sub zSpaceBeforeVariant()

' SpaceBeforeVariant Macro

' Macro recorded 4/12/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "){"

.Replacement.Text = ") {"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub AutomaticNumbering()

' a6AutomaticNumbering Macro

' Macro created 4/12/01 by Kilcullen

'Converts @s into numbers in sequence.

Application.ScreenUpdating = False

Dim Count As Integer

Selection.HomeKey Unit:=wdStory ' "selection" object is a highlighted

'text block or (in this case) the current insertion point

'For Count = 1 To 9999

'Repeat:

Count = 1 'added: to set value before loop

Do 'added instead of For and Repeat

Selection.Find.ClearFormatting

With Selection.Find

.Text = "@"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute

'If Selection.Find.Found = True Then

If Selection.Find.Found = False Then Exit Do 'added

Selection.TypeText Text:=Count

'WordBasic.Insert Str$(Count)

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Else: GoTo Finish

'End If

Count = Count + 1 'added: to increase value before loop

'Next

Loop 'added instead of Next

'Finish: 'not needed because of Exit Do

End Sub

Sub Word2HTML()

' Word2HTML Macro

' Macro recorded 1/12/01 by Kilcullen

MsgBox ("Codes headings, bold, italic, list bullet, blocktext; not tables. Enter to continue.")

Selection.HomeKey Unit:=wdStory

Call zCodeWdHeadings4HTML

Selection.HomeKey Unit:=wdStory

Call zCodeBoldandItal4HTML

Selection.HomeKey Unit:=wdStory

Call zCodeParas4HTML

Selection.HomeKey Unit:=wdStory

Call zWordBullet2HTML

Selection.HomeKey Unit:=wdStory

Call zWordBlockTxt2HTML

Call zTopAndBottomHTML

MsgBox ("Save as .txt, but change extension to .html.")

End Sub

Sub zCodeWdHeadings4HTML()

' CodeWdHeadings4HTML Macro

' Macro recorded 2/5/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Heading 1")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.Style = ActiveDocument.Styles("Normal")

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<h1>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</h1>"

Loop

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Heading 2")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.Style = ActiveDocument.Styles("Normal")

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<h2>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</h2>"

Loop

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Heading 3")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.Style = ActiveDocument.Styles("Normal")

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<h3>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</h3>"

Loop

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Heading 4")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.Style = ActiveDocument.Styles("Normal")

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<h4>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</h4>"

Loop

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Heading 5")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.Style = ActiveDocument.Styles("Normal")

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<h5>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</h5>"

Loop

End Sub

Sub zCodeBoldandItal4HTML()

' CodeBoldandItal4HTML Macro

' Macro created 04/10/99 by Kilcullen

'convert italic to html

Selection.HomeKey Unit:=wdStory

'Do

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Do While Selection.Find.Found

'If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<em>"

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="</em>"

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = False

.Format = True

End With

Selection.Find.Execute

Selection.Font.Italic = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

' Find again

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Loop

'convert bold to html

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<strong>"

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="</strong>"

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = False

.Format = True

End With

Selection.Find.Execute

Selection.Font.Bold = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

End Sub

Sub zCodeParas4HTML()

' CodeParas4HTML Macro

' Macro recorded 04/10/99 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p"

.Replacement.Text = "<p>^p"

.Forward = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

End Sub

Sub zWordBullet2HTML()

' WordBullet2HTML Macro

' Macro recorded 3/5/01 by Kilcullen

'Bullet to unordered list

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("List Bullet")

With Selection.Find

.Text = ""

.Replacement.Text = "^p"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.HomeKey Unit:=wdLine

Selection.TypeText Text:="<ul><li>"

Selection.EndKey Unit:=wdLine

Selection.TypeText Text:="</ul>"

Loop

'remove bullet format

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("List Bullet")

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Style = ActiveDocument.Styles("Normal")

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove superfluous coding

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "</ul>^p<ul>"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zWordBlockTxt2HTML()

' WordBlockTxt2HTML Macro

' Macro recorded 3/5/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Block Text")

With Selection.Find

.Text = ""

.Replacement.Text = "^p"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<blockquote>"

'move up out of blocktext

Selection.MoveUp Unit:=wdLine, Count:=1

'find same block

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Block Text")

With Selection.Find

.Text = ""

.Replacement.Text = "^p"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="</blockquote>"

Loop

End Sub

Sub zTopAndBottomHTML()

' TopAndBottomHTML Macro

' Macro recorded 3/5/01 by Kilcullen

Dim strStyle As String

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="<html>"

Selection.TypeParagraph

Selection.TypeText Text:="<head>"

Selection.TypeParagraph

Selection.TypeText Text:="<title>"

Selection.TypeParagraph

Selection.TypeText Text:="</title>"

Selection.TypeParagraph

strStyle = InputBox("What is the name of the stylesheet to be used? (Do not inclued extension .css)", "Stylesheet?")

Selection.TypeText Text:= _

"<LINK REL=""stylesheet"" HREF="

Selection.TypeText Text:=""""

Selection.TypeText Text:=strStyle

Selection.TypeText Text:=".css"" TYPE=""text/css""></head"

Selection.TypeText Text:=">"

Selection.TypeParagraph

Selection.TypeText Text:= _

"<body bgcolor=""white"" text=""black"" link=""red"" vlink=""#7f0000"

Selection.TypeText Text:=""" leftmargin=""170"" marginwidth=""170"">"

Selection.TypeParagraph

Selection.EndKey Unit:=wdStory

Selection.TypeParagraph

Selection.TypeText Text:="</body></html>"

'Call zMs

'Call zWz

End Sub

Sub zAcEddMsWz()

' AcEddMsWz Macro

' To substitute witness sigla for these collective terms

Selection.HomeKey Unit:=wdStory

'Mark occurrences of Edd, Ms, Wz

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Edd"

.Replacement.Text = "Edd &"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Ms"

.Replacement.Text = "Ms &"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Wz"

.Replacement.Text = "Wz &"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

'substitute sigla

Selection.Find.ClearFormatting

With Selection.Find

.Text = "Edd"

.Replacement.Text = "Pz Ly Gs"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Find.Execute Replace:=wdReplaceAll

Call zMs

Call zWz

MsgBox ("Check each variant (search to ""&"") in which a substitution made to make sure no siglum occurs more than once")

End Sub

Sub zRestoreBrackets()

' RestoreBrackets Macro

' Macro recorded 4/15/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$"

.Replacement.Text = "["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "~"

.Replacement.Text = "]"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub a3Source2Witnesses1d2()

' a3Source2Witnesses1d2 Macro

' Macro created 4/5/01 by John Kilcullen

Application.ScreenUpdating = False

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

Call DeleteLemmataWithinVariants

ActiveDocument.SaveAs FileName:="1d2Av.doc", FileFormat:=wdFormatText

strSiglum = "Av"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Av.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Ba.doc", FileFormat:=wdFormatText

strSiglum = "Ba"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Ba.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Bb.doc", FileFormat:=wdFormatText

strSiglum = "Bb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Bb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Fr.doc", FileFormat:=wdFormatText

strSiglum = "Fr"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Fr.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Ly.doc", FileFormat:=wdFormatText

strSiglum = "Ly"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Ly.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Ox.doc", FileFormat:=wdFormatText

strSiglum = "Ox"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Ox.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Pz.doc", FileFormat:=wdFormatText

strSiglum = "Pz"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Pz.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Vc.doc", FileFormat:=wdFormatText

strSiglum = "Vc"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Vc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Vf.doc", FileFormat:=wdFormatText

strSiglum = "Vf"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Vf.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Vg.doc", FileFormat:=wdFormatText

strSiglum = "Vg"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2Vg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2We.doc", FileFormat:=wdFormatText

strSiglum = "We"

Call zImplement

ActiveDocument.SaveAs FileName:="1d2We.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d2Tx.txt", FileFormat:=wdFormatText

Call Collation2CorrectedText

ActiveDocument.SaveAs FileName:="1d2Tx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub a3Source2Witnesses1d1Pr()

' a3Source2Witnesses1d1Pr Macro

'Macro created 4/5/01 by John Kilcullen

Application.ScreenUpdating = False

'Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

'Call DeleteLemmataWithinVariants

'ActiveDocument.SaveAs FileName:="1d1PrAv.doc", FileFormat:=wdFormatText

'strSiglum = "Av"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d1PrAv.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrBa.doc", FileFormat:=wdFormatText

strSiglum = "Ba"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrBa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrBb.doc", FileFormat:=wdFormatText

strSiglum = "Bb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrBb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrBr.doc", FileFormat:=wdFormatText

strSiglum = "Br"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrBr.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d1PrCa.doc", FileFormat:=wdFormatText

'strSiglum = "Ca"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d1PrCa.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrEs.doc", FileFormat:=wdFormatText

strSiglum = "Es"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrEs.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrFi.doc", FileFormat:=wdFormatText

strSiglum = "Fi"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrFi.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrFr.doc", FileFormat:=wdFormatText

strSiglum = "Fr"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrFr.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrLa.doc", FileFormat:=wdFormatText

strSiglum = "La"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrLa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d1PrLb.doc", FileFormat:=wdFormatText

'strSiglum = "Lb"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d1PrLb.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrLy.doc", FileFormat:=wdFormatText

strSiglum = "Ly"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrLy.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrOx.doc", FileFormat:=wdFormatText

strSiglum = "Ox"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrOx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrPa.doc", FileFormat:=wdFormatText

strSiglum = "Pa"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrPa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrPz.doc", FileFormat:=wdFormatText

strSiglum = "Pz"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrPz.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrTo.doc", FileFormat:=wdFormatText

strSiglum = "To"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrTo.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrVa.doc", FileFormat:=wdFormatText

strSiglum = "Va"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrVa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrVb.doc", FileFormat:=wdFormatText

strSiglum = "Vb"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrVb.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrVc.doc", FileFormat:=wdFormatText

strSiglum = "Vc"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrVc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrVd.doc", FileFormat:=wdFormatText

strSiglum = "Vd"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrVd.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d1PrVf.doc", FileFormat:=wdFormatText

'strSiglum = "Vf"

'Call zImplement

'ActiveDocument.SaveAs FileName:="1d1PrVf.txt", FileFormat:=wdFormatText

'ActiveDocument.Close

'Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrVg.doc", FileFormat:=wdFormatText

strSiglum = "Vg"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrVg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrWe.doc", FileFormat:=wdFormatText

strSiglum = "We"

Call zImplement

ActiveDocument.SaveAs FileName:="1d1PrWe.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d1PrSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d1PrTx.txt", FileFormat:=wdFormatText

Call Collation2CorrectedText

ActiveDocument.SaveAs FileName:="1d1PrTx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub zcetCodedPara2Para()

' cetCodedPara2Para Macro

' Macro recorded 4/27/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<S/>"

.Replacement.Text = "para."

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteCetFormats()

' DeleteCetFormats Macro

' Macro recorded 4/30/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<S/>"

.Replacement.Text = "para"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zUnderlineOverlapCoding()

' UnderlineOverlapCoding Macro

' Macro recorded 5/2/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "\(\*^^?"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "?^^\*\)"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteOverlapCoding()

' DeleteOverlapCoding Macro

' Macro recorded 5/2/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\(\*^^?"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "?^^\*\)"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zMarginalComment()

' MarginalComment Macro

' Macro recorded 5/3/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\(\*?*`"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" $m% "

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.TypeBackspace

Selection.TypeText Text:=" $/m%"

Application.GoBack

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.TypeBackspace

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "$m%"

.Replacement.Text = "$m%"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "$/m%"

.Replacement.Text = "$/m%"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zInterlinearComment()

' InterlinearComment Macro

' Macro recorded 5/3/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\(\*?*`"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" $b% "

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.TypeBackspace

Selection.TypeText Text:=" $/b%"

Application.GoBack

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.TypeBackspace

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "$b%"

.Replacement.Text = "$b%"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "$/b%"

.Replacement.Text = "$/b%"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zSpacesAroundTags()

' SpacesAroundTags Macro

' Macro recorded 5/3/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]"

.Replacement.Text = "] "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "["

.Replacement.Text = " ["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub a3AllSources2AllWitnesses()

' a31AllSources2AllWitnesses Macro

' Macro created 4/5/01 by John Kilcullen

Application.ScreenUpdating = False

Documents.Open FileName:="1d1Source.doc", ConfirmConversions:=False

Call a3Source2Witnesses1d1

Documents.Open FileName:="1d2Source.doc", ConfirmConversions:=False

Call a3Source2Witnesses1d2

Documents.Open FileName:="1d3bSource.doc", ConfirmConversions:=False

Call a3Source2Witnesses1d3b

Documents.Open FileName:="1d4bSource.doc", ConfirmConversions:=False

Call a3Source2Witnesses1d4b

Documents.Open FileName:="1d6aSource.doc", ConfirmConversions:=False

Call a3Source2Witnesses1d6a

End Sub

Sub zOCFindNextVariant()

' OCFindNextVariant Macro

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnNextVariant = True

'colour selection red

With Selection.Font

.Color = wdColorRed

End With

' Selection.MoveLeft Unit:=wdCharacter, Count:=2

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'insert Four spaces and put bookmark in front

Selection.TypeText Text:=" "

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

End If

If Selection.Find.Found = False Then

blnNextVariant = False

End If

End Sub

Sub zOCSelect4ChosenWitnessFromSource()

' OCSelect4ChosenWitnessFromSource Macro

' Macro created 2/10/01 by Kilcullen

'lngQuery = MsgBox("First run OldCollation2Source, fix / \" & vbCr & "run DivideIntoCollationBlocks," & vbCr & "and run AutomaticNumbering." & vbCr & vbCr & "Continue?", vbYesNo + vbQuestion, "Continue?")

'If lngQuery = vbNo Then End

'ActiveDocument.SaveAs FileName:=Common & Wit & ".doc", FileFormat:=wdFormatDocument

'protect Nam -- i.e. so that Latin word not treated as siglum

Call zPreserveNamAn

'Call zSpaceBeforeVariant

'mark paras

Call zMarkParas

Call zOCFindNextVariant

If blnNextVariant = False Then Exit Do

If blnNextVariant = True Then

Call zOCDeleteIfSiglumNotFound

End If

Loop

Call zOCEndCleanUp

End Sub

Sub zOCDeleteIfSiglumNotFound()

' OCDeleteIfSiglumNotFound Macro

' Macro created 3/19/01 by Kilcullen

'test for siglum

Call zTest4Siglum

Call zTest4SiglumM

Call zTest4SiglumB

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'delete variant

If blnSiglum = False And blnSiglumm = False And blnSiglumb = False Then

Call zDeleteRed

GoTo LastL

End If

LastL:

End Sub

Sub zAllSiglaRed()

' AllSiglaRed Macro

' Macro created 1/16/01 by Kilcullen

'Called by Delete2Colon

'Sigla red -- presupposes sigla in form "&sigla[]"

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "&*\]"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCLemmataLowerCase()

' OCLemmataLowerCase Macro

' Macro recorded 5/5/01 by Kilcullen

'Call za7AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "\{*:"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Range.Case = wdLowerCase

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

End Sub

Sub zOCDeleteSigla()

' OCDeleteSigla Macro

' To Call zfor deletion of sigla'

strSiglumA = "Vc"

Call zOCDeleteSiglum

strSiglumA = "Fi"

Call zOCDeleteSiglum

strSiglumA = "Fr"

Call zOCDeleteSiglum

strSiglumA = "Pa"

Call zOCDeleteSiglum

strSiglumA = "Ly"

Call zOCDeleteSiglum

strSiglumA = "An"

Call zOCDeleteSiglum

strSiglumA = "Ar"

Call zOCDeleteSiglum

strSiglumA = "Au"

Call zOCDeleteSiglum

strSiglumA = "Av"

Call zOCDeleteSiglum

strSiglumA = "Ax"

Call zOCDeleteSiglum

strSiglumA = "Ba"

Call zOCDeleteSiglum

strSiglumA = "Bb"

Call zOCDeleteSiglum

strSiglumA = "Bm"

Call zOCDeleteSiglum

strSiglumA = "Br"

Call zOCDeleteSiglum

strSiglumA = "Ca"

Call zOCDeleteSiglum

strSiglumA = "Ce"

Call zOCDeleteSiglum

strSiglumA = "Di"

Call zOCDeleteSiglum

strSiglumA = "Es"

Call zOCDeleteSiglum

strSiglumA = "Gs"

Call zOCDeleteSiglum

strSiglumA = "Kg"

Call zOCDeleteSiglum

strSiglumA = "Ko"

Call zOCDeleteSiglum

strSiglumA = "La"

Call zOCDeleteSiglum

strSiglumA = "Lb"

Call zOCDeleteSiglum

strSiglumA = "Lc"

Call zOCDeleteSiglum

strSiglumA = "Lm"

Call zOCDeleteSiglum

strSiglumA = "Md"

Call zOCDeleteSiglum

strSiglumA = "Mw"

Call zOCDeleteSiglum

strSiglumA = "Mz"

Call zOCDeleteSiglum

strSiglumA = "Na"

Call zOCDeleteSiglum

strSiglumA = "Ox"

Call zOCDeleteSiglum

strSiglumA = "Pa"

Call zOCDeleteSiglum

strSiglumA = "Pb"

Call zOCDeleteSiglum

strSiglumA = "Pc"

Call zOCDeleteSiglum

strSiglumA = "Pd"

Call zOCDeleteSiglum

strSiglumA = "Pe"

Call zOCDeleteSiglum

strSiglumA = "Pz"

Call zOCDeleteSiglum

strSiglumA = "Ra"

Call zOCDeleteSiglum

strSiglumA = "Rb"

Call zOCDeleteSiglum

strSiglumA = "Rc"

Call zOCDeleteSiglum

strSiglumA = "Rd"

Call zOCDeleteSiglum

strSiglumA = "Re"

Call zOCDeleteSiglum

strSiglumA = "Rf"

Call zOCDeleteSiglum

strSiglumA = "Rg"

Call zOCDeleteSiglum

strSiglumA = "Sa"

Call zOCDeleteSiglum

strSiglumA = "Sm"

Call zOCDeleteSiglum

strSiglumA = "To"

Call zOCDeleteSiglum

strSiglumA = "Tx"

Call zOCDeleteSiglum

strSiglumA = "Un"

Call zOCDeleteSiglum

strSiglumA = "Va"

Call zOCDeleteSiglum

strSiglumA = "Vb"

Call zOCDeleteSiglum

strSiglumA = "Vd"

Call zOCDeleteSiglum

strSiglumA = "Ve"

Call zOCDeleteSiglum

strSiglumA = "Vf"

Call zOCDeleteSiglum

strSiglumA = "Vg"

Call zOCDeleteSiglum

strSiglumA = "Vm"

Call zOCDeleteSiglum

strSiglumA = "We"

Call zOCDeleteSiglum

strSiglumA = "Zn"

Call zOCDeleteSiglum

strSiglumA = "Vulg"

Call zOCDeleteSiglum

strSiglumA = "Gl"

Call zOCDeleteSiglum

strSiglumA = "Kn"

Call zOCDeleteSiglum

strSiglumA = "Ki"

Call zOCDeleteSiglum

strSiglumA = "Sc"

Call zOCDeleteSiglum

End Sub

Sub zOCDeleteSiglum()

' OCDeleteSiglum Macro

' Macro created 3/30/01 by Kilcullen

'delete siglum

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglumA

.Replacement.Text = " "

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete siglumM

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglumA & "m"

.Replacement.Text = " "

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete siglumB

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglumA & "b"

.Replacement.Text = " "

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCEndCleanUp()

' OCEndCleanUp Macro

' Macro created 3/20/01 by Kilcullen

'return to autocolour

Selection.HomeKey Unit:=wdStory

Call zOCPreserveMargInterlin 'added

Call zOCDeleteSigla 'added

Selection.HomeKey Unit:=wdStory

Selection.WholeStory

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveUp Unit:=wdLine, Count:=1

'Call zOCPreserveMargInterlin

'Call zOCDeleteSigla

Selection.HomeKey Unit:=wdStory

'Call zDeleteOverlapCoding

Call zRestoreParas

Call zDeleteExtraSpaces

'' Return pink underlined to autocolour no underline

' Selection.Find.ClearFormatting

' With Selection.Find.Font

' .Underline = wdUnderlineSingle

' End With

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find.Replacement.Font

' .Underline = wdUnderlineNone

' .Color = wdColorAutomatic

' End With

' With Selection.Find

' .Text = ""

' .Replacement.Text = ""

' .Forward = True

' .Format = True

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

'Call zcet2WdBoldItal

Call zDeleteBrackets

Call zRestoreNamAn

'Call zOCMarginAndInterlinear

Call zRestoreBrackets2

Call zSpacesAroundTags

'ActiveDocument.Save

End Sub

Sub zOCMarginAndInterlinear()

'Call zGetSiglum

' OCMarginAndInterlinear Macro

' Macro recorded 5/5/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

' Do

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = strSiglum & "b}"

' .Replacement.Text = " "

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

'If Selection.Find.Found = False Then Exit Do

' Selection.TypeText Text:="$/b%"

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "{"

' .Replacement.Text = " "

' .Forward = False

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

' Selection.TypeText Text:="$b% "

'Loop

Selection.Find.ClearFormatting

With Selection.Find

.Text = "SIGB"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.TypeText Text:="$/b%"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = " "

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:="$b% "

Loop

Selection.HomeKey Unit:=wdStory

' Do

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = strSiglum & "m}"

' .Replacement.Text = " "

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

'If Selection.Find.Found = False Then Exit Do

' Selection.TypeText Text:="$/m%"

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "{"

' .Replacement.Text = " "

' .Forward = False

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

' Selection.TypeText Text:="$m% "

'Loop

Selection.Find.ClearFormatting

With Selection.Find

.Text = "SIGM"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.TypeText Text:="$/m%"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = " "

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeText Text:="$m% "

Loop

Selection.HomeKey Unit:=wdStory

End Sub

Sub zOCMarkLemmaDots()

' OCMarkLemmaDots Macro

' Macro recorded 5/5/01 by Kilcullen

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Insert para, find previous {

Selection.TypeParagraph

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Select lemma

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

'Delete extra para

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

'Find previous occurrence

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = strSel

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Insert bookmark

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

End Sub

Sub zOCImplement()

' OCImplement Macro

' Macro recorded 5/9/01 by Kilcullen

'Call zOCPreserveCom

'Test for omission dots

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "..."

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCMarkLemmaDots

Call zOCProcessDots

GoTo EndImpl

Else

GoTo Colon

End If

Colon: 'label

'Test for colon

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCMarkLemmaColon

Call zOCProcessColon

GoTo EndImpl

Else

GoTo Omitted

End If

Omitted: 'label

'Test for omitted

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>omitted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCOmitted

GoTo EndImpl

Else

GoTo Added

End If

Added: 'label

'Test for added

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCAdded

GoTo EndImpl

Else

GoTo trs

End If

trs:

'transpositions

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{trs"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Call zDeleteRed

Call zOCTransposition

GoTo EndImpl

Else

GoTo OCSubst

End If

OCSubst:

Call zOCSubstitution

EndImpl: 'label

End Sub

Sub zOCMarkLemmaColon()

' OCMarkLemmaColon Macro

' Macro recorded 5/9/01 by Kilcullen

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Insert para, find previous {

Selection.TypeParagraph

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Select lemma

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

'Delete extra para

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

'Find previous occurrence

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = strSel

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

'Insert bookmark

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Selection.MoveLeft Unit:=wdCharacter, Count:=4

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="z"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

' Selection.GoTo What:=wdGoToBookmark, Name:="z"

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' With Selection.Find

' .Text = ":"

' .Replacement.Text = ""

' .Forward = True

' .Format = True

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.MoveLeft Unit:=wdWord, Count:=2

' Selection.TypeText Text:=" "

' Selection.MoveLeft Unit:=wdCharacter, Count:=2

' With ActiveDocument.Bookmarks

' .Add Range:=Selection.Range, Name:="z"

' .DefaultSorting = wdSortByName

' .ShowHidden = False

' End With

End Sub

Sub zOCProcessDots()

' OCProcessDots Macro

'Test for omitted

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>omitted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then GoTo DotAdded

'Delete omission

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Call zOCDeletePink

GoTo DotEnd

DotAdded: 'label

'Test for added

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCAdded

GoTo DotEnd

Else

GoTo DotSubst

End If

DotSubst: 'label

'select to colon and delete

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*:"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Call zOCDeletePink

'select to } and autocolour

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

.Engrave = False

End With

'delete }

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

DotEnd:

End Sub

Sub b2OCSource2ChosenWitness()

' b2OCSource2ChosenWitness Macro

' Macro recorded 5/9/01 by Kilcullen

'ActiveDocument.SaveAs FileName:=Common & Wit & ".doc", FileFormat:=wdFormatDocument

Application.ScreenUpdating = False

'Get name of siglum

Call zGetSiglum

Call zOCReconstructWitness

Selection.WholeStory

With Selection.Font

.Name = ""

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.Hidden = False

End With

End Sub

Sub zOCReconstructWitness()

' OCReconstructWitness Macro

'Call zOCBetMargBrackets

Call wHideBlockNumbers

Call wAllAutocolour

Call wSpaceBetweenVariants

Call wTrsSpacing

Call zOCPreserveCom

Call zOCSelect4ChosenWitnessFromSource

'If strSiglum = "*" Then GoTo Margin

Call zDeleteAsterisks

Call zOCRestoreCom ' added

Margin:

Call zOCMarginAndInterlinear

'Call zRestoreBrackets2

Call zOmissionDotsSpacing

Call zOCFindNextVariant

If blnNextVariant = False Then Exit Do

Call zOCImplement

Loop

Selection.HomeKey Unit:=wdStory

Call zOCDeleteCETItalicCoding

Call zOCBracketMarBet

Selection.HomeKey Unit:=wdStory

'Selection.WholeStory

'Selection.Range.Case = wdLowerCase

'Selection.MoveUp Unit:=wdLine, Count:=1

'Call zDelPunctLC

Call wSpaceCQNumbers

Call zDeleteExtraSpaces

'Call DenumberBlocks

'Call AutomaticNumbering

'Call wSpaceBlockNumbers

Call wDeHideBlockNumbers

Call zMedievalSpelling

Call zRestoreBrackets2

Call zOCRestoreCom

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="SEARCH FOR TRS; adjust sections within marginal additions; introduce appropriate [m] markers"

Selection.TypeParagraph

End Sub

Sub zOCProcessColon()

' OCProcessColon Macro

'Test for omitted

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>omitted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then GoTo ColonAdded

'Delete omission

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Call zOCDeletePink

GoTo ColonEnd

ColonAdded: 'label

'Test for added

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCAdded

GoTo ColonEnd

Else

GoTo ColonSubst

End If

ColonSubst: 'label

'select to colon and delete

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*:"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Call zOCDeletePink

'select to } and autocolour

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

.Engrave = False

End With

'delete }

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

ColonEnd:

End Sub

Sub zOCOmitted()

' OCOmitted Macro

' Macro recorded 5/9/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

'Selection.Delete Unit:=wdCharacter, Count:=1

Call zOCDeletePink

End Sub

Sub zOCAdded()

' OCAdded Macro

' Macro recorded 5/9/01 by Kilcullen

'delete "added" and }

' Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend

' Selection.Delete Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added<IE>}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

'Autocolour addition, remove {

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCSubstitution()

' OCSubstitution Macro

' Macro recorded 5/9/01 by Kilcullen

'Select from word before bookmark to { -- word(s) to be deleted

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\{"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

'Selection.Delete Unit:=wdCharacter, Count:=1

Call zOCDeletePink

'AutoColour variant, delete }

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub

Sub zMessageAtTop()

' MessageAtTop Macro

' Macro recorded 5/9/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="Message"

End Sub

Sub zOCBetMargBrackets()

' OCBetMargBrackets Macro

' Macro recorded 5/9/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[["

.Replacement.Text = "{"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "]]"

.Replacement.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " between"

.Replacement.Text = "b"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " margin"

.Replacement.Text = "m"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCTransposition()

'Call wQuarantineBlockNumbers

trs6712345:

'Test for 6712345

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.6712345}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs6712345

GoTo EndTransposition

Else

GoTo trs231

End If

trs231:

'Test for trs231

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.231}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs231

GoTo EndTransposition

Else

GoTo trs321

End If

trs321:

'Test for trs321

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.321}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs321

GoTo EndTransposition

Else

GoTo trs312

End If

trs312:

'Test for trs312

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.312}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs312

GoTo EndTransposition

Else

GoTo trs213

End If

trs213:

'Test for trs213

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.213}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call zOCtrs213

GoTo EndTransposition

Else

GoTo trs2341

End If

trs2341:

'Test for trs2341

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.2341}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs2341

GoTo EndTransposition

Else

GoTo trs2431

End If

trs2431:

'Test for trs2431

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.2431}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs2431

GoTo EndTransposition

Else

GoTo trs3412

End If

trs3412:

'Test for trs3412

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.3412}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs3412

GoTo EndTransposition

Else

GoTo trs34512

End If

trs34512:

'Test for trs34512

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.34512}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs34512

GoTo EndTransposition

Else

GoTo trs4123

End If

trs4123:

'Test for trs4123

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.4123}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs4123

GoTo EndTransposition

Else

GoTo trs4231

End If

trs4231:

'Test for trs4231

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.4231}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs4231

GoTo EndTransposition

Else

GoTo trs51234

End If

trs51234:

'Test for trs51234

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.51234}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs51234

GoTo EndTransposition

Else

GoTo trs2413

End If

trs2413:

'Test for trs2413

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.2413}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs2413

GoTo EndTransposition

Else

GoTo trs52341

End If

trs52341:

'Test for trs52341

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.52341}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs52341

GoTo EndTransposition

Else

GoTo trs3421

End If

trs3421:

'Test for trs3421

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.3421}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs3421

GoTo EndTransposition

Else

GoTo trs4132

End If

trs4132:

'Test for trs4132

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.4132}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs4132

GoTo EndTransposition

Else

GoTo trs45123

End If

trs45123:

'test for trs0

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.45123}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs45123

GoTo trs45231

End If

trs45231:

'test for trs0

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.45231}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs45231

GoTo trs4312

End If

trs4312:

'test for trs4312

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.4312}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs4312

GoTo trs23451

End If

trs23451:

'test for 23451

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.23451}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wtrs23451

GoTo EndTransposition

Else

GoTo trs0

End If

trs0:

'test for trs0

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs.}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Call wTrs0

GoTo EndTransposition

'Else

' Call zOCtrsQ

End If

EndTransposition:

'Call wRestoreBlkNum

End Sub

Sub zz231()

' z231 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "trs. 231"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCtrs213()

' OCtrs213 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "trs. 213"

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs. 213}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCtrs312()

' OCtrs312 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "trs. 312"

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "trs. 312"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCtrs321()

' OCtrs321 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "trs. 321"

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "trs. 321"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCtrs0()

' OCtrs0 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

' Selection.MoveLeft Unit:=wdCharacter, Count:=2

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "trs."

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.MoveLeft Unit:=wdCharacter, Count:=3

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

' Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zzdots()

' zdots Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "..."

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

End Sub

Sub zDeleteAsterisks()

' DeleteAsterisks Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCtrs231()

' OCtrs231 Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' With Selection.Find

' .Text = "trs"

' .Replacement.Text = ""

' .Forward = True

' .Format = True

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "trs"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "trs"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zOCtrsQ()

' OCtrsQ Macro

' Macro recorded 5/10/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

End Sub

Sub a3Source2Witnesses1d4a()

' a3Source2Witnesses1d4a Macro

' Macro created 4/5/01 by John Kilcullen

Application.ScreenUpdating = False

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

Call DeleteLemmataWithinVariants

ActiveDocument.SaveAs FileName:="1d4aTx.doc", FileFormat:=wdFormatText

strSiglum = "*"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aTx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aFi.doc", FileFormat:=wdFormatText

strSiglum = "Fi"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aFi.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aVg.doc", FileFormat:=wdFormatText

strSiglum = "Vg"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aVg.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aBa.doc", FileFormat:=wdFormatText

strSiglum = "Ba"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aBa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aLy.doc", FileFormat:=wdFormatText

strSiglum = "Ly"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aLy.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aTo.doc", FileFormat:=wdFormatText

strSiglum = "To"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aTo.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aVc.doc", FileFormat:=wdFormatText

strSiglum = "Vc"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aVc.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aVf.doc", FileFormat:=wdFormatText

strSiglum = "Vf"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aVf.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aPa.doc", FileFormat:=wdFormatText

strSiglum = "Pa"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aPa.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aFr.doc", FileFormat:=wdFormatText

strSiglum = "Fr"

Call zOCReconstructWitness

ActiveDocument.SaveAs FileName:="1d4aFr.txt", FileFormat:=wdFormatText

ActiveDocument.Close

Documents.Open FileName:="1d4aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="1d4aTx.txt", FileFormat:=wdFormatText

Call Collation2CorrectedText

ActiveDocument.SaveAs FileName:="1d4aTx.txt", FileFormat:=wdFormatText

ActiveDocument.Close

End Sub

Sub zOCDeletePink()

' OCDeletePink Macro

' Macro recorded 3/21/01 by Kilcullen

'colour selection pink

With Selection.Font

.Color = wdColorPink

End With

' Selection.GoTo What:=wdGoToBookmark, Name:="z"

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

'delete pink, no underline

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Color = wdColorPink

.Hidden = False

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

End Sub

Sub zOCPreserveMargInterlin()

' OCPreserveMargInterlin Macro

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglum & "b"

.Replacement.Text = "SIGB"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = True 'changed

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = strSiglum & "m"

.Replacement.Text = "SIGM"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCDeleteCETItalicCoding()

' OCDeleteCETItalicCoding Macro

' Macro recorded 5/18/01 by John Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IB>"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IE>"

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DefaultCollation2HTML()

' bDefCollation2HTML Macro

' Macro recorded 5/18/01 by John Kilcullen

Call zNameBlock

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "<"

' .Replacement.Text = "["

' .Forward = True

' .Format = False

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = ">"

' .Replacement.Text = "]"

' .Forward = True

' .Format = False

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p"

.Replacement.Text = "<br>^p"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Call zTopAndBottom2HTML

'repairs

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "></a>"

.Replacement.Text = """></a>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[section"

.Replacement.Text = "<p>[section"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DefaultCollation2CET()

c '

' bDefColl2CET Macro

' Macro recorded 5/18/01 by John Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<*\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ",^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = " ..."

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Copy

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "^phic"

.Replacement.Text = "^p"

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1

Selection.TypeText Text:="(*"

Selection.Find.ClearFormatting

With Selection.Find

.Text = " ..."

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = " ]"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

Selection.Find.ClearFormatting

With Selection.Find

.Text = "^ptertium"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdParagraph, Count:=1

End Sub

Sub zMargin()

' Margin Macro

' Macro recorded 5/29/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Select segment containing siglM, autocolour, cut

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.Cut

'Find beginning of autocolour text

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "*"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'insert marginal coding and paste PROBLEM: FIXED this may become green, then red, then get deleted

Selection.TypeText Text:=" $m%"

Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Paste

Selection.TypeBackspace

Selection.TypeText Text:="$/m% "

Selection.GoTo What:=wdGoToBookmark, Name:="z"

End Sub

Sub zInterlinear()

' Interlinear Macro

' Macro recorded 5/29/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Select segment containing siglB, autocolour, cut

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.Cut

'Find beginning of autocolour text

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "*"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'insert marginal coding and paste

Selection.TypeText Text:=" $b%"

Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Paste

Selection.TypeBackspace

Selection.TypeText Text:="$/b% "

Selection.GoTo What:=wdGoToBookmark, Name:="z"

End Sub

Sub zRemoveAngleBrackets()

' zRemoveAngleBrackets Macro

' Macro recorded 4/2/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<S/>"

.Replacement.Text = "para."

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DeleteSectionNumbers()

' DeleteSectionNumbers Macro

' Macro recorded 6/19/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<s*\>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DeleteDoubleUnderlined()

' DeleteDoubleUnderlined Macro

' Macro recorded 6/19/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineDouble

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DenumberBlocks()

' DenumberBlocks Macro

' @ for number, but <s remains

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<s*\>"

.Replacement.Text = "<s@>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRed2Auto()

' Red2Auto Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub

Sub ChainSource2Wit()

' ChainSource2Wit Macro

' Macro created 7/22/01 by Kilcullen

Call a3Source2Witnesses1d1

Call a3Source2Witnesses1d2

Call a3Source2Witnesses1d3b

Call a3Source2Witnesses1d4b

End Sub

Sub zNameBlock()

' zNameBlock Macro

' Macro recorded 7/27/01 by Kilcullen

Selection.Find.ClearFormatting

With Selection.Find

.Text = "<s"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.TypeText Text:="[section"

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="]<a name=""s"

Selection.Paste

Selection.TypeText Text:="></a>"

Loop

Selection.HomeKey Unit:=wdStory

End Sub

Sub zTopAndBottom2HTML()

' TopAndBottom2HTML Macro

' Macro recorded 3/5/01 by Kilcullen

Dim strStyle As String

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="<html>"

Selection.TypeParagraph

Selection.TypeText Text:="<head>"

Selection.TypeParagraph

Selection.TypeText Text:="<title>"

Selection.TypeParagraph

Selection.TypeText Text:="1dXX Collation</title>"

Selection.TypeParagraph

Selection.TypeText Text:="</head>"

' strStyle = InputBox("What is the name of the stylesheet to be used? (Do not inclued extension .css)", "Stylesheet?")

' Selection.TypeText Text:= _

' "<LINK REL=""stylesheet"" HREF="

' Selection.TypeText Text:=""""

' Selection.TypeText Text:=strStyle

' Selection.TypeText Text:=".css"" TYPE=""text/css""></head"

' Selection.TypeText Text:=">"

Selection.TypeParagraph

Selection.TypeText Text:= _

"<body bgcolor=""white"" text=""black"" link=""red"" vlink=""#7f0000" > ""

Selection.TypeParagraph

Selection.TypeText Text:= _

"<center><h1>Collation of 1 Dialogus X.X</h1>"

Selection.TypeParagraph

Selection.TypeText Text:= _

"<hr></center>"

Selection.EndKey Unit:=wdStory

Selection.TypeParagraph

Selection.TypeText Text:="<p>Return to <a href=""wtc.html"">Table of Contents</a>"

Selection.TypeParagraph

Selection.TypeText Text:="<p>"

Selection.TypeText Text:="</body></html>"

End Sub

Sub DeleteBeforeCet()

' DeleteBeforeCet Macro

' Macro recorded 7/30/01 by Kilcullen

Call DeleteDoubleUnderlined

'Call DeleteLemmataWithinVariants

'Call DeleteSectionNumbers

End Sub

Sub zRestoreCapitalisationRefs()

' zRestoreCapitalisationRefs Macro

' Macro recorded 8/9/01 by Kilcullen

Selection.HomeKey Unit:=wdStory

' Change colour of references

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorOrange

With Selection.Find

.Text = "\+\) \{*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

'Change capitalisation of next coloured string ending :

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorOrange

With Selection.Find

.Text = "\+\) \{*:"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'Selection.Range.Case = wdLowerCase

Selection.Range.Case = wdToggleCase

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

' Autocolour all

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorOrange

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorAutomatic

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDoubleXX()

' zDoubleXX Macro

' To replace FrXX (eg) with FrXX XX

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "XX"

.Replacement.Text = "XX XX"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRemoveXX()

' zRemoveXX Macro

' Macro recorded 8/9/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "XX"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zReduceCet()

' zReduceCet Macro

' To remove cet coding except when it relates to selected sigla

Application.ScreenUpdating = False

'Delete double underlined

Selection.HomeKey Unit:=wdStory

Call DeleteBeforeCet

'Preservations

Selection.HomeKey Unit:=wdStory

Call zSummaries2Variants 'preserves dashes also

Selection.HomeKey Unit:=wdStory

Call zPreserveQuotationMarks

Selection.HomeKey Unit:=wdStory

Call zPreserveReferences

Selection.HomeKey Unit:=wdStory

Call zPreserveComments

Selection.HomeKey Unit:=wdStory

Call zPreserveNamAn

Selection.HomeKey Unit:=wdStory

Call zPreservePositiveApparatus

Selection.HomeKey Unit:=wdStory

Call zNormalFormat

Selection.HomeKey Unit:=wdStory

Call zMarkParas

Selection.HomeKey Unit:=wdStory

Call zDoubleXX

Selection.HomeKey Unit:=wdStory

Call zSpaceBeforeVariant

Selection.HomeKey Unit:=wdStory

'deal with lembeg

Call zFindNextLembeg

If blnNextLem = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

If blnNextLem = True Then

Call zProcessSelectedVariant

End If

Loop

'deal with overlapping lemmata

Call zFindNextOLVariant

If blnNextOLVariant = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

If blnNextOLVariant = True Then

Call zProcessSelectedVariant

End If

Loop

'deal with simple and nested variants

Call zFindNextVariant

If blnNextVariant = False Then Exit Do

If blnNextVariant = True Then

Call zProcessSelectedVariant

End If

Loop

'clean up and save

Selection.HomeKey Unit:=wdStory

Call zPreserveSelectedSigla

Selection.HomeKey Unit:=wdStory

Call zDeleteSigla

Selection.HomeKey Unit:=wdStory

Call zRestoreSelectedSigla

Selection.HomeKey Unit:=wdStory

Call zRestoreSummaries

Selection.HomeKey Unit:=wdStory

Call zDeleteApos

Selection.HomeKey Unit:=wdStory

Call zRestoreComSumRef

Selection.HomeKey Unit:=wdStory

Call zRestoreNamAn

Selection.HomeKey Unit:=wdStory

Call zRestoreParas

Selection.HomeKey Unit:=wdStory

Call zRestoreQuotCode

Selection.HomeKey Unit:=wdStory

'Call zRemoveXX

Selection.HomeKey Unit:=wdStory

Call zRemoveYY

Selection.HomeKey Unit:=wdStory

Call zDeleteExtraSpaces

Selection.HomeKey Unit:=wdStory

Call zDeleteExtraPunctSelect

Selection.HomeKey Unit:=wdStory

Call zRestorePositiveApparatus

Selection.HomeKey Unit:=wdStory

Call zRestoreCapitalisationRefs

Selection.HomeKey Unit:=wdStory

Call zSlash2Comma

Call zNormalFormat

Selection.HomeKey Unit:=wdStory

Selection.TypeParagraph

Selection.TypeText Text:="<S1B>Regularly reported:"

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum1

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum2

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum3

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum4

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum5

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum6

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum7

Selection.TypeText Text:="<S1E>"

Selection.TypeParagraph

Call zDeleteExtraSpaces

'ActiveDocument.Save

End Sub

Sub a2ReduceCetList()

' a2ReduceCetList Macro

Application.ScreenUpdating = False

Documents.Open FileName:="1dProlSel.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d1Red.doc", FileFormat:=wdFormatDocument

strSiglum1 = "Vc"

strSiglum2 = "Ly"

strSiglum3 = "Bb"

strSiglum4 = "Fi"

strSiglum5 = "We"

strSiglum6 = "Pa"

strSiglum7 = "Ca"

'strSiglum4 = "CaLaVd"

'strSiglum5 = "CaLa"

'strSiglum6 = "CaVd"

'strSiglum7 = "LaVd"

'strSiglum8 = "VaVg"

'strSiglum9 = "BaEsTo"

'strSiglum10 = "BaTo"

'strSiglum11 = "BaEs"

'strSiglum12 = "EsTo"

'strSiglum13 = "OxWe"

'strSiglum14 = "We"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

Call zSpaceSigla

Call zReduceCet2

ActiveDocument.Save

ActiveDocument.Close

'Documents.Open FileName:="1dProlSel.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d2Red.doc", FileFormat:=wdFormatDocument

'strSiglum1 = "Bb"

'strSiglum2 = "Ly"

'strSiglum3 = "Vc"

'strSiglum4 = "Vg"

'strSiglum5 = "??"

'strSiglum6 = "??"

'strSiglum7 = "??"

'strSiglum8 = "??"

'strSiglum9 = "??"

'strSiglum10 = "??"

'strSiglum11 = "??"

'strSiglum12 = "??"

'strSiglum13 = "??"

'strSiglum14 = "??"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

'Call zReduceCet2

'ActiveDocument.Save

'ActiveDocument.Close

'Documents.Open FileName:="1d3aRed.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d3aRed.doc", FileFormat:=wdFormatDocument

'strSiglum1 = "Fi"

'strSiglum2 = "Ly"

'strSiglum3 = "Vc"

'strSiglum4 = "Vg"

'strSiglum5 = "??"

'strSiglum6 = "??"

'strSiglum7 = "??"

'strSiglum8 = "??"

'strSiglum9 = "??"

'strSiglum10 = "??"

'strSiglum11 = "??"

'strSiglum12 = "??"

'strSiglum13 = "??"

'strSiglum14 = "??"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

'Call zReduceCet2

'ActiveDocument.Save

'ActiveDocument.Close

'Documents.Open FileName:="1d3bRed.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d3bRed.doc", FileFormat:=wdFormatDocument

'strSiglum1 = "Fi"

'strSiglum2 = "Ly"

'strSiglum3 = "Vc"

'strSiglum4 = "Vg"

'strSiglum5 = "??"

'strSiglum6 = "??"

'strSiglum7 = "??"

'strSiglum8 = "??"

'strSiglum9 = "??"

'strSiglum10 = "??"

'strSiglum11 = "??"

'strSiglum12 = "??"

'strSiglum13 = "??"

'strSiglum14 = "??"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

'Call zReduceCet2

'ActiveDocument.Save

'ActiveDocument.Close

'Documents.Open FileName:="1d4aRed.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d4aRed.doc", FileFormat:=wdFormatDocument

'strSiglum1 = "Fi"

'strSiglum2 = "Ly"

'strSiglum3 = "Vc"

'strSiglum4 = "Pa"

'strSiglum5 = "??"

'strSiglum6 = "??"

'strSiglum7 = "??"

'strSiglum8 = "??"

'strSiglum9 = "??"

'strSiglum10 = "??"

'strSiglum11 = "??"

'strSiglum12 = "??"

'strSiglum13 = "??"

'strSiglum14 = "??"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

'Call zReduceCet2

'ActiveDocument.Save

'ActiveDocument.Close

'Documents.Open FileName:="1d4bRed.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="1d4bRed.doc", FileFormat:=wdFormatDocument

'strSiglum1 = "Fi"

'strSiglum2 = "Ly"

'strSiglum3 = "Vc"

'strSiglum4 = "Vg"

'strSiglum5 = "??"

'strSiglum6 = "??"

'strSiglum7 = "??"

'strSiglum8 = "??"

'strSiglum9 = "??"

'strSiglum10 = "??"

'strSiglum11 = "??"

'strSiglum12 = "??"

'strSiglum13 = "??"

'strSiglum14 = "??"

'strSiglum15 = "??"

'strSiglum16 = "??"

'strSiglum17 = "??"

'strSiglum18 = "??"

'Call zReduceCet2

'ActiveDocument.Save

'ActiveDocument.Close

End Sub

Sub zSlash2Comma()

' zSlash2Comma Macro

' Macro recorded 8/22/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<S/>"

.Replacement.Text = "<S\>"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "/"

.Replacement.Text = ","

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<S\>"

.Replacement.Text = "<S/>"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zReduceCet2()

' zReduceCet2 Macro

' To remove cet coding except when it relates to selected sigla

Application.ScreenUpdating = False

'Delete double underlined

Selection.HomeKey Unit:=wdStory

Call DeleteBeforeCet

'Preservations

Selection.HomeKey Unit:=wdStory

Call zSummaries2Variants 'preserves dashes also

Selection.HomeKey Unit:=wdStory

Call zPreserveQuotationMarks

Selection.HomeKey Unit:=wdStory

Call zPreserveReferences

Selection.HomeKey Unit:=wdStory

Call zPreserveComments

Selection.HomeKey Unit:=wdStory

Call zPreserveNamAn

Selection.HomeKey Unit:=wdStory

Call zPreservePositiveApparatus

Selection.HomeKey Unit:=wdStory

Call zNormalFormat

Selection.HomeKey Unit:=wdStory

Call zMarkParas

Selection.HomeKey Unit:=wdStory

Call zDoubleXX

Selection.HomeKey Unit:=wdStory

Call zSpaceBeforeVariant

Selection.HomeKey Unit:=wdStory

'deal with lembeg

Call zFindNextLembeg

If blnNextLem = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

If blnNextLem = True Then

Call zProcessSelectedVariant2

End If

Loop

'deal with overlapping lemmata

Call zFindNextOLVariant

If blnNextOLVariant = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

If blnNextOLVariant = True Then

Call zProcessSelectedVariant2

End If

Loop

'deal with simple and nested variants

Call zFindNextVariant

If blnNextVariant = False Then Exit Do

If blnNextVariant = True Then

Call zProcessSelectedVariant2

End If

Loop

'clean up and save

Selection.HomeKey Unit:=wdStory

Call zPreserveSelectedSigla2

Selection.HomeKey Unit:=wdStory

Call zDeleteSigla

Selection.HomeKey Unit:=wdStory

Call zRestoreSelectedSigla

Selection.HomeKey Unit:=wdStory

Call zRestoreSummaries

Selection.HomeKey Unit:=wdStory

Call zDeleteApos

Selection.HomeKey Unit:=wdStory

Call zRestoreComSumRef

Selection.HomeKey Unit:=wdStory

Call zRestoreNamAn

Selection.HomeKey Unit:=wdStory

Call zRestoreParas

Selection.HomeKey Unit:=wdStory

Call zRestoreQuotCode

Selection.HomeKey Unit:=wdStory

'Call zRemoveXX

Selection.HomeKey Unit:=wdStory

Call zRemoveYY

Selection.HomeKey Unit:=wdStory

Call zDeleteExtraSpaces

Selection.HomeKey Unit:=wdStory

Call zDeleteExtraPunctSelect

Selection.HomeKey Unit:=wdStory

Call zRestorePositiveApparatus

Selection.HomeKey Unit:=wdStory

Call zRestoreCapitalisationRefs

Selection.HomeKey Unit:=wdStory

Call zSlash2Comma

Call zNormalFormat

Selection.HomeKey Unit:=wdStory

Selection.TypeParagraph

Selection.TypeText Text:="<S1B>Regularly reported:"

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum1

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum2

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum3

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum4

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum5

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum6

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum7

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum8

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum9

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum10

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum11

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum12

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum13

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum14

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum15

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum16

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum17

Selection.TypeText Text:=" "

Selection.TypeText Text:=strSiglum18

Selection.TypeText Text:="<S1E>"

Selection.TypeParagraph

Call zDeleteExtraSpaces

'ActiveDocument.Save

End Sub

Sub zProcessSelectedVariant2()

' ProcessSelectedVariant2 Macro

' Macro created 3/27/01 by Kilcullen

'test for siglum

strSiglum = strSiglum1

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum2

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum3

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum4

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum5

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum6

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum7

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum8

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum9

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum10

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum11

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum12

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum13

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum14

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum15

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum16

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum17

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = strSiglum18

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

Call zTest4SiglumM

If blnSiglumm = True Then GoTo ExamineSegments

Call zTest4SiglumB

If blnSiglumb = True Then GoTo ExamineSegments

strSiglum = "Wz"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "Edd"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "Ms"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "XX"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

strSiglum = "YY"

Call zTest4Siglum

If blnSiglum = True Then GoTo ExamineSegments

'otherwise delete variant

Call zDeleteBlue

Call zDeleteRed

GoTo LastL

'2. IF VARIANT CONTAINS SIGLUM, INSERT BOOKMARK AFTER VARIANT,

'AND DIVIDE IT INTO SEGMENTS ENDING "~"

ExamineSegments:

'Insert bookmark x

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

With ActiveDocument.Bookmarks

.Add Range:=Selection.Range, Name:="x"

.DefaultSorting = wdSortByName

.ShowHidden = False

End With

Call zBlue2Brown

Call zSegmentsSelect

'3. INSERT CR AT END OF NEXT SEGMENT, COLOUR REMAINING SEGMENTS GREEN

NextSegment:

'Next segment from green to red

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zFindNextSegment 'finds next ~, inserts CR, colours remaining red green

'4. TEST NEXT SEGMENT FOR SIGLUM; IF NOT CONTAINED, DELETE SEGMENT

'test for siglum

strSiglum = strSiglum1

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum2

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum3

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum4

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum5

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum6

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum7

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum8

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum9

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum10

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum11

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum12

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum13

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum14

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum15

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum16

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum17

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = strSiglum18

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

Call zTest4SiglumM

If blnSiglumm = True Then GoTo PreserveSegment

Call zTest4SiglumB

If blnSiglumb = True Then GoTo PreserveSegment

strSiglum = "Wz"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "Edd"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "Ms"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

strSiglum = "XX"

Call zTest4Siglum

If blnSiglum = True Then GoTo PreserveSegment

'otherwise delete segment

Call zDeleteRed

Call zGreen2Red

If blnNextSegment = False Then GoTo ExitVariant

If blnNextSegment = True Then GoTo NextSegment

'Preserve Segment

PreserveSegment:

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zRed2Brown

Call zGreen2Red

If blnNextSegment = False Then GoTo ExitVariant

'7. LOOP UNTIL END OF VARIANT

GoTo NextSegment

ExitVariant:

Selection.GoTo What:=wdGoToBookmark, Name:="x"

LastL:

End Sub

Sub zPreserveSelectedSigla2()

' PreserveSelectedSigla2 Macro

' Macro created 4/10/01 by Kilcullen

'To preserve selected sigla from DeleteSigla

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1

.Replacement.Text = strSiglum1 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2

.Replacement.Text = strSiglum2 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3

.Replacement.Text = strSiglum3 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4

.Replacement.Text = strSiglum4 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5

.Replacement.Text = strSiglum5 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6

.Replacement.Text = strSiglum6 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+m

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1 & "m"

.Replacement.Text = strSiglum1 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2 & "m"

.Replacement.Text = strSiglum2 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3 & "m"

.Replacement.Text = strSiglum3 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4 & "m"

.Replacement.Text = strSiglum4 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5 & "m"

.Replacement.Text = strSiglum5 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6 & "m"

.Replacement.Text = strSiglum6 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+b

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum1 & "b"

.Replacement.Text = strSiglum1 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum2 & "b"

.Replacement.Text = strSiglum2 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum3 & "b"

.Replacement.Text = strSiglum3 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum4 & "b"

.Replacement.Text = strSiglum4 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum5 & "b"

.Replacement.Text = strSiglum5 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum6 & "b"

.Replacement.Text = strSiglum6 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

''''''''''''''&&

'To preserve selected sigla from DeleteSigla

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum7

.Replacement.Text = strSiglum7 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum8

.Replacement.Text = strSiglum8 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum9

.Replacement.Text = strSiglum9 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum10

.Replacement.Text = strSiglum10 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum11

.Replacement.Text = strSiglum11 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum12

.Replacement.Text = strSiglum12 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+m

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum7 & "m"

.Replacement.Text = strSiglum7 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum8 & "m"

.Replacement.Text = strSiglum8 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum9 & "m"

.Replacement.Text = strSiglum9 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum10 & "m"

.Replacement.Text = strSiglum10 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum11 & "m"

.Replacement.Text = strSiglum11 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum12 & "m"

.Replacement.Text = strSiglum12 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+b

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum7 & "b"

.Replacement.Text = strSiglum7 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum8 & "b"

.Replacement.Text = strSiglum2 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum9 & "b"

.Replacement.Text = strSiglum9 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum10 & "b"

.Replacement.Text = strSiglum10 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum11 & "b"

.Replacement.Text = strSiglum11 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum12 & "b"

.Replacement.Text = strSiglum12 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'''''''''&&

'To preserve selected sigla from DeleteSigla

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum13

.Replacement.Text = strSiglum13 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum14

.Replacement.Text = strSiglum14 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum15

.Replacement.Text = strSiglum15 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum16

.Replacement.Text = strSiglum16 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum17

.Replacement.Text = strSiglum17 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum18

.Replacement.Text = strSiglum18 & "PRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+m

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum13 & "m"

.Replacement.Text = strSiglum13 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum14 & "m"

.Replacement.Text = strSiglum14 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum15 & "m"

.Replacement.Text = strSiglum15 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum16 & "m"

.Replacement.Text = strSiglum16 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum17 & "m"

.Replacement.Text = strSiglum17 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum18 & "m"

.Replacement.Text = strSiglum18 & "mPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'preserve siglum+b

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum13 & "b"

.Replacement.Text = strSiglum13 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum14 & "b"

.Replacement.Text = strSiglum14 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum15 & "b"

.Replacement.Text = strSiglum15 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum16 & "b"

.Replacement.Text = strSiglum16 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum17 & "b"

.Replacement.Text = strSiglum17 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = strSiglum18 & "b"

.Replacement.Text = strSiglum18 & "bPRESERVE"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestoreSelectedSigla2()

' RestoreSelectedSigla2 Macro

' Macro created 4/10/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "PRESERVE"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDoubleYY()

' zDoubleYY Macro

' To replace FrYY (eg) with FrYY YY

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "YY"

.Replacement.Text = "YY YY"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRemoveYY()

' zRemoveYY Macro

' Macro recorded 8/9/01 by Kilcullen

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "YY"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub footn()

' footn Macro

' Macro recorded 31/08/01 by John

'insert nobreak space between notes

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "}*"

.Replacement.Text = "}^s*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Count = 1

'Find next variant

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*) {"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'delete *) {

Selection.TypeBackspace

'copy text of variant

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

'delete variant

Selection.Delete Unit:=wdCharacter, Count:=1

'insert footnote

ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:="a" & Str$(Count)

Selection.Paste

ActiveWindow.ActivePane.Close

'insert footnote reference at beginning of lemma

Selection.Find.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = ""

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="a" & Str$(Count)

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Style = ActiveDocument.Styles("Footnote Reference")

Selection.MoveRight Unit:=wdCharacter, Count:=1

Count = Count + 1

Loop

'delete spaces within footnote references

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub refs()

' refs Macro

' Macro recorded 31/08/01 by John

'insert nobreak space between notes

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "}*"

' .Replacement.Text = "}^s*"

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

Count = 1

'Find next variant

Selection.Find.ClearFormatting

With Selection.Find

.Text = "+) {"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'delete +) {

Selection.TypeBackspace

'copy text of variant

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

'delete variant

Selection.Delete Unit:=wdCharacter, Count:=1

'insert footnote

ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:="z" & Str$(Count)

Selection.Paste

ActiveWindow.ActivePane.Close

'insert footnote reference at beginning of lemma

Selection.Find.ClearFormatting

With Selection.Find

.Text = "(+"

.Replacement.Text = ""

.Forward = False

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="z" & Str$(Count)

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Style = ActiveDocument.Styles("Footnote Reference")

Selection.MoveRight Unit:=wdCharacter, Count:=1

Count = Count + 1

Loop

'delete spaces within footnote references

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteBlockNumbers()

' zDeleteBlockNumbers Macro

' Macro recorded 1/09/01 by John

Call DenumberBlocks

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<s@>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteCrossReferences()

' zDeleteCrossReferences Macro

' Macro recorded 1/09/01 by John

'protect @lembeg

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@lembeg"

.Replacement.Text = "$lembeg"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Delete @Crossreferences

Selection.Find.ClearFormatting

With Selection.Find

.Text = "@"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.TypeBackspace

Loop

Selection.HomeKey Unit:=wdStory

'reinstate @lembeg

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$lembeg"

.Replacement.Text = "@lembeg"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zPrepareCet2Wd()

' zPrepareCet2Wd Macro

' To prepare to turn a CET file into a Word file with footnotes

'Call DeleteLemmataWithinVariants

'remove XX

Call zRemoveXX

Call zRemoveYY

'delete insignificant variants

Call zDeleteDoubleUnderlining

'change <S/> to para

Call zcetCodedPara2Para

'delete superfluous cet coding

Call zDeleteSuperfluous

Call zcet2WdBoldItal

'delete comments

Call zDeleteComments

Call zDeleteUBComment

'delete block numbers

Call zDeleteBlockNumbers

Selection.HomeKey Unit:=wdStory

'Call zcet2WdBoldItal

Call zSlash2Comma

Call zTimes

End Sub

Sub zTimes()

' zTimes Macro

' Macro recorded 1/09/01 by John

Selection.WholeStory

With Selection.Font

.Name = "Times New Roman"

.Size = 12

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

Sub zLembeg2BeFixed()

' zLembeg2BeFixed Macro

' Macro recorded 1/09/01 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find

.Text = "lembeg"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then GoTo Lastline

Selection.HomeKey Unit:=wdStory

'find next lembeg

Selection.Find.ClearFormatting

With Selection.Find

.Text = "lembeg"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

'Delete (??) {-

Selection.Find.ClearFormatting

With Selection.Find

.Text = "$??$ \{-"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = True

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeBackspace

Selection.TypeText Text:=" ["

'delete -} {

Selection.Find.ClearFormatting

With Selection.Find

.Text = "-} {"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

'enclose variant in []

'Selection.TypeText Text:=" ["

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="]"

Loop

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="FIX LEMBEG MANUALLY"

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Font.Bold = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Lastline:

End Sub

Sub zCopyVariant()

' zCopyVariant Macro

' Macro recorded 1/09/01 by John

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Name = "Times New Roman"

.Size = 10

.Color = wdColorAutomatic

End With

Selection.Copy

'Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="~"

End Sub

Sub cet2Wd()

' cet2Wd Macro

' Macro created 1/09/01 by John

' Makes cet file into word file ready to be imported into CTE

Application.ScreenUpdating = False

Call zMedievalSpelling

Call zRemoveHyphens

Call zQuarantineBrackets

Call zSpaceBeforeVariant

Call zPrepareCet2Wd

Call zLembeg2BeFixed

Call zXrefs2BFixed

Count = 1

'Deal with OL Variants

Call zFindNextOLVariant

If blnNextOLVariant = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

Call zCopyVariant

Call zIdentifyAndInsertFootnotes

Loop

'Find next variant

Call zFindNextVariant

If blnNextVariant = False Then

Selection.HomeKey Unit:=wdStory

Exit Do

End If

Call zCopyVariant

Call zIdentifyAndInsertFootnotes

Loop

'delete ordinary spaces in text

Call zElimSpaces

Call zDelTilde

'insert nobreak spaces between fn references

Call zInsertNoBreakSpaceBetweenFnRefs

Call zFnRefNotBoldItalic

Call zJustify

Call zRestBrack

Call zRemoveNL

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "---"

.Replacement.Text = "^+"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

ActiveDocument.Save

End Sub

Sub zElimSpaces()

' zElimSpaces Macro

' Macro recorded 2/09/01 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zInsertNoBreakSpaceBetweenFnRefs()

' zInsertNoBreakSpaceBetweenFnRefs Macro

' Macro recorded 2/09/01 by John

Selection.HomeKey Unit:=wdStory

'Find variant fn reference immediately preceded by a footnote reference

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

With Selection.Find

.Text = "?a"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'move to just before the second of the adjacent references

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1 'needed when the first is also an "a"

'insert "|" as placeholder for nobreak space

Selection.TypeText Text:="|"

'move on

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

'Find summary fn reference immediately preceded by a footnote reference

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

With Selection.Find

.Text = "?b"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'move to just before the second of the adjacent references

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1

'insert "|" as placeholder for nobreak space

Selection.TypeText Text:="|"

'move on

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

'Find reference fn reference immediately preceded by a footnote reference

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

With Selection.Find

.Text = "?z"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

'move to just before the second of the adjacent references

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1

'insert "|" as placeholder for nobreak space

Selection.TypeText Text:="|"

'move on

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

'Replace "|" with no break space

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "|"

.Replacement.Text = "^s"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zElim4Spaces()

' zElim4Spaces Macro

' Macro recorded 2/09/01 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = "~"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

' Selection.Delete Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="$"

End Sub

Sub zIdentifyAndInsertFootnotes()

' zIdentifyAndInsertFootnotes Macro

' Macro recorded 1/09/01 by John

Call zElim4Spaces

'test footnote type

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorBlue

With Selection.Find

.Text = "(*"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnVariant = True

blnSummary = False

blnReference = False

GoTo Insert

Else

GoTo Test2

End If

Test2:

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorBlue

With Selection.Find

.Text = "(-"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

blnVariant = False

blnSummary = True

blnReference = False

Else

blnVariant = False

blnSummary = False

blnReference = True

End If

'INSERT FOOTNOTE

Insert:

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Find first blue

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorBlue

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.TypeText Text:="~"

'If footnote is variant

If blnVariant = True Then

Selection.TypeText Text:="%"

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="a" & Str$(Count)

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.TypeBackspace

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

Selection.Style = ActiveDocument.Styles("Footnote Reference")

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

End If

'If footnote is chapter summary

If blnSummary = True Then

Selection.TypeText Text:="%"

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="b" & Str$(Count)

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.TypeBackspace

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

Selection.Style = ActiveDocument.Styles("Footnote Reference")

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

End If

'If footnote is reference

If blnReference = True Then

Selection.TypeText Text:="%"

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="z" & Str$(Count)

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.TypeBackspace

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strSel = Selection.Text

Selection.Style = ActiveDocument.Styles("Footnote Reference")

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

End If

'Find second blue

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorBlue

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.TypeText Text:="~"

ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:=strSel

Selection.Paste

ActiveWindow.ActivePane.Close

Count = Count + 1

End Sub

Sub zFnRefNotBoldItalic()

' zFnRefNotBoldItalic Macro

' Macro recorded 3/09/01 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

Selection.Find.Font.Bold = True

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Style = ActiveDocument.Styles( _

"Footnote Reference")

Selection.Find.Replacement.Font.Bold = False

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Footnote Reference")

Selection.Find.Font.Italic = True

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Style = ActiveDocument.Styles( _

"Footnote Reference")

Selection.Find.Replacement.Font.Italic = False

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDelTilde()

' zDelTilde Macro

' Macro recorded 3/09/01 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ~"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "~"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete $

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zXrefs2BFixed()

' zXrefs2BFixed Macro

' Macro recorded 4/09/01 by John

' Selection.HomeKey Unit:=wdStory

' Selection.Find.ClearFormatting

' With Selection.Find

' .Text = "@"

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

'If Selection.Find.Found = False Then GoTo Lastline

' Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@("

.Replacement.Text = "XREF("

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@["

.Replacement.Text = "XREF["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@"

.Replacement.Text = "XREFTARGET"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="FIX XREF MANUALLY"

Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend

Selection.Font.Bold = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Lastline:

End Sub

Sub zJustify()

' zJustify Macro

' Macro recorded 5/09/01 by John

Selection.WholeStory

With Selection.ParagraphFormat

.SpaceBeforeAuto = False

.SpaceAfterAuto = False

.Alignment = wdAlignParagraphJustify

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

End With

Selection.MoveUp Unit:=wdLine, Count:=1

End Sub

Sub Collate1()

' Collate1 Macro

' Macro recorded 25/08/02 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#N+ #L+"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#L- #N-"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<EL>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<NP>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<IB\>\<BDB\>LIBER *\<IE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<IE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDB>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<BDE>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<HRB*HRE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<NPG>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<UB*UE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C170}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C186}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C096}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{C039}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<s *\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory

With Selection.Font

.Name = "Times New Roman"

.Size = 12

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.Color = wdColorAutomatic

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p^p^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "^p^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'protect lembeg

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@lembeg"

.Replacement.Text = "$lembeg"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Remove crossreferences

Selection.Find.ClearFormatting

With Selection.Find

.Text = "@"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

'Remove reference series footnotes

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+\) \{*\}"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(+"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Transform rubric series footnotes into variant footnotes

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = "(*"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-)"

.Replacement.Text = "*)"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub Collate2()

' Collate2 Macro

' Macro recorded 25/08/02 by John

Selection.Find.ClearFormatting

With Selection.Find

.Text = "}"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

With Selection.Find

.Text = "\(*\}"

.Forward = False

.Format = False

.MatchCase = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "*)"

.Replacement.Text = "*)"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.TypeBackspace

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = "*)"

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=3

Selection.TypeText Text:="] "

Selection.MoveLeft Unit:=wdCharacter, Count:=2

Selection.Paste

End Sub

Sub zDelComment()

' zDelComment Macro

' Macro recorded 26/08/02 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<UB\>\<BDB\>*\<BDE\>\<UE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zCollationCleanUp()

' zCollationCleanUp Macro

' Macro recorded 26/08/02 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<s *\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = "(*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "-)"

.Replacement.Text = "*)"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(**)"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "@lembeg"

.Replacement.Text = "$lembeg"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = "(<@>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{-#"

.Replacement.Text = "(<@>#"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-} {"

.Replacement.Text = "] "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " ]"

.Replacement.Text = "]"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Application.Run MacroName:="AutomaticNumbering"

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*)"

.Replacement.Text = ")"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "< "

.Replacement.Text = "<"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRemoveAdded()

' zRemoveAdded Macro

' Macro recorded 30/08/02 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "added ["

.Replacement.Text = "["

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zAddedDeleted()

' zAddedDeleted Macro

' Macro recorded 30/08/02 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'test for "written and deleted"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "written and deleted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=">"

'return to bookmark

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'Find apostrophe

Selection.Find.ClearFormatting

With Selection.Find

.Text = "`"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = False

End With

Selection.Find.Execute

Selection.TypeParagraph

'Find segment being worked on

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "written and deleted"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

Selection.MoveUp Unit:=wdParagraph, Count:=1

Selection.TypeText Text:="<"

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'delete blue

Call zDeleteBlue

Call zRed2Auto

End If

End Sub

Sub zAdded()

' zAdded Macro

' Macro recorded 2/10/01 by Kilcullen

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'test for "added"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added<IE>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

'return to bookmark

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'find and delete red "added"

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>added<IE>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Restore variant to auto colour

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Call zRed2Auto

'delete blue

Call zDeleteBlue

End If

End Sub

Sub zDeleted()

' zDeleted Macro

' Macro recorded 30/08/02 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

'test for "deleted"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "<IB>deleted<IE>"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchWildcards = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=">"

'return to bookmark

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<"

'Selection.MoveRight Unit:=wdCharacter, Count:=2

'delete blue

Call zDeleteBlue

Call zRed2Auto

End If

End Sub

Sub zDelPunctLC()

' zDelPunctLC Macro

' Macro recorded 3/09/02 by John

Selection.HomeKey Unit:=wdStory

Selection.WholeStory

Selection.Range.Case = wdLowerCase

Selection.MoveUp Unit:=wdLine, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "."

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ","

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ";"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' With Selection.Find

' .Text = "?"

' .Replacement.Text = ""

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = """"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "'"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "-"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "("

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ")"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zMinus2Star()

' zMinus2Star Macro

' Macro recorded 4/09/02 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = "(*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-)"

.Replacement.Text = "*)"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zMarkSigla()

' zMarkSigla Macro

' Macro recorded 14/09/02 by John

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = " [A-Z]? *~"

.Replacement.Text = "~}"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="|"

Application.GoBack

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="`"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "~|"

.Replacement.Text = "~}"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

'Selection.HomeKey Unit:=wdStory

'Do

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' With Selection.Find

' .Text = " [A-Z]?? *~"

' .Replacement.Text = "~}"

' .Forward = True

' .Format = True

' .MatchCase = False

' .MatchWholeWord = False

' .MatchAllWordForms = False

' .MatchSoundsLike = False

' .MatchWildcards = True

' End With

' Selection.Find.Execute

'If Selection.Find.Found = False Then Exit Do

' Selection.MoveRight Unit:=wdCharacter, Count:=1

' Selection.TypeText Text:="|"

' Application.GoBack

' Selection.MoveLeft Unit:=wdCharacter, Count:=1

' Selection.TypeText Text:="`"

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' With Selection.Find

' .Text = "~|"

' .Replacement.Text = "~}"

' .Forward = True

' .Format = True

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute

' Selection.MoveRight Unit:=wdCharacter, Count:=1

'Loop

End Sub

Sub zDelExtraSpaces()

' zDelExtraSpaces Macro

' Macro recorded 11/09/02 by John

Selection.HomeKey Unit:=wdStory

'replace four spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace three spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'replace two spaces with one

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zSpaceSigla()

' zSpaceSigla Macro

' Macro recorded 22/09/02 by John

Selection.HomeKey Unit:=wdStory

Call AllVariantsRed

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "An"

.Replacement.Text = " An"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "Ar"

.Replacement.Text = " Ar"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Au"

.Replacement.Text = " Au"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Av"

.Replacement.Text = " Av"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ba"

.Replacement.Text = " Ba"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Bb"

.Replacement.Text = " Bb"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Br"

.Replacement.Text = " Br"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ca"

.Replacement.Text = " Ca"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ce"

.Replacement.Text = " Ce"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Di"

.Replacement.Text = " Di"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Es"

.Replacement.Text = " Es"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Fi"

.Replacement.Text = " Fi"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Fr"

.Replacement.Text = " Fr"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Gs"

.Replacement.Text = " Gs"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ko"

.Replacement.Text = " Ko"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "La"

.Replacement.Text = " La"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Lb"

.Replacement.Text = " Lb"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Lc"

.Replacement.Text = " Lc"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ly"

.Replacement.Text = " Ly"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Lm"

.Replacement.Text = " Lm"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Na"

.Replacement.Text = " Na"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Md"

.Replacement.Text = " Es"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Mz"

.Replacement.Text = " Mz"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Mw"

.Replacement.Text = " Mw"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ox"

.Replacement.Text = " Ox"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pa"

.Replacement.Text = " Pa"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pb"

.Replacement.Text = " Pb"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pc"

.Replacement.Text = " Pc"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pd"

.Replacement.Text = " An"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pe"

.Replacement.Text = " Pe"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Pz"

.Replacement.Text = " Pz"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ra"

.Replacement.Text = " Va"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Rb"

.Replacement.Text = " Vb"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Rc"

.Replacement.Text = " Vc"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Rd"

.Replacement.Text = " Vd"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Re"

.Replacement.Text = " Ve"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Rf"

.Replacement.Text = " Vf"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Rg"

.Replacement.Text = " Vg"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Sa"

.Replacement.Text = " Sa"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "To"

.Replacement.Text = " To"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Tx"

.Replacement.Text = " Tx"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Un"

.Replacement.Text = " Un"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Va"

.Replacement.Text = " Va"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vb"

.Replacement.Text = " Vb"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vc"

.Replacement.Text = " Vc"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vd"

.Replacement.Text = " Vd"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ve"

.Replacement.Text = " Ve"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vf"

.Replacement.Text = " Vf"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vg"

.Replacement.Text = " Vg"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "We"

.Replacement.Text = " We"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Zn"

.Replacement.Text = " Zn"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Vulg"

.Replacement.Text = " Vulg"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Gl"

.Replacement.Text = " Gl"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Kn"

.Replacement.Text = " Kn"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Ki"

.Replacement.Text = " Ki"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "Sc"

.Replacement.Text = " Sc"

.Forward = True

.Format = True

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DelCetSuperCoding()

' DelCetSuperCoding Macro

' Macro recorded 22/09/02 by John

'Delete superfluous cet coding

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#N+ #L+"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "<EL>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<IB\>\<BDB\>LIBER *\<IE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<HRB*HRE\>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<NPG>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'delete <NP>

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "<NP>"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#L- #N-"

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'remove extra empty paragraph

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p^p"

.Replacement.Text = "^p"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub cet2alternativeText()

' cet2AlternativeText Macro

' Macro recorded 19/04/03 by John

Selection.HomeKey Unit:=wdStory

Call zDeleteCrossReferences

Call zDeleteReferences

Call zDeleteCet3rdSeriesNotes

Call zPrepareCet2Wd

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = "<span style=""background:lime""><a name=""@"">"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*)"

.Replacement.Text = "</span>"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "</span> {"

.Replacement.Text = "</span> <span style=""background:aqua"">"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = "</span>"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'number variants

Selection.HomeKey Unit:=wdStory

Call AutomaticNumbering

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "name="" "

.Replacement.Text = "name="""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

' Call htmlCodeBoldandItal

End Sub

Sub htmlCodeBoldandItal()

' htmlCodeBoldandItal Macro

' To convert Bold and Italic format in Word document

'convert italic to html

Selection.HomeKey Unit:=wdStory

'Do

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Do While Selection.Find.Found

'If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<em>"

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="</em>"

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = False

.Format = True

End With

Selection.Find.Execute

Selection.Font.Italic = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

' Find again

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Loop

'convert bold to html

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<strong>"

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="</strong>"

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = False

.Format = True

End With

Selection.Find.Execute

Selection.Font.Bold = wdToggle

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

End Sub

Sub cetCodeBoldandItal()

' cetCodeBoldandItal Macro

' Macro created 12/19/99 by Kilcullen

'Code Bold

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<BDB>"

Selection.Find.ClearFormatting

Selection.Find.Font.Bold = True

With Selection.Find

.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<BDE>"

Loop

'Code Italic

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<IB>"

Selection.Find.ClearFormatting

Selection.Find.Font.Italic = True

With Selection.Find

.Text = ""

.Forward = True

.Format = True

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeText Text:="<IE>"

Loop

'Remove all formatting

Selection.HomeKey Unit:=wdStory

Selection.WholeStory

With Selection.Font

.Bold = False

.Italic = False

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p<IE><BDE>"

.Replacement.Text = "<BDE><IE>^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zDeleteCet3rdSeriesNotes()

' zDeleteCet3rdSeriesNotes Macro

'To delete (-

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(-"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'To delete -) {}

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-\) \{*\}"

.Replacement.Text = ""

.Forward = True

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub cet2LatTxt()

' cet2AlternativeText Macro

' Macro recorded 19/04/03 by John

Selection.HomeKey Unit:=wdStory

Call zDeleteCrossReferences

Call zDeleteReferences

Call zDeleteCet3rdSeriesNotes

Call zPrepareCet2Wd

Selection.HomeKey Unit:=wdStory

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "(*"

' .Replacement.Text = "(* <a name=""@"">"

' .Forward = True

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "*)"

' .Replacement.Text = "</span>"

' .Forward = True

' .Wrap = wdFindContinue

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*) {"

.Replacement.Text = "*) {<a name=""@"">"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "}"

' .Replacement.Text = "</span>"

' .Forward = True

' .Wrap = wdFindContinue

' .Format = False

' .MatchCase = False

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

'number variants

Selection.HomeKey Unit:=wdStory

Call AutomaticNumbering

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "name="" "

.Replacement.Text = "name="""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find

.Text = "name="""

.Replacement.Text = ""

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Copy

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.TypeText Text:="["

Selection.Paste

Selection.TypeText Text:="] "

Loop

Selection.HomeKey Unit:=wdStory

With Selection.Find

.Text = "\<A NAME*\</A\>"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = """>[ "

.Replacement.Text = """></a>["

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Call zcetHTMLColourVariants

End Sub

Sub zcetHTMLColourVariants()

' zcetHTMLColourVariants Macro

' Macro recorded 23/04/03 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = "<span style=""background:lime"">(*"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "*)"

.Replacement.Text = "*)</span>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{<a name="

.Replacement.Text = "<span style=""background:aqua"">{<a name="

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "}"

.Replacement.Text = "}</span>"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub AllVariantsRed()

' a7AllVariantsRed Macro

' Macro created 1/16/01 by Kilcullen

'Called by Delete2Colon

'variants red

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub AutoColour()

' AutoColour Macro

' Macro recorded 6/19/01 by Kilcullen

Selection.WholeStory

Selection.Font.Color = wdColorAutomatic

Selection.HomeKey Unit:=wdStory

End Sub

Sub zMedievalSpelling()

' zMedievalSpelling Macro

' Macro recorded 1/01/03 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Font.Hidden = False

With Selection.Find

.Text = "ae"

.Replacement.Text = "e"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .Text = "oe"

' .Replacement.Text = "e"

' .Forward = True

' .Format = False

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "damn"

.Replacement.Text = "dampn"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "quicq"

.Replacement.Text = "quidq"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Quicq"

.Replacement.Text = "Quidq"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Replacement.ClearFormatting

' With Selection.Find

' .text = "quatenus"

' .Replacement.text = "quatinus"

' .Forward = True

' .Format = False

' .MatchCase = True

' .MatchWholeWord = True

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "mihi"

.Replacement.Text = "michi"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "nihil"

.Replacement.Text = "nichil"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "his"

.Replacement.Text = "hiis"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "hi"

.Replacement.Text = "hii"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "immo"

.Replacement.Text = "ymmo"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "ymo"

.Replacement.Text = "ymmo"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "imo"

.Replacement.Text = "ymmo"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "toler"

.Replacement.Text = "toller"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Michel"

.Replacement.Text = "Michael"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "michel"

.Replacement.Text = "michael"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Isrel"

.Replacement.Text = "Israel"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "isrel"

.Replacement.Text = "israel"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Dialog"

.Replacement.Text = "Dyalog"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub cet2Text()

' cet2Text Macro

' Macro recorded 29/05/03 by John

Application.Run MacroName:="zDeleteCet3rdSeriesNotes"

Call zDeleteCetNote

Application.Run MacroName:="zDelComment"

Application.Run MacroName:="zDeleteCetFormats"

Application.Run MacroName:="zDeleteCrossReferences"

Application.Run MacroName:="zDeleteDoubleUnderlining"

Application.Run MacroName:="zDeleteOverlapCoding"

Application.Run MacroName:="zDeleteSuperfluous"

Application.Run MacroName:="AllVariantsRed"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "(*"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "*)"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "(+"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "+)"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "(-"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "-)"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#L-#N-"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p "

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p^p"

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory

With Selection.Font

.Name = "Times New Roman"

.Size = 10

End With

With Selection.ParagraphFormat

.SpaceBeforeAuto = False

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpace1pt5

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

End With

Selection.MoveUp Unit:=wdLine, Count:=1

Call zMedievalSpelling

Call zDeleteExtraSpaces

End Sub

Sub zQuarantineBrackets()

' zQuarantineBrackets Macro

' Macro recorded 20/03/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "("

.Replacement.Text = "ccccc"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ")"

.Replacement.Text = "ddddd"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "ccccc*"

.Replacement.Text = "(*"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "ccccc+"

.Replacement.Text = "(+"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "ccccc-"

.Replacement.Text = "(-"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*ddddd"

.Replacement.Text = "*)"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "+ddddd"

.Replacement.Text = "+)"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "-ddddd"

.Replacement.Text = "-)"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRestBrack()

' zRestBrack Macro

' Macro recorded 20/03/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "ccccc"

.Replacement.Text = "("

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "ddddd"

.Replacement.Text = ")"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRemoveNL()

' zRemoveNL Macro

' Macro recorded 20/03/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#N+#L+"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p^p"

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zRemoveHyphens()

' zRemoveHyphens Macro

' Macro recorded 20/03/04 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "|-"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrs321()

' wtrs321 Macro

' Macro recorded 12/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdCharacter, Count:=4

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.321}"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs231()

' wTrs231 Macro

' Macro recorded 12/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.MoveLeft Unit:=wdCharacter, Count:=7

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.231}"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs312()

' wTrs312 Macro

' Macro recorded 12/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.312}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs0()

' wTrs0 Macro

' Macro recorded 13/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.}"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.}"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

'Sub zOldSpaceSigla()

'Call AllVariantsRed

'Selection.HomeKey Unit:=wdStory

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pd"

' .Replacement.Text = "An"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "An"

' .Replacement.Text = " An"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ar"

' .Replacement.Text = " Ar"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Au"

' .Replacement.Text = " Au"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Av"

' .Replacement.Text = " Av"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ax"

' .Replacement.Text = " Ax"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ba"

' .Replacement.Text = " Ba"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Bb"

' .Replacement.Text = " Bb"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Bm"

' .Replacement.Text = " Bm"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Br"

' .Replacement.Text = " Br"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ca"

' .Replacement.Text = " Ca"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ce"

' .Replacement.Text = " Ce"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Di"

' .Replacement.Text = " Di"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Md"

' .Replacement.Text = " Md"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

'' Selection.Find.ClearFormatting

'' Selection.Find.Font.Color = wdColorRed

'' Selection.Find.Replacement.ClearFormatting

'' Selection.Find.Replacement.Font.Color = wdColorRed

'' With Selection.Find

'' .Text = "Es"

'' .Replacement.Text = "Md"

'' .Forward = True

'' .Format = True

'' .MatchCase = True

'' .MatchWholeWord = False

'' .MatchWildcards = False

'' .MatchSoundsLike = False

'' .MatchAllWordForms = False

'' End With

'' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Fi"

' .Replacement.Text = " Fi"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Fr"

' .Replacement.Text = " Fr"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Gs"

' .Replacement.Text = " Gs"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ko"

' .Replacement.Text = " Ko"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "La"

' .Replacement.Text = " La"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Lb"

' .Replacement.Text = " Lb"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Lc"

' .Replacement.Text = " Lc"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Lm"

' .Replacement.Text = " Lm"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ly"

' .Replacement.Text = " Ly"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Mw"

' .Replacement.Text = " Mw"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Mz"

' .Replacement.Text = " Mz"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Na"

' .Replacement.Text = " Na"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ox"

' .Replacement.Text = " Ox"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pa"

' .Replacement.Text = " Pa"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pb"

' .Replacement.Text = " Pb"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pc"

' .Replacement.Text = " Pc"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pe"

' .Replacement.Text = " Pe"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Pz"

' .Replacement.Text = " Pz"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Sa"

' .Replacement.Text = " Sa"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Sm"

' .Replacement.Text = " Sm"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "To"

' .Replacement.Text = " To"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Un"

' .Replacement.Text = " Un"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ra"

' .Replacement.Text = "Va"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Rb"

' .Replacement.Text = "Vb"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Rc"

' .Replacement.Text = "Vc"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Rd"

' .Replacement.Text = "Vd"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Re"

' .Replacement.Text = "Ve"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Rf"

' .Replacement.Text = "Vf"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Rg"

' .Replacement.Text = "Vg"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "We"

' .Replacement.Text = " We"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Va"

' .Replacement.Text = " Va"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Vb"

' .Replacement.Text = " Vb"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Vc"

' .Replacement.Text = " Vc"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Vd"

' .Replacement.Text = " Vd"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Ve"

' .Replacement.Text = " Ve"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Vf"

' .Replacement.Text = " Vf"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

' Selection.Find.ClearFormatting

' Selection.Find.Font.Color = wdColorRed

' Selection.Find.Replacement.ClearFormatting

' Selection.Find.Replacement.Font.Color = wdColorRed

' With Selection.Find

' .Text = "Vg"

' .Replacement.Text = " Vg"

' .Forward = True

' .Format = True

' .MatchCase = True

' .MatchWholeWord = False

' .MatchWildcards = False

' .MatchSoundsLike = False

' .MatchAllWordForms = False

' End With

' Selection.Find.Execute Replace:=wdReplaceAll

'End Sub

Sub zOCBracketMarBet()

' zOCBracketMarBet Macro

' Macro recorded 14/10/04 by

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "#"

.Replacement.Text = " ["

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "~"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub RemovePunct()

' RemovePunctLowerCase Macro

' Macro recorded 14/10/04 by

Selection.HomeKey Unit:=wdStory

' Call AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ","

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "."

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ";"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory

Selection.Font.Color = wdColorAutomatic

Selection.MoveUp Unit:=wdLine, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = """"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "'"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "`"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wColonOmit()

' wColonOmit Macro

' Macro recorded 14/10/04 by

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " <IB>omit"

.Replacement.Text = ": <IB>omit"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "::"

.Replacement.Text = ":"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOmissionDotsSpacing()

' zOmissionDotsSpacing Macro

' Macro recorded 14/10/04 by

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ". . . "

.Replacement.Text = "..."

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "..."

.Replacement.Text = " ... "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOmissionColon()

' zOmissionColon Macro

' Macro recorded 16/10/04 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "`"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

' Application.Run MacroName:="AllVariantsRed"

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = " om."

.Replacement.Text = ": om."

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "::"

.Replacement.Text = ":"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wDeleteAmpersand()

' wDeleteAmpersand Macro

' Macro recorded 16/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "&"

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wMoveAsteriskAfter()

' wAsteriskAfter Macro

' Macro recorded 16/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*{"

.Replacement.Text = "{*"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrs4123()

' wTrs4123 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorAutomatic

With Selection.Find

.Text = "}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=4

Selection.MoveRight Unit:=wdWord, Count:=3, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4123}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs3412()

' wTrs3412 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4123}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=4

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.3412}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs34512()

' wTrs34512 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.3412}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.34512}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs2341()

' wTrs2341 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.34512}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=4

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.2341}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs4231()

' wTrs4231 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.2341}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4231}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub w34512()

' w34512 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.2341}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.34512}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs2431()

' wTrs2431 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.34512}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.2431}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs51234()

' wTrs51234 Macro

' Macro recorded 15/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4123}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=4

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.51234}"

.Replacement.Text = "] "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub Extract32d1bWitnesses()

Application.ScreenUpdating = False

'Documents.Open FileName:="32d1cSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bVd", FileFormat:=wdFormatDocument

strSiglum = "Vd"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bAu", FileFormat:=wdFormatDocument

strSiglum = "Au"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub b1OldCollation2Source()

' b1OldCollation2Source Macro

' Macro recorded 5/5/01 by Kilcullen

'Call DivideIntoCollationBlocks

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="CHECK BLOCKS; THEN RUN b2OldCollation2Source"

Selection.TypeParagraph

End Sub

Sub b2OldCollation2Source()

lngQuery = MsgBox("Runs Move asterisk, Space sigla, omission dots spacing, omission colon, remove punct, del ampersand," & vbCr & vbCr & "Continue?", vbYesNo + vbQuestion, "Continue?")

If lngQuery = vbNo Then End

Call wMoveAsteriskAfter

Call wHash2Para

Call wPara

Call zSpaceSigla

Call zOmissionDotsSpacing

Call zOmissionColon

Call wAddedOmitted

Call wDeleteVariantNumbers

Call RemovePunct

Call wDeletePuntVariants

Call wDeleteAmpersand

Call zDeleteExtraSpaces

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="check [[, /\, margin, between"

Selection.TypeParagraph

End Sub

Sub wAddedOmitted()

'Added, Omitted

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "add."

.Replacement.Text = "<IB>added<IE>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "om."

.Replacement.Text = "<IB>omitted<IE>"

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wSpaceBetweenVariants()

'Space between variants

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "}{"

.Replacement.Text = "} {"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wDeleteVariantNumbers()

' wDeleteVariantNumbers Macro

' Macro recorded 16/10/04 by John

Selection.HomeKey Unit:=wdStory

Call AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "]}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

Selection.HomeKey Unit:=wdStory

End Sub

Sub Extract32d2Witnesses()

Application.ScreenUpdating = False

'Documents.Open FileName:="32d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d2Na", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d2Ve", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d2Mz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d2Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d2Pe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub ColourLemmataViolet()

' ColourLemmataViolet Macro

' Macro recorded 16/10/04 by John

Selection.HomeKey Unit:=wdStory

Call AllVariantsRed

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "\{*:"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorViolet

End With

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

With Selection.Font

.Color = wdColorRed

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

End Sub

Sub wDeletePuntVariants()

' wDeletePuntViolet Macro

' Macro recorded 16/10/04 by John

Call ColourLemmataViolet

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "..."

.Replacement.Text = "```"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "trs."

.Replacement.Text = "trs`"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorRed

With Selection.Find

.Text = "add."

.Replacement.Text = "add`"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "om."

.Replacement.Text = "om`"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorViolet

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "."

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ","

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ";"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = """"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "'"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "."

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ","

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ":"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = ";"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = """"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "'"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "`"

.Replacement.Text = "."

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrs4132()

' wTrs4132 Macro

' Macro recorded 17/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4132}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs3421()

' wTrs3421 Macro

' Macro recorded 17/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.3421}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs52341()

' wTrs52341 Macro

' Macro recorded 17/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=4

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.52341}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs2413()

' wTrs2413 Macro

' Macro recorded 17/10/04 by

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.2413}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wHash2Para()

' wHash2Para Macro

' Macro recorded 17/10/04 by

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " # "

.Replacement.Text = " para "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub Extract32d3Witnesses()

Application.ScreenUpdating = False

'Documents.Open FileName:="32d3Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3Na", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3Ve", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3Mz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3Pe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d1bbWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbVd", FileFormat:=wdFormatDocument

strSiglum = "Vd"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbFr", FileFormat:=wdFormatDocument

strSiglum = "Fr"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbAu", FileFormat:=wdFormatDocument

strSiglum = "Au"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbBa", FileFormat:=wdFormatDocument

strSiglum = "Ba"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbTo", FileFormat:=wdFormatDocument

strSiglum = "To"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1bbDi", FileFormat:=wdFormatDocument

strSiglum = "Di"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d1ccWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccEs", FileFormat:=wdFormatDocument

strSiglum = "Es"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccPe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccPz", FileFormat:=wdFormatDocument

strSiglum = "Pz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1ccLy", FileFormat:=wdFormatDocument

strSiglum = "Ly"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d22Witnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d22Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d22Mz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d22Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d22Na", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d22Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d22Pe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d22Source.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d22Vg", FileFormat:=wdFormatDocument

strSiglum = "Vg"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d3aaWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d3aaSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3aaVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3aaSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3aaNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3aaSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3aaMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3aaSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3aaPe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3aaSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3aaVg", FileFormat:=wdFormatDocument

strSiglum = "Vg"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d3bbWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d3bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3bbVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3bbNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3bbMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3bbSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3bbAu", FileFormat:=wdFormatDocument

strSiglum = "Au"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32d3ccWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d3ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3ccVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3ccNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3ccPe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d3ccSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d3ccMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub Extract32dWitnesses()

Call Extract32d1bbWitnesses

Call Extract32d1ccWitnesses

Call Extract32d22Witnesses

Call Extract32d3aaWitnesses

Call Extract32d3bbWitnesses

Call Extract32d3ccWitnesses

End Sub

Sub Extract32d1aWitnesses()

Application.ScreenUpdating = False

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aAr", FileFormat:=wdFormatDocument

strSiglum = "Ar"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aAu", FileFormat:=wdFormatDocument

strSiglum = "Au"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aBa", FileFormat:=wdFormatDocument

strSiglum = "Ba"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aCa", FileFormat:=wdFormatDocument

strSiglum = "Ca"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aDi", FileFormat:=wdFormatDocument

strSiglum = "Di"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aEs", FileFormat:=wdFormatDocument

strSiglum = "Es"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aFr", FileFormat:=wdFormatDocument

strSiglum = "Fr"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aLm", FileFormat:=wdFormatDocument

strSiglum = "Lm"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aMw", FileFormat:=wdFormatDocument

strSiglum = "Mw"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aMz", FileFormat:=wdFormatDocument

strSiglum = "Mz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aLy", FileFormat:=wdFormatDocument

strSiglum = "Ly"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aNa", FileFormat:=wdFormatDocument

strSiglum = "Na"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aPb", FileFormat:=wdFormatDocument

strSiglum = "Pb"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aPc", FileFormat:=wdFormatDocument

strSiglum = "Pc"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aPe", FileFormat:=wdFormatDocument

strSiglum = "Pe"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aPz", FileFormat:=wdFormatDocument

strSiglum = "Pz"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aTo", FileFormat:=wdFormatDocument

strSiglum = "To"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aUn", FileFormat:=wdFormatDocument

strSiglum = "Un"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aVd", FileFormat:=wdFormatDocument

strSiglum = "Vd"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

Documents.Open FileName:="32d1aSource.doc", ConfirmConversions:=False

ActiveDocument.SaveAs FileName:="32d1aVe", FileFormat:=wdFormatDocument

strSiglum = "Ve"

Call zOCReconstructWitness

ActiveDocument.Save

ActiveDocument.Close

End Sub

Sub dots()

' dots Macro

' Macro recorded 18/10/04 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ". . . "

.Replacement.Text = "..."

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrsSpacing()

' wTrsSpacing Macro

' Macro recorded 18/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{trs. 2"

.Replacement.Text = "{trs.2"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{trs. 3"

.Replacement.Text = "{trs.3"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 4"

.Replacement.Text = "{trs.4"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 5"

.Replacement.Text = "{trs.5"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 6"

.Replacement.Text = "{trs.6"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 7"

.Replacement.Text = "{trs.7"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 8"

.Replacement.Text = "{trs.8"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "{trs. 9"

.Replacement.Text = "{trs.9"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub Extract32dTx()

Application.ScreenUpdating = False

'Documents.Open FileName:="32d1ccSource.doc", ConfirmConversions:=False

'ActiveDocument.SaveAs FileName:="32d1ccTx.doc", FileFormat:=wdFormatDocument

Selection.TypeText Text:="check m and b"

strSiglum = "*"

Call zOCReconstructWitness

'ActiveDocument.Save

'ActiveDocument.Close

End Sub

Sub wQuarantineBlockNumbers()

' wQuarantineBlockNumbers Macro

' Macro recorded 19/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<*\>"

.Replacement.Text = "blknum"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "\<*\>"

.Replacement.Text = "blknum"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineNone

With Selection.Find

.Text = "blknum"

.Replacement.Text = " blknum "

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "blknum "

.Replacement.Text = "blknum"

.Forward = True

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wRestoreBlkNum()

' wRestoreBlkNum Macro

' Macro recorded 19/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "blknum"

.Replacement.Text = "<s @> "

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Call AutomaticNumbering

End Sub

Sub wSpaceCQNumbers()

' z Macro

' Macro recorded 19/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find

.Text = "[a-z][0-9]"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Loop

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find

.Text = "[0-9][a-z]"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeText Text:=" "

Loop

End Sub

Sub wAllAutocolour()

' wAllAutocolour Macro

' Macro recorded 24/10/04 by John

Selection.WholeStory

With Selection.Font

.Color = wdColorAutomatic

End With

Selection.MoveUp Unit:=wdLine, Count:=1

End Sub

Sub wSpaceBlockNumbers()

' wSpaceBlockNumbers Macro

' Macro recorded 24/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "<s"

.Replacement.Text = "<s "

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Font.Underline = wdUnderlineSingle

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Underline = wdUnderlineSingle

With Selection.Find

.Text = "<s "

.Replacement.Text = "<s "

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wHideBlockNumbers()

' wHideBlockNumbers Macro

' Macro recorded 24/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineSingle

.Color = wdColorAutomatic

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineSingle

.Hidden = True

.Color = wdColorAutomatic

End With

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

' .Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

End Sub

Sub wDeHideBlockNumbers()

' wDeHideBlockNumbers Macro

' Macro recorded 24/10/04 by John

Selection.HomeKey Unit:=wdStory

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineSingle

.Hidden = True

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find.Replacement.Font

.Underline = wdUnderlineSingle

.Hidden = False

End With

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrs45123()

' wTrs45123 Macro

' Macro recorded 24/10/04 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.45123}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs45231()

' wTrs45231 Macro

' Macro recorded 24/10/04 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=3

Selection.Paste

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=2

Selection.Paste

Selection.Find.ClearFormatting

Selection.Find.Font.Hidden = False

With Selection.Find

.Text = "{trs.45231}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wPara()

' wPara Macro

' Macro recorded 24/10/04 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "*# "

.Replacement.Text = "*para "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub wTrs4312()

' wTrs4312 Macro

' Macro recorded 24/10/04 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineSingle

.Hidden = True

End With

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=2

Selection.Paste

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=1

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.4312}"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wTrs6712345()

' wTrs6712345 Macro

' Macro recorded 24/10/04 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.Find.ClearFormatting

With Selection.Find

.Text = "427"

.Replacement.Text = "Dyalog"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=wdExtend

Selection.Cut

Selection.MoveLeft Unit:=wdWord, Count:=5

Selection.Paste

Selection.Find.ClearFormatting

With Selection.Find

.Text = "{trs.6712345}"

.Replacement.Text = "Dyalog"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub zRestoreBrackets2()

' zRestoreBrackets2 Macro

' Macro recorded 18/03/05 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{ $"

.Replacement.Text = "["

.Forward = True

' .Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{$"

.Replacement.Text = "["

.Forward = True

' .Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$"

.Replacement.Text = "["

.Forward = True

' .Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "%}"

.Replacement.Text = "]"

.Forward = True

' .Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "%"

.Replacement.Text = "]"

.Forward = True

' .Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCPreserveCom()

' z0CPreserveCom Macro

' Macro recorded 18/03/05 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "[com]"

.Replacement.Text = "{$com%"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

.Text = "[/com]"

.Replacement.Text = "$/com%}"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zOCRestoreCom()

' zOCRestoreCom Macro

' Macro recorded 18/03/05 by John

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{$com%"

.Replacement.Text = "[com]"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "$/com%}"

.Replacement.Text = "[/com]"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zzzz()

' zzzz Macro

' Macro recorded 18/03/05 by John

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Hidden = False

.Color = wdColorPink

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Hidden = False

.Color = wdColorPink

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.ClearFormatting

With Selection.Find.Font

.Underline = wdUnderlineNone

.Hidden = False

.Color = wdColorPink

End With

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub zz()

' zz Macro

' Macro recorded 18/03/05 by John

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View. _

ShowAll

End Sub

Sub wtrs23451()

' wtrs23451 Macro

' Macro recorded 20/03/05 by John

Selection.GoTo What:=wdGoToBookmark, Name:="z"

Selection.MoveLeft Unit:=wdWord, Count:=5

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

Selection.Cut

Selection.MoveRight Unit:=wdWord, Count:=4

Selection.Paste

Selection.Find.ClearFormatting

Selection.Find.Font.Color = wdColorRed

With Selection.Find

.Text = "\{*\}"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub wRedCom()

' wRedCom Macro

' Macro recorded 24/03/05 by John

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Color = wdColorBlue

With Selection.Find

.Text = "\[com*/com\]"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Sub DeleteExtraLemmata()

' z Macro

' Macro recorded 8/7/2006 by KILCULLEN

Call AllVariantsRed

Selection.Find.ClearFormatting

With Selection.Find

.Text = "]"

.Replacement.Text = ""

.Forward = True

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = False Then Exit Do

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.Find.ClearFormatting

With Selection.Find

.Text = "\{*\]"

.Replacement.Text = ""

.Forward = False

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execute

With Selection.Font

.Color = wdColorBlue

End With

Selection.MoveRight Unit:=wdCharacter, Count:=1

Loop

End Sub

Sub DeleteExtraLemmataStage2()

' z Macro

' Macro recorded 8/7/2006 by KILCULLEN

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "{"

.Replacement.Text = "{"

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = ""

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory

With Selection.Font

.Name = ""

.Color = wdColorAutomatic

End With

End Sub

Sub DeleteAllButSiglum()

Call zSpaceSigla

'Call zOmissionColon

'Call wAddedOmitted

Call wDeleteVariantNumbers

'Call RemovePunct

'Call wDeletePuntVariants

Call wDeleteAmpersand

Call zDeleteExtraSpaces

Call wSpaceBetweenVariants

Call wAllAutocolour

Call zGetSiglum

Call zOCFindNextVariant

If blnNextVariant = False Then Exit Do

If blnNextVariant = True Then

Call zOCDeleteIfSiglumNotFound

End If

Loop

Call zDeleteExtraSpaces

End Sub