مشكلة في طريقة تغيير لون خلفية الشكل في الوورد عن طريق الاكسس

[أبو نادر]

السلام عليكم احبابي

 

عندي هذا الشكل في الوورد

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

Function asa()

Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String

On Error Resume Next
Error.clear

Set appword = GetObject(, "word application")
If Err.number <> 0 Then
Set appword = New Word.Application
appword.Visible = False
End If
path = "\\ip\1-11\V-document\afrad\M-VACATION-D.docx"

Set doc = appword.Documents.Open(path, , True)
With doc

.Shapes("a99").Fill.BackColor.RGB = RGB(0, 0, 0)

appword.Visible = False
appword.Activate
End With
Set doc = Nothing
'Set appword = Nothing
appword.ActiveDocument.Saved = True
appword.Quit
End Function

الكود تبع :   Shapes("a99").
 

ولكن لم يتغير اللون

حاولت اعرف طريقة لمعرفة اسم الشكل وحددت الشكل في الوورد وذهبت لجزء التحديد وغير الاسم كالتالي :

 

 

ولم تفلح النتيجه 

 

أين الخلل يا خبراء ... وما هي طريقة معرفة اسم الشكل الصحيحه ؟

[ابوخليل]

انظر آخر مشاركة في هذا الرابط

 

[أبو نادر]

يعطيك العافيه يبو خليل

المشكله كيف جاب اسم الشكل وكتب  

Rounded Rectangle 1

[ابوخليل]

يابو نادر  لو وضعت مثال للتطبيق نجرب عليه

 

[أبو نادر]

ابشر يا وحش .. اذا رجعت البيت بارفق مثال

[أبو نادر]

تفضل يبو خليل

مرجع الوورد عندي  15

الوورد في   D

 

 

shape_test.rar

[ابوخليل]

يابو نادر  حاولت .. جبتها يمين  .. يسار .. ولم اصل الى حل

 يبي لها تفرغ .. وسعة صدر

والسؤال هو ليه ما تجعل عملك على اكسس ؟ فامكانيات التقارير  افضل ولا تقارن بوورد .

[أبو نادر]

بيض الله وجهك وما قصرت يبو خليل

وكل عام وانت وجميع الاعضاء بخير

........

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

بعد العيد برسلك نموذج وورد رسمي وابيك تلقي نظره 

[رمهان]

عزيزي

انت تحاول وضع الخلفية اسود 

حاول ان تغير ثيم المربع الى اي لون ثم جرب نفس كودك واسم المربع nnnn 

حاول وهناك حل مختصر ان شاء الله

تحياتي

تم تعديل سبتمبر 8, 2017 بواسطه رمهان

[أبو نادر]

اخوي رمهان ... ما زبط

هذا سؤالي للأفرنجه بهالرابط 

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_access-mso_win10-mso_2013_release/filling-the-shapes-background-color-in-word-by/cfc63cc7-99e4-4160-89ee-703c33ae97a7?tm=1504373700941&auth=1

 

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

مثلا ( المغرب والصين ) ... او ( مصر وجزر المالديف ) ....

بتتيسر ان شاء الله

[رمهان]

اخي ابا نادر

شكرا على ثقتك باخوتك هنا اكثر من الغرب وبالموقع السابق

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

Private Sub print_Click()
Set obj = CreateObject("Word.Application")
obj.Visible = True
obj.Documents.Open "path"
obj.ActiveDocument.Shapes("nnnn").Fill.ForeColor.RGB = RGB(0, 0, 0)
obj.ActiveDocument.Close SaveChanges:=wdSaveChanges
obj.Quit
End Sub

تنبيهات قبل التنفيذ:

1. حاول ان تغير الثيم او الخلفية للمربع المقصود nnnn  حيث اكتشفت ان به مشكلة تتطلب اعادة اللون عن طريق التنسيق او اعادة الانشاء ثم احفظ المستند

2. غير المسار الصحيح بديلا للكلمة path  في الكود اعلاه

ان شاء الله يتم المطلوب وبالتوفيق

[أبو نادر]

16 ساعات مضت, رمهان said:

 

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

 

ما شاء الله عليك اخوي رمهان كودك نجح 

 

[أبو نادر]

الحمد لله تم جل المشكلة بعد تخبييييص طويل  

 

شكرا لكل من ساهم في المساعده أبو خليل ورمهان الوحووووش.... الله يجزاكم خير

اخ رمهان يأست فعلاً من وجود حل ... ولولا الله ثم مشاركتك لما تم الحل ...

...........

ارجو النظر في الكود ... هل تخبيصي سيأتي بمشكلة مستقبلاً

Private Sub ÃãÑ73_Click()


Dim appword As Word.Application
Dim path As String

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


path = "D:\nnnn.docx"

appword.Documents.Open (path)

Set doc = appword

   With doc

.ActiveDocument.Shapes("geg").Fill.ForeColor.RGB = RGB(205, 205, 0)

    
    
appword.Visible = True
appword.Activate

End With




Set appword = Nothing

doc.ActiveDocument.Close savechanges:=wdSaveChanges

doc.Quit

End Sub

 

[رمهان]

حياك الله ابو نادر

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

تحياتي

[أبو نادر]

تدري ان المشكله طلعت هنا :

(path, , True)

اذا خليتها  (path)  تزبط

هل الأولى تفنح الوورد للقراءه فقط وعشان كذا ما يقبل تغيير اللون .. والثانية العكس ؟  لا علم لي

..........

وهل هناك طريقة لتفادي إضافة المرجع  ؟