Vou partir do princípio que você já sabe verificar se o arquivo existe. O código abaixo serve apenas para criar o arquivo do word.

Sub CriarDocWord()

    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    
    'cria a aplicação do Word
    Set wrdApp = CreateObject("Word.Application")
    
    'na linha abaixo, altere para false
    'se você não quiser ver a aplicação do  word
    wrdApp.Visible = True
    
    'cria um novo arquivo word
    Set wrdDoc = wrdApp.Documents.Add
    
    'salva o arquivo no caminho especificado
    wrdDoc.SaveAs ("C:Nome do Arquivo.docx")
    wrdDoc.Close 'fecha o arquivo

    wrdApp.Quit 'fecha a aplicação
    
    'limpa as variáveis
    Set wrdDoc = Nothing
    Set wrdApp = Nothing

End Sub

Importante: Você deve fazer referência a biblioteca do Word. Clique em Ferramentas → Referências e procure pelo Word.

Não funcionou !!! E para abrir um novo documento caso não existir o cliente ???

Obrigado,

Rafael

Anexe o seu arquivo para que eu possa tentar identificar o erro. Testei o código acima está criando o arquivo normalmente.

Pode me enviar o seu e.mail para lhe passar o link ? obrigado!!

Veja se o código do arquivo em anexo funciona...

Como eu faço para abrir um arquivo word já existente ???

Ao invés de usar o método Add para criar um novo documento, utilize o método Open para abrir.

Set wrdDoc = wrdApp.Documents.Open("C:Nome do Arquivo.docx")

E para a tela do word ficar ativa (abir a tela do word!!!) ela fica minimizada na barra de tarefas!!!

obrigado!!!

Como que faço agora quando a pessoa for editar o arquivo ela quebre uma linha caso a folha já esteja preenchida (caso não esteja, preencha nesta folha) e preencha um tipo cabeçalho com o nome da clinica, nome do paciente, data da consulta, hora da consulta ?

obrigado,

Esqueci de falar esse cabeçalho é centralizado!!!