ترفند حذف استایل های(Styles) اضافی در Word
776 بار بازدید -
11 ماه پیش
-
حذف استایلهای اضافه در Word
حذف استایلهای اضافه در Word
#ترفند
_ مگه ورد هم امکان کدنویسی داره؟
کدنویسی در اکسل رو بهت گفتیم، اینم
یک روش متفاوت که در ورد با استفاده
از یک فایل بهراحتی میتونی استایلهای
اضافه رو حذف کنی...
--------------
️متن فایل ماکرو پایین پست قرار میگیره، کپی کنید
--------------
این پست رو حتما برای دوستانت
ارسال کن
_
استارتآباد | StartAbad.com مرجع آموزشهای پولساز
کد ماکرو
Sub DeleteUnusedStyles()
Dim aStyle As Style
For Each aStyle In ActiveDocument.Styles
If aStyle.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = aStyle.NameLocal
.Execute FindText:="", Format:=True
If .Found = False Then aStyle.Delete
End With
End If
Next aStyle
End Sub
11 ماه پیش
در تاریخ 1402/07/12 منتشر شده
است.
776
بـار بازدید شده