أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil برنامج مرتبات الصقر - الاصدار التانى - حسام خطاب اكسيل اسئله واجابات




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





سؤال اضافة اشارات مرجعية في ملف وورد بناء على معلومات من جدول

انا لدي ماكروا يستخرج كل الاشارات المرجعية من مستند الي جدول في اخر الصفحة ، وفيها اسم الاشارة المرجعية ، ورقم الصفحة ، ..



07-10-2018 07:20 صباحا
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 57
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 144
الاعجاب : 42
 offline 

انا لدي ماكروا يستخرج كل الاشارات المرجعية من مستند الي جدول في اخر الصفحة ، وفيها اسم الاشارة المرجعية ، ورقم الصفحة ، ورقم السطر ، ورقم المقطع ، واريد ان يكون هذا الامر بالعكس، اي من خلال هذا الجدول اريد ان اضيف الاشارات المرجعية من خلال هذا الجدول والمعلومات المضافة اليها ، الماكروا موجود داخل المستند
 


Sub ExtractBookmarksInADoc()


  Dim objBookmark As Bookmark


  Dim objTable As Table


  Dim nRow As Integer


  Dim objDoc As d*ocument, objNewDoc As d*ocument


  Dim objParagraph As Paragraph


 


  Set objDoc = Actived*ocument


 


  If objDoc.Bookmarks.Count = 0 Then


    MsgBox ("There is no bookmark in this d*ocument."wink_3


  Else


    Set objNewDoc = d*ocuments.Add


 


    Selection.TypeText Text:="Bookmarks in " & "'" & objDoc.Name & "'"


 


    Set objTable = Selection.Tables.Add(Range:=Selection.Range, numrows:=1, numcolumns:=5)


    objTable.Borders.Enable = True


    nRow = 1


 


    For Each objParagraph In objNewDoc.Paragraphs


      If objParagraph.Range.Style = "Caption" Then


        objParagraph.Range.Delete


      End If


    Next objParagraph


 


    With objTable


      .Cell(1, 1).Range.Text = "Name"


      .Cell(1, 2).Range.Text = "Texts"


      .Cell(1, 3).Range.Text = "Section"


      .Cell(1, 4).Range.Text = "Page Number"


      .Cell(1, 5).Range.Text = "lines"


 


      For Each objBookmark In objDoc.Bookmarks


        objTable.Rows.Add


        nRow = nRow + 1


        .Cell(nRow, 1).Range.Text = objBookmark.Name


        .Cell(nRow, 2).Range.Text = objBookmark.Range.Text


        .Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndSectionNumber)


        .Cell(nRow, 4).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)


        .Cell(nRow, 5).Range.Text = objBookmark.Range.Information(wdFirstCharacterLineNumber)


        


        objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 5).Range, Address:=objDoc.Name, _


          SubAddress:=objBookmark.Name, TextToDisplay:=.Cell(nRow, 3).Range.Text


      Next objBookmark


    End With


  End If


  objNewDoc.SaveAs2 FileName:=objDoc.Path & "" & "Bookmarks in " & objDoc.Name


End Sub
 
 
  سؤال لادراج الاشارات المرجعية برقم الصفحة ورقم السطر.rar   تحميل rar مرات التحميل :(5)
الحجم :(43.832) KB








المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سؤال اضافة اشارات مرجعية بناء على معلومات من جدول jjebril
0 171 jjebril

الكلمات الدلالية
سؤال ، اضافة ، اشارات ، مرجعية ، وورد ، بناء ، معلومات ، جدول ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:11 مساء

أعلن هنا
أعلن هنا
أعلن هنا