اصلاح micro ورد
چهار سال پیش منتشر شده
تعداد بازدید: 493
کد پروژه: 335166
شرح پروژه
یک ماکرو ورد دارم که وقتی یک حرف رو بهش میدی اون حرف رو در پاراگراف پیدا میکنه و کل پاراگراف رو هایلایت میکنه. حالا میخوام بعد از اینکه اون پاراگراف پیدا شد در لاین زیرش عبارت <!--nextpage-->
رو قرار بده.
کد ماکرو:
Sub Highlight_Paragraph()
'THIS CODE HIGHLIGHTS TO THE END OF THE PARAGRAPH WHERE THE TARGET WORD
'IS FOUND WITHIN THE DOCUMENT
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(FindText:="insert your text")
oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow
oRng.Collapse 0
Loop
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub
مهارت ها و تخصص های مورد نیاز
مهلت برای انجام
1روز
وضعیت مناقصه
بسته
درباره کارفرما
عضویت شش سال پیش
