منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ادراج وورد الى النموذج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ادراج وورد الى النموذج (/showthread.php?tid=17607)

ادراج وورد الى النموذج - shakersaleh - 09-10-16

كيف يمكنني وضع برنامج وورد على النموذج ولكم جزيل الشكر

RE: ادراج وورد الى النموذج - AL_BRNS - 12-11-16

السلام عليكم

جرب التالي

PHP كود :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
Dim Counter, A As Long
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
X = Wrd.Documents.Open(App.Path & "\word.doc", , 1)
Counter = 1
Do While Counter > 0
A = FindWindow("OpusApp", vbNullString)
Counter = A
If A Then
X1 = SetParent(A, Me.hwnd)
End If
Loop
End Sub 


بالتوفيق .