É o mesmo código do tópico anterior Rafael... você só tem que inserir e formatar o conteúdo.

Se o outro tópico foi resolvido, marque-o como resolvido.

Sub CriarDocWord()

    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim QtyParag As Long
    
    '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
    
    With wrdDoc
    
        'insere o conteúdo
        .Content.InsertAfter "Este é o título"
        .Content.InsertParagraphAfter
        
        .Content.InsertAfter "Este é o primeiro parágrafo"
        .Content.InsertParagraphAfter
        
        .Content.InsertAfter "Este é o terceiro parágrafo"
        .Content.InsertParagraphAfter
        
        'inform2 o parágrafo que quer formatar
        Set parag = .Paragraphs(1)
        
        With parag
            .Range.Font.Name = "Times New Roman"
            .Range.Font.Size = 20
            .Range.Font.Bold = True
            .Range.Font.Color = RGB(200, 0, 0)
            .Alignment = wdAlignParagraphCenter
        
        End With
        
        'salva o arquivo no caminho especificado
        .SaveAs ("D:Nome do Arquivo.docx")
        '.Close 'fecha o arquivo - descomente a linha se quiser fechar
    
    End With
    
    'wrdApp.Quit 'fecha a aplicação  descomente a linha se quiser fechar
    
    wrdApp.Activate 'ativa a janela. Se fechar o aplicativo na linha anterior, comente esta linha
    
    'limpa as variáveis
    Set wrdDoc = Nothing
    Set wrdApp = Nothing

End Sub

Boa tarde leander, só queria saber o comando de quebra de linha se o arquivo estiver preenchido e inserir um logotipo do lado esquero do titulo pode ser ?

obrigado,

Rafael

Rafael, .Content.InsertAfter já insere ao final do arquivo. Como o arquivo novo não tem nada, ele insere no início.

Esses comandos já são mais do VBA para WORD (não sou tão especialista, conheço o básico de manipulação de arquivos WORD)

Dê uma pesquisada melhor no Google.

Aqui um artigo pra ajudar.

http://infochartbernardes.blogspot.com. ... -word.html