Run Time error 13 Type mismatch

[JPR]

Hello,
back for some help. Almost finished by project but coming up with a type mismatch error 13 which I just cannot solve.
The code behind my cmdbutton exports date from my form to a MS Word Template.
Data is stored in textboxes and combo boxes. When I run the code I get the error message at the code line which should export data from a combo.

The following codes searches for the template:

strPath = DLookup("[TemplateLocation]", "TablePath", "[TemplateID]='" & Me.[txtpathLetter] & "'")

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.Documents.Add strPath

[/CODE]

This is the code that export data from a text box to the template:

objWord.ActiveDocument.Bookmarks("STATUS").Select
objWord.Selection.Text = Me.STATUS

The error highlights the line: objWord.Selection.Text = Me.STATUS

Data in the field Status is short text.

Appreciate your help. Thank you

 

[theDBguy]

Hi. Status shouldn't be a reserved word but try enclosing it in square brackets just to see if it makes any difference.

 

[gemma-the-husky]

What is status? A named block of text, or the contents of a text box?

Maybe me.status isn't the correct syntax. It sounds a bit strange to me, although I have no experience of manipulating Word

 

[cheekybuddha]

If textbox Me.STATUS is empty, its value might be Null which would cause the type mismatch.

You can also try:

' ...
objWord.Selection.Text = Me.STATUS & vbNullString

 

[The_Doc_Man]

I don't claim to be an expert here, but instead of making the .Text be substituted at the bookmark, have you tried using either the .InsertAfter or .InsertParagraphAfter methods?

 

[JPR]

Hello. I am sorry but have never used the .InsertAfter or .InsertparagraphAfter methods.

 

[arnelgp]

you lack the Range property and you don't need Selection.Text.
also don't you think you need to Open the Word document instead of Add?

objWord.ActiveDocument.Bookmarks("STATUS").Range.Text = Me.STATUS
'objWord.Selection.Text = Me.STATUS

 

[JPR]

hello, I have modified the code replacing the add with the .Range.Text = MeXXXX.
I noticed that the result is the same although not sure what is the main difference between the two lines of code. Thanks