ABRIR WORD DENTRO DE FORM
Boa noite amigos do vbmania !!!
Sou novo aqui no fórum e tenho uma pequena duvida,
Tenho em um formulário 1 campo txt, 1 botão, e uma OLE e tenho em uma pasta vários arquivos no formato word, quero digitar no campo txt o nome do arquivo e clicar no botão e o arquivo respectivo abra na minha OLE .
Teria alguém que pudesse me ajudar.
Desde já agradeço pela ajuda.
Sou novo aqui no fórum e tenho uma pequena duvida,
Tenho em um formulário 1 campo txt, 1 botão, e uma OLE e tenho em uma pasta vários arquivos no formato word, quero digitar no campo txt o nome do arquivo e clicar no botão e o arquivo respectivo abra na minha OLE .
Teria alguém que pudesse me ajudar.
Desde já agradeço pela ajuda.
Tem uma outra forma de abrir o arquivo Word.
Usa o Commondialog.
Se servir.
Eu ou alguém do fórum pode colocar o código.
Sempre aparece um.
Valeu.
Usa o Commondialog.
Se servir.
Eu ou alguém do fórum pode colocar o código.
Sempre aparece um.
Valeu.
Amigo Omar bom dia.
Qualquer ajuda e bem vinda poderia me disponibilizar esta código ou alguém do fórum.
Qualquer ajuda e bem vinda poderia me disponibilizar esta código ou alguém do fórum.
Faça referência do
Microsoft Activex Word 12.0 Object Library
Este é o meu,o seu pode ser diferente.
Adiciona um Commondialog
Coloque isso dentro de um botão.
Dim strFileToOpent As String
Dim word As New word.Application
On Error GoTo Err_CS
With Cdlg
.CancelError = True
.DialogTitle = [Ô]Select image...[Ô]
.Filter = [Ô]Doc Files (DOC(*.doc)|*.doc|Todos [Ô] & [Ô]Arqs. (*.*)|*.*|[Ô]
.ShowOpen
strFileToOpent = .FileName
End With
With word
.Documents.Open Trim(strFileToOpent)
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Exit Sub
Err_CS:
If Err.Number <> 32755 Then [ô]User cancelled
Err.Raise Err.Number, Err.Source, Err.Description
Err.Clear
End If
Foi garimpado na net.
Livre da silva xavier.
Microsoft Activex Word 12.0 Object Library
Este é o meu,o seu pode ser diferente.
Adiciona um Commondialog
Coloque isso dentro de um botão.
Dim strFileToOpent As String
Dim word As New word.Application
On Error GoTo Err_CS
With Cdlg
.CancelError = True
.DialogTitle = [Ô]Select image...[Ô]
.Filter = [Ô]Doc Files (DOC(*.doc)|*.doc|Todos [Ô] & [Ô]Arqs. (*.*)|*.*|[Ô]
.ShowOpen
strFileToOpent = .FileName
End With
With word
.Documents.Open Trim(strFileToOpent)
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Exit Sub
Err_CS:
If Err.Number <> 32755 Then [ô]User cancelled
Err.Raise Err.Number, Err.Source, Err.Description
Err.Clear
End If
Foi garimpado na net.
Livre da silva xavier.
Faça seu login para responder