نوشته اصلی توسط
amir ghasemiyan
سلام دوست عزيز
لطفا كدي كه استفاده كردين يا فايلتون رو بذارين ببينم از چه روشي استفاده كردين
با عرض سلام و ارادت - فایلی هم در پیوست قرار دادم - چی می خواهم انجام دهم ؟ به عنوان مثال ما متنی فارسی داریم که در اول هرکدام ار پاراگرافهای ان یک حرف انگلیسی به عنوان یک کد قرار دارد حالا با سرچ هر کدوم از این کدها مثلا سرچ A ؛ اون پاراگراف سطح یک (در حالت اوت لاین) بشود و همینجور الی آخر یعنی با سرچ B اون پاراگراف سطح دو بشود و ...
در فایلی که در ذیل هست برای این کار بنده یک ماکرو ذخیره کردم ولی وقتی ران میکنیمش فقط یک بار عمل سرچ و تبدیل به حالت اوت لاینو انجام میدهد و این روند رو تا آخر متن و نوشته ها ادامه نمیدهد .
کد PHP:
Sub Macro4()'' Macro4 Macro'' Selection.Find.ClearFormatting With Selection.Find .Text = "A" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Range.Paragraphs.Style = ActiveDocument.Styles(wdStyleHeading1) Selection.Find.ClearFormatting With Selection.Find .Text = "A" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End WithEnd Sub
علاقه مندی ها (Bookmarks)