الحاشية السفلية

[عبد الله العراقي]

هل توجد طريقة في البحث والاستبدال من شأنها ان تستبدل مجموعة كلمات بمجموعة حواشي سفلية؟

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

لا يوجد أصلا في الورد إمكانية استبدال مجموعة كلمات بمجموعة أخرى، سواء في النص أو في علامة الحاشية، ولكن هناك ماكرو يمكن أن ينفذ عملية استبدال مجموعة كلمات بأخرى، وهذا أرسلته لك من قبل، وهو هنا في الملتقى.

[Saleh Ahmed Rabie]

**نعم، توجد طريقة في برنامج Microsoft Word للبحث والاستبدال من شأنها استبدال مجموعة كلمات بمجموعة حواشي سفلية.**

**إليك الخطوات:**

1. **افتح مستند Word** الذي تريد إجراء البحث والاستبدال فيه.
2. انقر فوق علامة التبويب **"الصفحة الرئيسية"**.
3. انقر فوق الزر **"بحث واستبدال"** في مجموعة **"تحرير"**.
4. في مربع الحوار **"بحث واستبدال"**، انقر فوق علامة التبويب **"استبدال"**.
5. في مربع **"إيجاد"**، اكتب مجموعة الكلمات التي تريد استبدالها.
6. في مربع **"استبدال ب"**، اكتب علامة الحاشية السفلية التي تريد إضافتها.
7. انقر فوق الزر **"استبدال الكل"**.

**ملاحظة:**

* إذا كنت تريد استبدال مجموعة كلمات بحاشية سفلية تحتوي على نص، فستحتاج إلى تضمين النص بين علامتي قوسين معقوفتين في مربع **"استبدال ب"**. على سبيل المثال، لاستبدال "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، ستكتب:
```
[هذا هو النص]
```

**مثال:**

إذا كنت تريد استبدال جميع مثيلات "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، فستقوم بما يلي:

* في مربع **"إيجاد"**، اكتب **مجموعة الكلمات**.
* في مربع **"استبدال ب"**, اكتب **[هذا هو النص]**
* انقر فوق الزر **"استبدال الكل"**.

بعد ذلك، سيتم استبدال جميع مثيلات "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص".

إليك كود VBA الذي يمكنك استخدامه للبحث والاستبدال من شأنه استبدال مجموعة كلمات بمجموعة حواشي سفلية:**

```vba
Sub ReplaceWordsWithFootnotes()
    Dim rng As Range
    Dim strFind As String
    Dim strReplace As String
    Dim intFootnoteNumber As Integer

    ' Get the range of the document
    Set rng = ActiveDocument.Range

    ' Get the string to find
    strFind = InputBox("Enter the string to find:")

    ' Get the string to replace with
    strReplace = InputBox("Enter the string to replace with:")

    ' Get the footnote number
    intFootnoteNumber = InputBox("Enter the footnote number:")

    ' Loop through the range and replace the string
    For Each rng In rng.Find.Execute(FindText:=strFind, ReplaceWith:=strReplace, _
        Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue)
        rng.InsertFootnote Reference:=intFootnoteNumber
    Next rng
End Sub
```

**كيفية استخدام الكود:**

1. افتح مستند Word الذي تريد إجراء البحث والاستبدال فيه.
2. اضغط على **Alt + F11** لفتح محرر Visual Basic.
3. انقر فوق **إدراج** > **وحدة نمطية**.
4. الصق الكود في وحدة النمط.
5. اضغط على **F5** لتشغيل الكود.
6. سيتم مطالبتك بإدخال السلسلة التي تريد البحث عنها، والسلسلة التي تريد استبدالها بها، ورقم الحاشية السفلية.
7. انقر فوق **موافق** لاستبدال جميع مثيلات السلسلة التي تريد البحث عنها بالحاشية السفلية المحددة.

**ملاحظة:**

* إذا كنت تريد استبدال السلسلة بحاشية سفلية تحتوي على نص، فستحتاج إلى تضمين النص بين علامتي قوسين معقوفتين في متغير **strReplace**. على سبيل المثال، لاستبدال "مجموعة الكلمات" بحاشية سفلية تحتوي على النص "هذا هو النص"، ستكتب:
```vba
strReplace = "[هذا هو النص]"
```