VBA CODE error Invalid procedure call or argument

[مى الكيال]

تم عمل Form تقوم بفتح ملف word بالضغط على command button

تم كتابة الكود بشكل صحيح على النحو التالى

Option compar database

Function openword (conpath as string)

Dim appword as word.application

Dim doc as word.document

On error resume next

Error.clear

Set appword = getobject(,"word.application")

If err.number <> 0 then

Set appword = new word.application

Appword.visible = true

End if

Set doc = appword.document.open(conpath, ,true)

Appword.visible = true

Appword.activate

Set doc = nothing

Set appword = nothing

End function

Private sub command1_click()

Dim mydoc as string

Mydoc = "D:\التوثيق\استعجال العشرون الاوائل.docx"

Call openword(mydoc)

Endsub

 

وعند التنفيذ تظهر رسالة خطأ 

Invalid procedure call or argument

وبالضغط عليها يتضح الخطأ كما هو موضح بالصورة

ولكن لا اعلم ماهى المشكلة

ارجو المساعدة

 

 

 

[عبد الفتاح كيرة]

ممكن الملف مفتوح أو موجود مسبقا بنفس الاسم

[مى الكيال]

الملف غير مفتوح وموجود بالمكان الذى حددته بالكود ولا يوجد غيره

[jjafferr]

السلام عليكم 

 

اختي انتي لديك هذه الاسطر:

Dim appword as word.application
Dim doc as word.document

 

فهذا معناه انك يجب ان تختارين:

VBA > Tools > Reference > Microsoft Word xx.x object Library

فهل تم اختيار المرجع اعلاه؟

 

الطريقة الاخرى التي تستطيعين استعمالها ، وبدون الرجوع لمرجع ، هي تغيير هذه الاسطر بالتالي (ولكن بعض الاوقات بعض الاوامر في الكود لن تعمل بهذه الطريقة):

Dim appword as object 'word.application
Dim doc as object 'word.document

 

جعفر

[مى الكيال]

 

المرجع موجود اخى ومظبوط

ارجو ان حضرتك تفيدنى بالكود الصحيح اللى يشتغل فى كل الاوقات

تم تعديل فبراير 12, 2016 بواسطه مى الكيال

[jjafferr]

رجاء ارفاق قاعدة بياناتك 

[zahrah2016]

تفضلي أختي الكريمه : مي الكيال

قاعدة بيانات بها نموذج وتفتح لك ملف وورد بناء على طلبك

بالتوفيق

 

اخي الغالي : جعفر

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

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

اختكم : زهره محمد العبدالله ( أم عهود )

 

zahrah.rar

[jjafferr]

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

 

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

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

 

اسعدتيني بوجودك معانا بعد هالغيبة الطويلة 

 

 

جعفر

[أبو عبدالله الحلوانى]

40 دقائق مضت, jjafferr said:

اسعدتيني بوجودك معانا بعد هالغيبة الطويلة 

حللتى أهلا ونزلتى سهلا ومرحبا بوجودك الكريم بيننا من جديد 

قد أفدت جدا من أعمال حضرتك القيمة والتى أسأل الله أن يجعلها بموازين حسناتك إن  شاء الله 

وبانتظار ابداعا جديدا قريبا 

[ابوخليل]

       
  يامرحبـا عـد النجــــــوم بسمانـا            ومع جيتــــك عـم الفـرح منتدانـا  

 

 

[عبدالله المجرب]

نور المنتدى بقدوم الاستاذة زهرة

[محمد طاهر عرفه]

السلام عليكم

الأخت زهرة

سعدنا  جميعا بعودتك للمشاركة 

الحساب القديم موجود

http://www.officena.net/ib/profile/5674-zahrah/

 

هل أقوم بدمجه ؟

 

[wael_rafat]

الف مليون مرحبا للاستاذة الفاضلة .. الغالية.. الكريمة.......الخ  ام عهود نورتي الدنيا كلها .....  ودائما حاضرة باعمالك وربنا يجزيكي عنا كل خير 

تم تعديل فبراير 13, 2016 بواسطه wael_rafat

[ابو محمد2]

 

السلام عليكم

اهلا بعودتكم الغاليه

اهلا بطيبة الذكر

 

 

 

[zahrah2016]

31 دقائق مضت, محمد طاهر said:

السلام عليكم

الأخت زهرة

سعدنا  جميعا بعودتك للمشاركة 

الحساب القديم موجود

http://www.officena.net/ib/profile/5674-zahrah/

 

هل أقوم بدمجه ؟

 

اخواني الكرام

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

بارك الله بكم جميعا واخص بالذكر استاذي ومعلمي المهندس محمد طاهر فقد جمعتني به ذكريات سابقه على مدى 15 سنه من البرمجه

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

 

استاذي الكريم محمد طاهر

لطفاً لا أمراً اذا بالإمكان دمج الحسابين القديم مع الجديد فأكون في غاية الشكر والإمتنان والعرفان لشخصكم الكريم

 

مع خالص الشكر والتقدير

[رمهان]

لا لا مش مصدق .. ماشاء الله تبارك الله 

وعودا حميدا لزهرة الاكسس ..

ونبارك للمنتدى عودتها ومشاركتها ..

ويبدو في عودتها سيعود اعضاء كثر 

بارك الله في الجميع

[jjafferr]

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

يا رجال وينك من زمان 

 

جعفر

[wael_rafat]

ماشاء الله....   ايه الجمال دا ...  عودا حميدا استاذنا الجميل رمهان .

 

[محمد طاهر عرفه]

السلام عليكم

تم دمج الحسابين في الحساب الجديد ،

مع كل الشكر و التقدير

[محمد سلامة]

السلام عليكم

الدكتورة زهرة

والاستاذ رمهان

والأستاذ ابو ادم ايضا ظهر اليوم في مشاركة اخري

الف حمدا وشكرا لله علي عودتكم

[عبد الفتاح كيرة]

الظاهر أن الجو فى شهر فبراير 

يفتح نفس الناس و يرجعهم لهواياتهم و إبداعاتهم

أتكلم عن نفسى أولا

حدث ذلك معى مرات

[حربي العنزي]

الحمد لله والشكر لله على عودتك زهرة الخير سائلين المولى عز وعلا ان يمن عليك وعلى عائلتك الكريمة وعلى بلدك الاغر بالصحة والعافية والسلام الامن 

والستر في الدنيا والاخرة يارب 

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