D
duBedat68
I have a template document that has a number of bookmarks throughtout it.
I have a UserForm that autoloads & requests the information.
When the User presses the SUBMIT button, the form text is supposed to be
transferred to specific BOOKMARKS in the document.
However, I find that the text is just inserted at the beginning of the
document, not at the required bookmarks.
I have previously made similar documents without any problems, but this one
seems to be giving me trouble. I have checked the code of this one against
other working examples & all appears to be correct.
*********************************
Private Sub cmdSubmit_Click()
strInterviewDate = txtDate.Value
strInterviewTime = txtTimeCommenced.Value
strInterviewPlace = cmbPlace.Value
strInvestigator = cmbInvestigator.Value
strInterviewee = txtInterviewee.Value
strOtherPerson1 = txtOtherPerson1.Value
strOtherPerson2 = txtOtherPerson2.Value
Selection.GoTo What = wdGoToBookmark, Name = "bmkInterviewPlace"
Selection.TypeText Text:=strInterviewPlace
frmROIDetails.Hide
End Sub
***********************************
Any advice would be greatly appreciated
duBe
I have a UserForm that autoloads & requests the information.
When the User presses the SUBMIT button, the form text is supposed to be
transferred to specific BOOKMARKS in the document.
However, I find that the text is just inserted at the beginning of the
document, not at the required bookmarks.
I have previously made similar documents without any problems, but this one
seems to be giving me trouble. I have checked the code of this one against
other working examples & all appears to be correct.
*********************************
Private Sub cmdSubmit_Click()
strInterviewDate = txtDate.Value
strInterviewTime = txtTimeCommenced.Value
strInterviewPlace = cmbPlace.Value
strInvestigator = cmbInvestigator.Value
strInterviewee = txtInterviewee.Value
strOtherPerson1 = txtOtherPerson1.Value
strOtherPerson2 = txtOtherPerson2.Value
Selection.GoTo What = wdGoToBookmark, Name = "bmkInterviewPlace"
Selection.TypeText Text:=strInterviewPlace
frmROIDetails.Hide
End Sub
***********************************
Any advice would be greatly appreciated
duBe