Adding blank page in word

[sachin483]

i have to added blank page in word 2010 after every 3 , 6 , 9 , 12 till the end the below macro run but blank page is not inserted and the format should remain same

Sub PB()
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .MatchWildcards = False
        .ClearFormatting
        .Text = "^p^p^p ^m"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .MatchWildcards = True
        .Text = "(^13{3,}*^13{3,}*)^13{3,}"
        .Replacement.Text = "\1^m^m"
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
End Sub

 

[Macropod]

i have to added blank page in word 2010 after every 3 , 6 , 9 , 12 till the end

After "every 3 , 6 , 9 , 12" what? As it is, your code first deletes every set of 3 paragraph breaks followed by a space then a manual page break, before trying to find 3 or more paragraph breaks followed by anything at all until finding 3 or more paragraph breaks followed by anything at all until finding 3 or more paragraph breaks, replacing the last set of 3 or more paragraph breaks with two manual page breaks. What do you expect it to do? And what do you mean by "the format should remain same"? Same as what?

 

[Macropod]

Cross-posted at: https://forums.windowssecrets.com/showthread.php/184623-Adding-blank-page-in-word
Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html