Update Word document

[texasalynn]

I have this code but it is not working. It says that it can't find the bookmark, yet I have the bookmark on the Word document. I've looked at this but am not seeing why it doesn't work?

Private Sub SendPI_Form()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim MyWord As Object

'On Error GoTo Fixit
Set MyWord = CreateObject("Word.Application")
MyWord.ChangeFileOpenDirectory "S:\REPORTING ANALYSIS\Reporting Tools\Macros"
MyWord.Documents.Open Filename:="Temp Open Tops.doc"
MyWord.Visible = True

With MyWord.Selection

'Insert text into word document by user at bookmark (placeholders) locations
.Goto What:=wdGoToBookmark, Name:=RequestedBy
.TypeText Range("RequestedBy").Value

.Goto What:=wdGoToBookmark, Name:=Date
.TypeText Range("Date").Value

....more stuff 
End Sub

Thanks for taking a look

 

[Damon Ostrander]

Hi tex,

I don't see where you have declared RequestedBy as a variable or set its value. If RequestedBy is the name of the bookmark rather than a string variable containing the name, it should be enclosed in quotes. If it is a variable there should be a

Dim RequestedBy As String

.
.
.

RequestedBy = "mybookmarkname"

Damon

 

[texasalynn]

I swear I had tried that and it didn't work either, but today it is. Thanks for the help.

One more thing, I have a date bookmark, but get a type mismatch. Not seeing why

 

[Damon Ostrander]

Hi again tex,

I can't be sure without knowing what line of code is producing the error, but it looks to me like

.Goto What:=wdGoToBookmark, Name:=Date

is the offending line because the Excel Date function does not give a text string like Goto is expecting, but rather a number--which gets formatted as a text string date when printed. The problem should be cured by forcing the date to be converted to a text string:

.Goto What:=wdGoToBookmark, Name:=CStr(Date)

In addition, I recommend that you change

.TypeText Range("Date").Value

to

.TypeText Range("Date").Text

to ensure that the text entered is the text string date rather than the numerical date (i.e., days elapsed since 1900).

Keep Excelling.

Damon

 

[texasalynn]

excellent!!!!!! That did the trick