السيد الفاضل/ عباد المحترم
السلام عليكم ورحمة الله وبركاته
أشكر لك إجابتك، حقيقة أنا لا أفهم ما تقول، ما المقصود بالموديول؟، وكيفية استخدامه؟ حتى أطبقه من خلالي.
مع الاحترام والتقدير
جرب هذا الكود
انشاء مودويل في ملف الوورد الذي به المواضيع
والصق فيه الكود
Public Sub Ali_Copy_Sht()
Dim Rng As Range
Dim Mu_a$, Pth$
Dim ii%, i%, Nx%, Np%
'****************
Mu_a = "الموضوع"
'****************
Np = 0
On Error Resume Next
For ii = 1 To 10 Step 2
Np = Np + 1
i = ii: Nx = ii + 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
Set Rng = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Nx
Rng.End = Selection.Bookmarks("\Page").Range.End
Rng.Select
Selection.Copy
Application.Documents.Add
Selection.Paste
Pth = ThisDocument.Path & "\"
ActiveDocument.SaveAs Pth & Mu_a & " - " & Np & ".docx"
ActiveDocument.Close
Next
On Error GoTo 0
ActiveDocument.Range(1, 1).Select
MsgBox "تم تقسيم كل موضوع في ملف بنجاح", vbInformation, ""
Set Rng = Nothing
End Sub
الكود سيقوم بانشاء ملف لكل موضوع
وحفظه في نفس فولدر الملف
تحياتي