Código para insersão de dados no Word

[Crafteribanez]

Bom dia, preciso de um help.

 

Tentei através de uns códigos copiados na Web e adaptando, inserir dados de um Userform criado no Word, no próprio documento. Não deu muito certo visto que ele insere os dados sempre no ponto onde está o cursor no documento, nunca no ponto presquisado. Gostaria que fosse no ponto indicado no código pelo método Find, o que não ocorre.

 

Criei um userform, apenas uma caixa de texto e um botão para teste.

 

Se  alguém tiver outro método que dê o mesmo resultado agradeço.

 

Private Sub CommandButton1_Click()

Dim docs1 As word.Document

Set docs1 = ThisDocument

    With docs1
        .Application.Selection.Find.Text = "#resultado"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = Me.TextBox1
    End With


End Sub