نقل علامة الحاشية قبل علامة الترقيم:

[أبو عاصم المصري]

يحذث كثيرا أن تجد علامة الترقيم (، : ؛ . ؟) قبل رقم الحاشية الموجود في النص، فيحتاج المصحح، أو المنسق أن ينقل رقم الحاشية قبل علامة الترقيم، فيجد بذلك صعوبة وجهدًا، وتضييعًا كبيرًا للوقت، لكن مع هذا الماكرو البسيط، سيتم نقل رقم الحاشية قبل علامة الترقيم بضغطة واحدة.

وهذا هو الماكرو:

If ActiveDocument.Footnotes.Count = 0 Then
MsgBox "لا توجد حواشٍ سفلية في هذا المستند"
Exit Sub
End If
Options.DefaultHighlightColorIndex = wdBrightGreen  ' لجعل التظليل ثابتا في كل العمليات بغض النظر عن تحديده في شريط المهام
 
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "([.،:;\؟\!])(\(^2\))"
        .Replacement.Text = "\2\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   With Selection.Find
        .Text = "([.،:;\؟\!]) (\(^2\))"
        .Replacement.Text = "\2\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
 

[تومي محمد]

شكرا جزيلا

[أبو عاصم المصري]

بارك الله فيك