[احمد 2021]

(06-03-21, 05:31 PM)Ronald كتب :

(06-03-21, 05:21 AM)احمد 2021 كتب : السلام عليكم ورحمة الله وبركاتة 


لدي طلب بسيط من الاخوة بالمنتدي .

عندي ملف ورد واريد استبدال الصورة داخل الملف من قاعدة البيانات عن طريق استخدام الداتاتابل .

الطريقة القديمة التي كنت اقوم بها وهيا اضافة بوك ماارك للصورة واقوم باستبدالها علي اساس البوك مارك واضافة مسار للصورة .

المشكلة بالطريقة هذة تحدث ازاحة للنصوص بالملف الخاص بالورد ويحدث اختلال بكامل الملف النصي كنت استخدم الطريقة بهذا الشكل .

كود :

       Dim aplication As New Microsoft.Office.Interop.Word.Application
       Dim myapp1 As New Application
       Dim filename = "مسار الملف النصي "
       Dim mydoc As New Document
       mydoc = aplication.Documents.Open(filename)
       Dim bk As Bookmarks = mydoc.Bookmarks

       bk("IMG").Range().InlineShapes.AddPicture(
                FileName:="مسار الصورة", LinkToFile:=False,
        SaveWithDocument:=True)

       mydoc.InlineShapes(1).Height = 100.5
       mydoc.InlineShapes(1).Width = 100.14

       GC.Collect()
       GC.WaitForPendingFinalizers()
       GC.Collect()
       GC.WaitForPendingFinalizers()

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

ما اعرفة هو استعادة الصورة من قاعدة البيانات بملاء الداتاتابل بالبيانات من الجدول وعرضها بصندوق الصور ..
..

كود :

Dim mybyte As Byte() = New Byte(-1) {}
               mybyte = CType((DTFILL.Rows(0).Item("DEGREE_IMG")), Byte())
               Dim ms As MemoryStream = New MemoryStream(mybyte)
               PIC_PARTA.Image = Image.FromStream(MS)

PHP كود :

       Dim aplication As New Microsoft.Office.Interop.Word.Application
        Dim myapp1 As New Application
        Dim filename = "مسار الملف النصي "
        Dim mydoc As New Document
        mydoc = aplication.Documents.Open(filename)
        Dim bk As Bookmarks = mydoc.Bookmarks


Dim mybyte As Byte() = New Byte(-1) {}
                mybyte = CType((DTFILL.Rows(0).Item("DEGREE_IMG")), Byte())
                Dim ms As MemoryStream = New MemoryStream(mybyte)
                Image.FromStream(MS).save("مسار الصورة")


        bk("IMG").Range().InlineShapes.AddPicture(
                 FileName:="مسار الصورة", LinkToFile:=False,
         SaveWithDocument:=True)

        mydoc.InlineShapes(1).Height = 100.5
        mydoc.InlineShapes(1).Width = 100.14


        mydoc.Save()
        aplication.Quit()

        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers() 


في البداية بشكر حضرتك علي لمساعدة 

المشكل مش في طريقة الاضافة المشكلة في عملية الازاحة وتغير شكل الصفحة بالكامل لان الصورة بتاخد مكان وبتغير موضع الكتابات اسفل منها ...

في الرابط دة عمل استبدال بنفس الموقع للمتغير النصي 

https://social.msdn.microsoft.com/Forums...orum=vbide

ما لاحظتة عند التعامل مع مكان محدد للنصوص والصور ولصق صورة او استبدالها لايتغير المكان ويظل كاما هو ولكن عند الاضافة يتم ازاحة محتوي الملف باكامل