PDA

View Full Version : Solved: data to word bookmarks



gibbo1715
10-21-2005, 02:08 AM
Can anyone tell me what im doing wrong with the code below please as it causes an error 424,

I am trying to open a word template and add data to bookmarks contained within

I have established my error is in actually trying to add the data to the bookmarks, the rest of the code works fine (My bookmark names are correct)

Cheers

Gibbo

Dim Word As Object
Dim docWord As Object
Dim Path As String
Dim Test1, Test2, Test3, Test4, Test5 As String
Test1 = UserForm1.TextBox1.Text
Test2 = UserForm1.TextBox2.Text
Test3 = UserForm1.TextBox3.Text
Test4 = UserForm1.TextBox4.Text
Test5 = UserForm1.TextBox5.Text

Path = "F:\VBA Reusable Library\Microsoft Access Stuff\Bookmark.dot"

On Error GoTo ErrorHandler

Set Word = CreateObject("Word.Application")

On Error GoTo ErrorHandler

Set docWord = Word.Documents.Add(Path)

docWord.Bookmarks(Book1.Name).Range.Text = Test1
docWord.Bookmarks(Book2.Name).Range.Text = Test2
docWord.Bookmarks(Book3.Name).Range.Text = Test3
docWord.Bookmarks(Book4.Name).Range.Text = Test4
docWord.Bookmarks(Book5.Name).Range.Text = Test5


'Activate word and display document
With Word
.Visible = True
.ActiveWindow.WindowState = 0
.Activate
End With

'Release the Word object to save memory and exit macro
ErrorExit:
Set Word = Nothing
Exit Sub

'Error Handling routine
ErrorHandler:
If Err Then
MsgBox "Error No: " & Err.Number & "; There is a problem"
If Not Word Is Nothing Then
Word.Quit False
End If
Resume ErrorExit
End If

Bob Phillips
10-21-2005, 02:23 AM
Dim Word As Object
Dim docWord As Object
Dim Path As String
Dim Test1, Test2, Test3, Test4, Test5 As String
Test1 = UserForm1.TextBox1.Text
Test2 = UserForm1.TextBox2.Text
Test3 = UserForm1.TextBox3.Text
Test4 = UserForm1.TextBox4.Text
Test5 = UserForm1.TextBox5.Text

Path = "F:\VBA Reusable Library\Microsoft Access Stuff\Bookmark.dot"

On Error GoTo ErrorHandler

Set Word = CreateObject("Word.Application")

On Error GoTo ErrorHandler

Set docWord = Word.Documents.Add(Path)

docWord.Bookmarks("Book1").Range.Text = Test1
docWord.Bookmarks("Book2").Range.Text = Test2
docWord.Bookmarks("Book3").Range.Text = Test3
docWord.Bookmarks("Book4").Range.Text = Test4
docWord.Bookmarks("Book5").Range.Text = Test5


'Activate word and display document
With Word
.Visible = True
.ActiveWindow.WindowState = 0
.Activate
End With

'Release the Word object to save memory and exit macro
ErrorExit:

Word.Visible = True
Set Word = Nothing
Exit Sub

'Error Handling routine
ErrorHandler:
If Err Then
MsgBox "Error No: " & Err.Number & "; There is a problem"
If Not Word Is Nothing Then
Word.Quit False
End If
Resume ErrorExit
End If

gibbo1715
10-21-2005, 02:36 AM
Thanks

That worked great

Gibbo