تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استبدال الصورة داخل ملف الورد
#1
السلام عليكم ورحمة الله وبركاتة 


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

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

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

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

كود :
       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)
الرد
تم الشكر بواسطة:
#2
(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() 
الرد
تم الشكر بواسطة: asemshahen5 , ابو روضة , احمد 2021 , احمد 2021
#3
(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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة بزيدة قيمة المتغير داخل التيمر أبو عبدالله الحلواني 5 112 17-04-21, 12:22 AM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] تحديد عنصر داخل اداة FlowLayoutPanel محمد اسماعيل 2 136 10-04-21, 12:58 AM
آخر رد: محمد اسماعيل
  اضافة فورم داخل فورم آخر الميامن 8 4,781 09-04-21, 06:55 PM
آخر رد: alsouf
  فتح فورم داخل حدود معينه محمود صالح 5 1,297 09-04-21, 06:18 PM
آخر رد: رضوان الجماعي
  حفظ الصورة و تبديلها بالأخرى محمد خيري 7 236 01-04-21, 03:00 PM
آخر رد: messry
  كيفية وضع تقارير فرعية داخل التقرير الأساسي كريستال ريبورت saud4001 0 128 26-03-21, 07:31 AM
آخر رد: saud4001
  [مشروع] كيف أظهار عرض تقديمي بالباوربوينت داخل بانال في الفورم waeldarwesh2030 1 121 24-03-21, 10:16 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] كيف تقوم بقص الصورة بشكل دائري و تحريكها في الفورم قبل طباعتها Ali Naser 2 388 06-03-21, 11:15 PM
آخر رد: asmarsou
Sad [سؤال] تصفية ComboBox داخل datagridview سعيد كنيمو 2 247 01-03-21, 11:10 PM
آخر رد: سعيد كنيمو
  سؤال حول الكتابة داخل ريتش تيكست بوكس Lathe1 1 204 26-02-21, 10:56 PM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم