Boas,

Estou tentanto guardar em uma pasta varios documentos Word que o Excel vai buscar a informação a cada linha do mesmo, e grava em formato Word dentro de uma pasta para futuro envio .

Tenho o codigo para guardar os documentos Word atraves desse Excel, mas dá-me sempre um erro ( Run-Time "5941" O membro da colecção pedido não existe)..

Fiquei para , preso, por perceber muito pouco de VBA. Alguem ajuda por-favor... Segue o codigo
Sub MalaDiretaSalvar()

Dim ws As Worksheet
Dim n As Long
Dim r As Long, rLast As Long
Dim c As Long, cLast As Long
Dim appWord As Word.Application
Dim doc As Word.Document

Set ws = ActiveSheet

'Cria-se um objeto Aplicação Word
Set appWord = CreateObject("Word.Application")

'É recomendável deixar a linha abaixo para evitarmos processos pendurados
'em caso de erros. Se estiver seguro do código, você pode remover a linha.
appWord.Visible = True

With ws
'Obtém última linha e última coluna da Planilha
rLast = .Cells(.Rows.Count, "A").End(xlUp).Row
cLast = .Cells(1, .Columns.Count).End(xlToLeft).Column

For r = 2 To rLast
Set doc = appWord.Documents.Open(Filename:="\terraUSERSLUIS.ALONSODownloadsmodelo.docx")
'Substitui os Indicadores pelos valores da Planilha
For c = 1 To cLast
doc.Bookmarks(.Cells(1, c)).Range.Text = .Cells(r, c)
Next c
n = n + 1
'Salva e fecha o Documento
doc.SaveAs2 Filename:="\terraUSERSLUIS.ALONSODownloads" & Format(n, "000"), FileFormat:=wdFormatXMLDocument
doc.Close
Next r
End With

End Sub

Ele abre o Word, mas fica com esse erro do menbro .. a minha tabela de excel está assim

PrimeiroNome SegundoNome Idade Email Cidade
Felipe Gualberto 27 [email protected] Belo Horizonte
Renata Costa 29 [email protected] Juiz de Fora
Rodrigo José 32 [email protected] Aracaju

E tenho a pedir os campos de nome,segundo nome , idade e email no Word, apontando para esse Excel acima. Se no Word previsualizar os campos eles aparecem , vai buscar ao excel.

Obrigado.