This part of code is for removing the all Manual Line Break in word document at once.
What is Manual line break?
A manual line break ends the current line and continues the text on the next line. For example, suppose your paragraph style includes extra space before each paragraph.
To get Manual Line Break
1. Click where you want to break a line of text.
2. Press SHIFT+ENTER.
How to remove
To remove Manual we need to search the for manual line break and replace it with space or nothing
Selection.Find.Text = "^l"
≫ Replace with space
Selection.Find.Replacement.Text = ""
Full code of this article
PublicSub RemoveManualLineBreak()
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text = "^l^t"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
EndWith
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text = "^l"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
EndWith
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
EndSub
How to test this Code
1. Open Ms Word
2. Open VB Editor or Alt+F11
3. Create new module
4. Copy and paste the Code
5. Go back to you word and go to Macro Dialog then select the Macro Name (RemoveManualLineBreak) and Click on Run
0 comments :
Post a Comment