[Resolvido]carregar word com senha em um formulário

Bom dia amigos do forum.

Tenho uma aplicação que abre um arquivo do word em um formulário, abaixo segue parte do código que utilizo

Minha duvida é: Como faço para ele funcionar quando o word tiver uma senha de proteção.

Private Sub Form_Load()

   DoCmd.Maximize
   Me.txtDoc.Width = Me.InsideWidth - 200
   Me.txtDoc.Height = Me.InsideHeight - 200
   
   If Application.Version >= 12# Then
       Me.txtDoc.TextFormat = acTextFormatHTMLRichText
   End If
   
Dim dWord As Object, Txt As String

Set dWord = CreateObject("Word.Application")
Txt = CurrentProject.Path & "\Musicas\" & Me.AbrevOrigem & "\" & Me.CódigoMusica & "." & Me.VersãoDoc
dWord.Visible = False
Me.txtDoc = Null

dWord.Documents.Open Txt
dWord.Selection.WholeStory
dWord.Selection.Copy

Me.txtDoc.SetFocus
DoCmd.RunCommand acCmdPaste

Call ATransVazia

Me.txtDoc.SelStart = 0

dWord.Documents.Close
dWord.Quit
Set dWord = Nothing

End Sub

Desde já sou grato por toda ajuda dos colegas.

Adapta ai....

'scandinavo forum maximoaccess 15/07/15
'Codigo para abrir o documento word com senha
Dim x As String
Dim strPassword As Variant
strPassword = "senha" 'senha do doc

x = CurrentProject.Path & "\Contratos Salvos\" & Me.Locador & ".docx"
Dim Word As New Word.Application
With Word
'.Documents.Open x'linha simples
.Documents.Open x, , , , strPassword 'linha com senha
.Visible = True
.Activate
.WindowState = wdWindowStateMaximize
End With

'Libera a memória
Set Word = Nothing
Saida:
Exit Sub



Ate mais

olá scandinavo.

Valeu pela dica, mas revendo minha pergunta percebi que me expressei de forma errada.

O código que estou usando na verdade copia os dados do arquivo word e cola em um controle no form.

Usei sua sugestão em um botão e funcionou abrindo o arquivo direto no word porem não consegui adaptar para copiar os dados do word e colar no controle do meu form

Estou tentando algumas opções para ver se acerto o esquema.

Por enquanto muito obrigado, se conseguir aviso pra fechar o post.

Grato

Tudo bem

poste seu banco de dados e o arquivo word, quem sabe posso ajudar.

Ola Scandinavo, Segue Bd e Word

2 linhas adicionadas e 1 modificada


Dim strPassword As Variant 'linha adicionada
strPassword = "123" 'senha do doc 'linha adicionada

DoCmd.Maximize
Me.txtDoc.Width = Me.InsideWidth - 200
Me.txtDoc.Height = Me.InsideHeight - 200

If Application.Version >= 12# Then
Me.txtDoc.TextFormat = acTextFormatHTMLRichText
End If

Dim dWord As Object, Txt As String

Set dWord = CreateObject("Word.Application")
Txt = CurrentProject.Path & "\Docs\" & Me.CódigoMusica & "." & Me.VersãoDoc

dWord.Visible = False
Me.txtDoc = Null
'dWord.Documents.Open Txt
dWord.Documents.Open Txt, , , , strPassword 'linha modificada
dWord.Selection.WholeStory
dWord.Selection.Copy

Me.txtDoc.SetFocus
DoCmd.RunCommand acCmdPaste

Call ATransVazia

Me.txtDoc.SelStart = 0

dWord.Documents.Close
dWord.Quit
Set dWord = Nothing

HookPrtSc Me.hwnd



Boa sorte

Cara! Maravilha!

Funcionou perfeito, já estou implementando na minha aplicação.

Só posso agradecer pela ajuda.

Valeu e bom proveito.