PDA

View Full Version : dll word



abi_sarab
سه شنبه 30 مهر 1387, 09:01 صبح
سلام
کسی می تونه dll word رو برام بذاره؟
می خوام فایل ورد رو تو vb.net داخل یه richtextbox باز کنم.
می شه کمک کنید؟

taghvajou
یک شنبه 12 آبان 1387, 16:29 عصر
سلام
منم نیاز دارم تا داخل یکی از برنامه هام بتونم اجراش کنم و بشه داخلش متن نوشت؟
ممنون

Afshin160
یک شنبه 12 آبان 1387, 17:32 عصر
سلام ...

من درست متوجه منظورتون نشدم ولي اگر منظور شما ساختن و نوشتن تو يه فايل word كه فكر ميكنم بشه با اين كد كارتون رو راه بندازيد ...

rooshan2008
دوشنبه 13 آبان 1387, 00:38 صبح
سلام
با این کد می تونی برنامه ورد رو داخل پنجره خودت باز کنی و فایل رو ویرایش کنید:

این هم کدش:




Public WD As New Object

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Integer) As Integer

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer

Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer

Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer) As Integer

Dim wdHwnd As Long

Private Sub ShowWord1(Optional ByVal filename As String = "")
Dim m1 As Integer

'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)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShowWord1("c:\000.doc")
End Sub