Deu certo. Vlw! Mas agora está dando erro na parte abaixo e na linha do código ".TypeParagraph":
With objSelection '<--| reference 'Selection' object
For i = 2 To 94
.TypeParagraph
.Style = objWord.ActiveDocument.Styles("Heading 3")
.TypeText text:=myRange(i, 2).text
Next
End With
Mensagem do erro: "Run-time error '438' Object doesn't support this property or method"
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E