اصلاح این کد
Sub MacroNEWPARAGRAFTERHILIGHT()
'' MacroNEWPARAGRAFTERHILIGHT Macro
' CREAT NEW PARAGRAF AFTER FIND HIGLIGHT WORDS
'
Selection.Find.ClearFormatting
Selection.Find.Highlight = True
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = "^&^p"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
کاربرد این کد :
در یک پاراگراف اگر کلمه ای هایلایت باشه ؛ ادامه بعد از هایلایت , میره در یک پاراگراف جدید
ولی حالا میخواهم اون ادامه حذف بشه و به یک پاراگراف جدید منتقل نشه
یعنی در هر پاراگراف اگر به کلمه هایلایت شده جدیدی برخورد کرد اون کلمه رو نگه داره و بقیه و ادامشو حذف کنه ....
دوستان خواهشا جواب بدید