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


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





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

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



04-10-2018 06:02 مساء
jjebril
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 51
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 126
الاعجاب : 35
 offline 
انا لدي ماكروا يستخرج كل الاشارات المرجعية من مستند الي جدول في اخر الصفحة ، وفيها اسم الاشارة المرجعية ، ورقم الصفحة ، ورقم السطر ، ورقم المقطع ، واريد ان يكون هذا الامر بالعكس، اي من خلال هذا الجدول اريد ان اضيف الاشارات المرجعية من خلال هذا الجدول والمعلومات المضافة اليها ، الماكروا موجود داخل المستند
​Sub ExtractBookmarksInSameDoc()
  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 objDoc.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 = "Sections"
      .Cell(1, 3).Range.Text = "Page Number"
        .Cell(1, 4).Range.Text = "lines"
        .Cell(1, 5).Range.Text = "Colm"
      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.Information(wdActiveEndSectionNumber)
        .Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)
        .Cell(nRow, 4).Range.Text = objBookmark.Range.Information(wdFirstCharacterLineNumber) '
        '(wdVerticalPositionRelativeToPage)
        '(wdFirstCharacterLineNumber)
        
        .Cell(nRow, 5).Range.Text = objBookmark.Range.Information(wdVerticalPositionRelativeToPage)
        '(wdStartOfRangeColumnNumber)'(wdHorizontalPositionRelativeToTextBoundary)'(wdActiveEndAdjustedPageNumber)'(wdActiveEndAdjustedPageNumber)
        
        objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 3).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




لرؤية الروابط والمرفقات عليك الرد على الموضوع



تم تحرير الموضوع بواسطة :jjebril
بتاريخ:04-10-2018 06:15 مساء







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

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


 







الساعة الآن 06:47 مساء

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