كود لحذف الأقواس حول الرقم في المتن والحاشية

[الراجي]

هذا الكود عبارة عن تعديل للكود الذي عمله أبو سليمان تعديلا لكود الأستاذ أحمد الحربي ، هذ الكود الذي معنا يقوم بإزالة الأقواس حول رقم الحاشية في المتن والحاشية

Sub إزالة_أقواس_الحاشية()

ch = amsgbox("هل ترغب في حذف الأقواس حول الرقم في المتن والحاشية ", "حذف أقواس الحاشية ", 0)

If ch = 1 Then

ActiveWindow.ActivePane.View.Type = wdNormalView

Dim i, ii As Integer

For ii = 1 To 2

Selection.HomeKey Unit:=wdStory

For i = 1 To ActiveDocument.Footnotes.Count

Selection.Find.ClearFormatting

With Selection.Find

.Text = "^f"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

End With

Selection.Find.Execute

If ii = 1 Then

Selection.Font.Superscript = True

Selection.Font.Color = wdColorBlack

Else

Selection.Font.Superscript = False

End If

With Selection

.MoveLeft Unit:=wdCharacter, Count:=1

If ii = 1 Then

.Font.Superscript = True

Else

.Font.Superscript = False

End If

Selection.MoveRight Unit:=wdCharacter, Count:=2

Selection.TypeBackspace

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.TypeBackspace

Selection.MoveRight Unit:=wdCharacter, Count:=1

If ii = 1 Then

.Font.Superscript = True

Else

.Font.Superscript = False

End If

End With

Next

ActiveWindow.View.SplitSpecial = wdPaneFootnotes

Next ii

Selection.HomeKey Unit:=wdStory

ActiveWindow.View.Type = wdPrintView

End If

End Sub