G
Guest
I am using Excel 97 and Word 97. I have the following routine which takes
data from Excel and places it into a word template. It searches for
Bookmarks and inserts the relevant data. I have one or two problems with it
and need some advice please.
1. At the end of the routine Word stays open and the document is not
visible.
2. The document name appears in the Word File menu and can be opened from
here.
3. When the document is opened it does not appear in print layout view, but
has a head/footer window open even though the last data inserted into the
document was placed in the body text of the document. The routine exporting
data from Excel does place some information in the header/footer against
given bookmarks.
Sub ExportToWord()
Dim WordBasic As Word.document
Dim WordFile As String
Dim CurrentDir As String
Dim FileToSave As String
On Error Resume Next
CurrentDir = Application.ActiveWorkbook.Path
FileToSave = Application.GetSaveAsFilename("Document 1 ", filefilter:="Word
Document (*.doc), *.doc")
If FileToSave = "" Then
Exit Sub
End If
' path and name of RT.dot
WordFile = Sheets("settings").Cells(20, 2).Value
Set WordBasic = GetObject(WordFile)
WordBasic.Application.Visible = False
With WordBasic
'ROUTINE STARTS HERE FOR PASTING DATA
If .Bookmarks.Exists("Name") = True Then
.Bookmarks("Name").Select
.ActiveWindow.Selection.text = frmSearch.txtName
End If
'< - Routine searching for bookmarks and inserting data here - >
End With
WordBasic.SaveAs (FileToSave)
Application.StatusBar = False
WordBasic.Application.Visible = True
Set WordBasic = Nothing
End Sub
data from Excel and places it into a word template. It searches for
Bookmarks and inserts the relevant data. I have one or two problems with it
and need some advice please.
1. At the end of the routine Word stays open and the document is not
visible.
2. The document name appears in the Word File menu and can be opened from
here.
3. When the document is opened it does not appear in print layout view, but
has a head/footer window open even though the last data inserted into the
document was placed in the body text of the document. The routine exporting
data from Excel does place some information in the header/footer against
given bookmarks.
Sub ExportToWord()
Dim WordBasic As Word.document
Dim WordFile As String
Dim CurrentDir As String
Dim FileToSave As String
On Error Resume Next
CurrentDir = Application.ActiveWorkbook.Path
FileToSave = Application.GetSaveAsFilename("Document 1 ", filefilter:="Word
Document (*.doc), *.doc")
If FileToSave = "" Then
Exit Sub
End If
' path and name of RT.dot
WordFile = Sheets("settings").Cells(20, 2).Value
Set WordBasic = GetObject(WordFile)
WordBasic.Application.Visible = False
With WordBasic
'ROUTINE STARTS HERE FOR PASTING DATA
If .Bookmarks.Exists("Name") = True Then
.Bookmarks("Name").Select
.ActiveWindow.Selection.text = frmSearch.txtName
End If
'< - Routine searching for bookmarks and inserting data here - >
End With
WordBasic.SaveAs (FileToSave)
Application.StatusBar = False
WordBasic.Application.Visible = True
Set WordBasic = Nothing
End Sub