SRDMS Critique Extractor: Boxed Critique Revision Macro

SRDMS Critique Extractor: Boxed Critique Revision Macro

Sub PreSSBoxedTemplateReFormat()

'Find and remove all hyperlinks

Dim oField As Field

For Each oField In ActiveDocument.Fields

If oField.Type = wdFieldHyperlink Then

oField.Unlink

End If

Next

Set oField = Nothing

'Replace Principal Investigator(s): with Principal Investigator (PI):

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"Principal Investigator(s): "

.Replacement.Text = "Principal Investigator (PI): "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

'Find overall impact description 1st half and delete

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"OVERALL IMPACT^pReviewers will provide an overall impact score to reflect their assessment of the likelihood for the project to exert a sustained, powerful influence on the research field(s) involved, in consideration of the following five scored review"

.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

'Find overall impact description 2nd half and delete

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"criteria, and additional review criteria. An application does not need to be strong in all categories to be judged likely to have major scientific impact."

.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

'Add colon to Overall Impact:

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"Overall Impact "

.Replacement.Text = "Overall Impact:"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

'Find overall impact paragraph instruction and delete

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Write a paragraph summarizing the factors that informed your Overall Impact:score."

.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

'Replace Scored Review Criteria description with ^ to note end of previous weakness section

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"SCORED REVIEW CRITERIA^pReviewers will consider each of the five review criteria below in the determination of scientific and technical merit, and give a separate score for each."

.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

'Remove extra space after Strengths

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"Strengths ^p"

.Replacement.Text = "Strengths^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

' Find 5 Criteria Tables and convert to text

Selection.Find.ClearFormatting

With Selection.Find

.Text = "1. Significance"

.Replacement.Text = "1. Significance:"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "2. Investigator(s)"

.Replacement.Text = "2. Investigator(s):"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "3. Innovation"

.Replacement.Text = "3. Innovation:"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "4. Approach"

.Replacement.Text = "4. Approach:"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

With Selection.Find

.Text = "5. Environment"

.Replacement.Text = "5. Environment:"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _

NestedTables:=True

Selection.Find.Execute Replace:=wdReplaceAll

'Replace Additional Review Criteria description with ^

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = _

"ADDITIONAL REVIEW CRITERIA^pAs applicable for the project proposed, reviewers will consider the following additional items in the determination of scientific and technical merit, but will not give separate scores for these items."

.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