اصلاح این کد

[bnyamin]

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


کاربرد این کد :
در یک پاراگراف اگر کلمه ای هایلایت باشه ؛ ادامه بعد از هایلایت , میره در یک پاراگراف جدید
ولی حالا میخواهم اون ادامه حذف بشه و به یک پاراگراف جدید منتقل نشه
یعنی در هر پاراگراف اگر به کلمه هایلایت شده جدیدی برخورد کرد اون کلمه رو نگه داره و بقیه و ادامشو حذف کنه ....


دوستان خواهشا جواب بدید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.