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

أخي الفاضل mohamed yasi

السلام عليكم ورحمة الله وبركاتة

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

والان سأشرح لك الطريقة خطوة خطوة

أولاً: قم بالضغط علي صندوق الادوات الموجود علي يسار البرنامج ToolBox كليك يمين ثم قم باختيار الامر ChoseItems

ثانياً:- اذا كانت الاداه موجوده ضمن المبوبة ComComponent فقم بتحديد الاداه مباشرة واضغط علي زر OK ليتم ادارجها داخل صندوق الادوات ToolBox أما في حالة عدم وجودها فيمكنك اختيارها كالتالي

1 - اختار ComComponent

2 - اضغط علي ...Browse لادارج الاداه داخل الصندوق

3 - بعدها ستظهر الاداه داخل صندوق الادوات ToolBox بهذا الشكل

4 - قم بسحب الاداه بطريقة السحب والافلات علي الفورم ثم قم بضبط أبعاد الاداه علي الفورم علي حسب المساحة الذي تريدها بالماوس لتظهر بهذا الشكل

5 - قم بتشغيل النموذج ثم قم باختيار ملف الورد الذي تريد فتحة داخل الفورم كالتالي

6 - قم باختيار الملف المطلوب ثم اضغط OK ليظهر ملف الوورد داخل الفورم بالشكل التالي

ثالثاً:- ماذا لو أردنا استخدام طريقة أخري غير طريقة فتح File ثم Open واستخدمنا طريقة قراءة ملف وورد معين وقت فتح الفورم من علي القرص الصلب

تتم هذه العملية من خلال كتابة الكود التالي في حدث تحميل الفورم وذلك لقراءة ملف معين من علي محرك الاقراص C

AxFramerControl1.Open("C:\Filename.doc")

مرفق المثال

بالتوفيق للجميع

Preview_WordDocument_IntoTheForm.rar

dsoframer.rar

بارك الله فيك اخي

لي استفسار كيف يمكن تشغيل ملف وورد موجود على نفس المجلد بتاع البرنامج باعتبار ان اسم الملف هو MyWord

وشئ ثاني هل ممكن الاستغناء عن ادوات الوورد اي شريط الادوات واظهار الصفحة لوحدها

وجزاك الله كل خير

اخي اسف انني اثقلت عليك

حاولت انني اضيف الاداة بس ما وجدتها على جهازي مع العلم انني استخدم فيجول بيسك 2008 بروفيشنال

هل ممكن ارفاقها

وبارك الله فيك

أخي الفاضل

- بخصوص الاستفسار الاول تم الاجابة عليه في المشاركة وهي قراءة ملف ورد موجود علي محرك الاقراص C

- أما بخصوص الاستفسار الثاني

بالطبع يمكنك اخفاء MenuBar و ToolBar من خلال خصائص الاداه وكما هو موضح بالصورة أدناه فعند عدم تمكين هذين الاختيارين فيمكنك اخفاء جميع قوائم ملف الوورد

بارك الله فيك اخي بس ياريت لو ترسل رابط تحميل الاداة لانني لم اجدها على جهازي

وجعل الله عملك حسنات

بعتذر عن عدم ارفاق الاداه سهوا في المشاركة

تم ارفاق الاداه في المشاركة الاساسية

واتمني ان اكون فعلا استطعت ان اقدم لكم ولو شيء بسيط بخصوص هذا الموضوع

بارك الله فيك اخي كل شئ تمام اشتغل 100/100

ولقد وفرت علي عناء البحث لمدة اسبوع كامل تقريبا والله اعلم بحالي لولا مشاركتك

جعلها الله في ميزان حسناتك وان شاء الله يجعلك من اهل الجنة

امين يارب العالمين

أخي الكريم أشكرك بعمق على هذه المشاركة المفيدة وأدعو الله لك بالتوفيق والسعادة في الدارين

لكن بعد تحميلي للأداة واستيرادها إلى صندوق الأدوات تظهر لكن لا استطيع وضعها على الـ Form وبمجرد محاولتي لذلك تأتي الرسالة التالية

علماً أنني جربت كل من VS.NET 2005 و VS.NET 2008 على جهاز Windows7

يبدو أن المشكلة في Windows7 أو على الأقل في جهازي لأن الأداة اشتغلت في windows XP

السلام عليكم ورحم ةالله وبركاته

شطرا لك أخي على هذه المشاركة وفعلا الاداة مفيدة وكنت ابحث عن مثلها منذ فترة . .

ولكن يظهر لدي خطأ عند تشغيل الفورم بعد إضافة الأداة فظننت الخلل منّيَ . .

فقمت بتحميل المثال الذي أرفقته وعند تشغيله يظهر لي نفس الخطأ . .

هذا هو الخطأ :

{"حدث خطأ أثناء إنشاء النموذج. انظر Exception.InnerException للاطلاع على التفاصيل. الخطأ هو: Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG))"}

للعلمَ آستخدم ويندوز 7 / فيجوال ستوديو 2008

وشكراً

عفوا اخي

كيف اضيف الأداة المرفقة للبرنامج عندي

السلام عليكم ورحمه الله وبركاته

وهذه طريقة اخرى لعرض ملف ورد داخل الفورم عبر الاداة Web Browser

    	Dim typeWord As Type = Type.GetTypeFromProgID("Word.Application")
    	Dim WordApp As Object = Activator.CreateInstance(typeWord)
    	Dim htmlFormat As Integer = 8
    	Dim Docpath As Object() = {"c:\Test.doc"}
    	Dim HtmPath As Object() = {Application.StartupPath & "\WordDoc.HTML", htmlFormat}
    	Dim WordDocs As Object = typeWord.InvokeMember("Documents", Reflection.BindingFlags.GetProperty, Nothing, WordApp, Nothing)
    	Dim doc As Object = WordDocs.GetType.InvokeMember("Open", Reflection.BindingFlags.InvokeMethod, Nothing, WordDocs, Docpath)
    	doc.GetType.InvokeMember("SaveAs", Reflection.BindingFlags.InvokeMethod, Nothing, doc, HtmPath)
    	WordApp.quit()
    	WebBrowser1.Navigate(HtmPath(0))

شكرا