Getting an error when attempting to use data from access in word document. The error says "Word was unable to read this document. It may be corrupt. Try one or more of the following: Open and repair the file. Open the file with the Text Recovery converter."
The document doesn't have an issue when I open it through word itself, only when I trying running the event procedure in access(I am using Office 2003 sp3). This is what I have written.
Private Sub cmdTransferToWord_Click()
On Error GoTo Err_cmdTransferToWord_Click
Dim oWord As New Word.Application
With oWord
.Documents.Add "Film details.dot"
.Selection.GoTo wdGoToBookmark, , , "bmkFilmTitle"
.Selection.TypeText Me.FilmTitle.Value & "(" & Me.FilmYearReleased.Value & ")"
.Selection.GoTo wdGoToBookmark, , , "bmkDirector"
.Selection.TypeText Me.DirectorFullName.Value
.Selection.GoTo wdGoToBookmark, , , "bmkstudio"
.Selection.TypeText Me.Studio.Value
.Selection.GoTo wdGoToBookmark, , , "bmkRating"
.Selection.TypeText Me.Rating.Value
.Selection.GoTo wdGoToBookmark, , , "bmkMedia"
.Selection.TypeText Me.Media.Value
.Selection.GoTo wdGoToBookmark, , , "bmkPlotOutline"
.Selection.TypeText Me.FilmPlotOutline.Value
.Selection.GoTo wdGoToBookmark, , , "bmkReview"
.Selection.TypeText Me.FilmReview.Value
.Visible = True
End With
Exit_cmdTransferToWord_Click:
Exit Sub
Err_cmdTransferToWord_Click:
MsgBox Err.Description
Resume Exit_cmdTransferToWord_Click
End Sub
The document doesn't have an issue when I open it through word itself, only when I trying running the event procedure in access(I am using Office 2003 sp3). This is what I have written.
Private Sub cmdTransferToWord_Click()
On Error GoTo Err_cmdTransferToWord_Click
Dim oWord As New Word.Application
With oWord
.Documents.Add "Film details.dot"
.Selection.GoTo wdGoToBookmark, , , "bmkFilmTitle"
.Selection.TypeText Me.FilmTitle.Value & "(" & Me.FilmYearReleased.Value & ")"
.Selection.GoTo wdGoToBookmark, , , "bmkDirector"
.Selection.TypeText Me.DirectorFullName.Value
.Selection.GoTo wdGoToBookmark, , , "bmkstudio"
.Selection.TypeText Me.Studio.Value
.Selection.GoTo wdGoToBookmark, , , "bmkRating"
.Selection.TypeText Me.Rating.Value
.Selection.GoTo wdGoToBookmark, , , "bmkMedia"
.Selection.TypeText Me.Media.Value
.Selection.GoTo wdGoToBookmark, , , "bmkPlotOutline"
.Selection.TypeText Me.FilmPlotOutline.Value
.Selection.GoTo wdGoToBookmark, , , "bmkReview"
.Selection.TypeText Me.FilmReview.Value
.Visible = True
End With
Exit_cmdTransferToWord_Click:
Exit Sub
Err_cmdTransferToWord_Click:
MsgBox Err.Description
Resume Exit_cmdTransferToWord_Click
End Sub