06-03-21, 05:21 AM
السلام عليكم ورحمة الله وبركاتة
لدي طلب بسيط من الاخوة بالمنتدي .
عندي ملف ورد واريد استبدال الصورة داخل الملف من قاعدة البيانات عن طريق استخدام الداتاتابل .
الطريقة القديمة التي كنت اقوم بها وهيا اضافة بوك ماارك للصورة واقوم باستبدالها علي اساس البوك مارك واضافة مسار للصورة .
المشكلة بالطريقة هذة تحدث ازاحة للنصوص بالملف الخاص بالورد ويحدث اختلال بكامل الملف النصي كنت استخدم الطريقة بهذا الشكل .
ما اريد هوا استبدال صورة موجودة بملف الورد بحيث تكون بنفس الموقع للصورة القديمة بصورة اخري من قاعدة البيانات عن طريق الداتاتابل دون الاخلال باماكن المحتوي النصي بملف الورد ..
ما اعرفة هو استعادة الصورة من قاعدة البيانات بملاء الداتاتابل بالبيانات من الجدول وعرضها بصندوق الصور ..
..
لدي طلب بسيط من الاخوة بالمنتدي .
عندي ملف ورد واريد استبدال الصورة داخل الملف من قاعدة البيانات عن طريق استخدام الداتاتابل .
الطريقة القديمة التي كنت اقوم بها وهيا اضافة بوك ماارك للصورة واقوم باستبدالها علي اساس البوك مارك واضافة مسار للصورة .
المشكلة بالطريقة هذة تحدث ازاحة للنصوص بالملف الخاص بالورد ويحدث اختلال بكامل الملف النصي كنت استخدم الطريقة بهذا الشكل .
كود :
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)