Need Help with the following macros

[rsrasc]

Hello all,

I have a document with over 100 pages and on it I have four (4) different macros (see below) but none of them are working.

Inside the document you will find a series of Multiple Choice Question with their corresponding choices of A , B, C and D.

Right after these choices, the document is showing their corresponding answers which are showing as follows:

Answer(A) is ..........
Answer(B) is ..........
Answer(C) is ..........
Answer(D) is ........

Basically, I would like the macro to insert or add a paragraph break before the word "Answer(A), "Answer(B)". "Answer (C)", Answer(D)".


Thank you all your your time and assistant. I hope I expressed my ideas correctly if not please let me know. Thanks!

Respectfully,








Sub insSections1()
' Declare variables
Dim rng As Range
Dim aStory As Range

' Set the initial range to search in the entire document
Set aStory = ActiveDocument.Content

' Execute find and replace for "Answer"
With aStory.Find
.ClearFormatting
.Text = "Answer"
.Forward = True
.Wrap = wdFindContinue ' Stop at the first occurrence
.Execute
End With

' Check if "Answer" is found
If aStory.Find.Found Then
' Move to the beginning of the found range
aStory.Collapse wdCollapseStart
' Insert a page break before the found range
aStory.InsertBreak Type:=wdPageBreak
End If
End Sub




Sub insSections2()
' Declare variables
Dim rng As Range
Dim aStory As Range

' Set the initial range to search in the entire document
Set aStory = ActiveDocument.Content

' Execute find and replace for "Answer (B)"
With aStory.Find
.ClearFormatting
.Text = "Answer(B) "
.Forward = True
.Wrap = wdFindContinue ' Stop at the first occurrence
.Execute
End With

' Check if "Answer" is found
If aStory.Find.Found Then
' Move to the beginning of the found range
aStory.Collapse wdCollapseStart
' Insert a page break before the found range
aStory.InsertBreak Type:=wdPageBreak
End If
End Sub






Sub insSections3()
' Declare variables
Dim rng As Range
Dim aStory As Range

' Set the initial range to search in the entire document
Set aStory = ActiveDocument.Content

' Execute find and replace for "Answer (C)"
With aStory.Find
.ClearFormatting
.Text = "Answer(C) "
.Forward = True
.Wrap = wdFindContinue ' Stop at the first occurrence
.Execute
End With

' Check if "Answer" is found
If aStory.Find.Found Then
' Move to the beginning of the found range
aStory.Collapse wdCollapseStart
' Insert a page break before the found range
aStory.InsertBreak Type:=wdPageBreak
End If
End Sub


Sub insSections4()


'this code will insert a paragraph or break page before the word Answer
Dim sOt As Variant
Dim aStory As StoryRanges


Set aStory = ActiveDocument.StoryRanges
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.Text = "Answer)"
.Replacement.Text = "^mAnswer)"
.Execute Replace:=wdReplaceAll




End With
If Selection.Find.Found Then
For Each sOt In aStory
Selection.MoveLeft unit:=wdCharacter, Count:=1
Selection.InsertBreak Type:=wdSectionBreakNextPage

Next
End If
End Sub

[Chas Kenyon]

You may want to look at Question and Answer Styles (https://addbalance.com/word/download.htm#question) and either skip the macros or use them to assign styles to your paragraphs.

[rsrasc]

Hi Chas,

Thank you for the recommendation. I was looking into Question and Answer styles but not sure if that will work automatically or by default when setting up a style for Answers especially when the document have over 100+ pages.

Somewhere (I can't remember where) I found the below code that was put together by Greg Maxey and I believe it was amended by Charles Kenyion (I think that was you). It works but it is inserting a lot of page breaks to the document. I would like to know if you can give a try and see how the results are and come out with a solution to the page breaks. I will keep searching to see if I find a solution. Thanks!





Sub ScratchMacro()


'A basic Word macro coded by Greg Maxey amended by Charles Kenyon


Dim oRng As Range


Application.ScreenUpdating = False


Set oRng = ActiveDocument.Range


With oRng.Find


.Text = "Answer"


While .Execute


oRng.Paragraphs(1).PageBreakBefore = True


Wend


End With


Application.ScreenUpdating = True


lbl_Exit:


Exit Sub


End Sub

[Chas Kenyon]

Yes, that was me although I have no memory of it.
What it does is set any paragraph with the word "Answer" in it to start on a new page. That is overkill for your document.

Adding empty paragraphs is a VERY bad habit.
See Shauna Kelly's 2.2 Why you should press Enter only once to end a paragraph (http://www.shaunakelly.com/word/concepts/rules_enterparagraphs.html) .

Apply a style that has the space-before formatting you need. Your entire document is formatted using the Normal style which is just plain sloppy.
Read The Importance of Styles in Microsoft Word (https://www.addbalance.com/usersguide/stylesImportance.htm) and spend some time learning to use styles. Writing macros to do your formatting is crazy.
I've downloaded your document will play around with it.