Type Text in Word from Access VBA

Question

Hi

I'm a novice in using Access VBA to do things in Word and would like some code that will type into word. I have the following as a starting point and although it runs through without error, I cannot see the text in the resulting Word doc. What am I doing wrong? Thanks in advance.

Dim MyWord As Word.Application, MyDoc As Word.Document, MySelection As Selection

Set MyWord = New Word.Application
Set MyDoc = MyWord.Documents.Add
Set MySelection = Word.Selection

MyWord.Visible = True

MySelection.TypeText ("Project Status Report")
MySelection.TypeParagraph

End Sub

Answer 1

Hi VB80,

try this:

Public Sub WriteToWord()
Dim MyWord As Word.Application, MyDoc As Word.Document, MySelection As Word.Selection

Set MyWord = New Word.Application
Set MyDoc = MyWord.Documents.Add

MyWord.Visible = True

Set MySelection = MyDoc.ActiveWindow.Selection
MySelection.TypeText ("Project Status Report")
MySelection.TypeParagraph

End Sub

---

Cinzia

---

Sito RIO
Il mio Blog

Answer 2

thank you cinzia, I'm just starting this project so may have further questions. This is great! :-)