سلام
با این کد می تونی برنامه ورد رو داخل پنجره خودت باز کنی و فایل رو ویرایش کنید:
این هم کدش:
Public WD As NewObject
PublicDeclare Function SetWindowRgn Lib "user32" (ByVal hwnd AsInteger, ByVal hRgn As Integer, ByVal bRedraw As Boolean) AsInteger
PublicDeclareFunction ShowWindow Lib"user32" (ByVal hwnd As Integer, ByVal nCmdShow AsInteger) AsInteger
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd AsInteger) As Integer
PublicDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsInteger
PublicDeclareFunction SetParent Lib"user32" (ByVal hWndChild AsInteger, ByVal hWndNewParent AsInteger) AsInteger
PublicDeclareFunction CreateRectRgn Lib"gdi32" (ByVal X1 AsInteger, ByVal Y1 AsInteger, ByVal X2 AsInteger, ByVal Y2 AsInteger) AsInteger
PublicDeclareFunction MoveWindow Lib"user32" (ByVal hwnd AsInteger, ByVal X AsInteger, ByVal Y AsInteger, ByVal nWidth AsInteger, ByVal nHeight As Integer, ByVal bRepaint As Integer) AsInteger
Dim wdHwnd AsLong
PrivateSub ShowWord1(Optional ByVal filename AsString = "")
Dim m1 AsInteger
'On Error Resume Next
Shell(
"tskill winword")
WD = CreateObject("Word.Application")
WD.Caption = "besuretofindthisinstance"
wdHwnd = FindWindow(
"OpusApp", WD.Caption)
BringWindowToTop(wdHwnd)
SetParent(wdHwnd, Me.Handle)
ShowWindow(wdHwnd, 3)
WD.Documents.Open(filename)
WD.CommandBars("Menu Bar").Enabled = False
WD.CommandBars(
"Standard").Visible = False
WD.CommandBars(
"Tables and Borders").Visible = False
WD.CommandBars(
"View").Controls(3).Execute()
'WD.CommandBars("Document Recovery").Visible = False
WD.ActiveWindow.DisplayVerticalRuler =
True
WD.ActiveWindow.DisplayRulers =
True
m1 = CreateRectRgn(3, 30, (
Me.Width) - 2, Me.Height)
MoveWindow(wdHwnd, 0, -10, Me.Width, Me.Height + 20, 1)
SetWindowRgn(wdHwnd, m1, True)
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowWord1("c:\000.doc")
EndSub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول