Doc File saving

[ieesab]

i am generating reports as DOC files. I have a problem that i want to save a document as doc file in a folder in the program directory where there is application that is it should use app.path and then the folder name. In the sample below i have to specify the folder location while i want to use app.path. Any help regarding this

Dim wordapp As Word.Application
Dim thisdoc As Document
Dim thisrange As Range
Set wordapp = CreateObject("word.application")
If wordapp Is Nothing Then
MsgBox "could notstart word"
End If
wordapp.Documents.Open App.Path & "\templates\SM-00.dot"
Set thisdoc = wordapp.ActiveDocument
thisdoc.FormFields(1).Result = txtName.Text
thisdoc.FormFields(2).Result = txtNo.Text
thisdoc.FormFields(3).Result = txtRef.Text
thisdoc.FormFields(4).Result = mskDate.Text
thisdoc.FormFields(5).Result = txtSpec.Text
thisdoc.FormFields(6).Result = txtZN.Text
thisdoc.FormFields(7).Result = txtGm.Text
thisdoc.FormFields(8).Result = txtKOH.Text


thisdoc.SaveAs "d:\Reports\SM-" & txtNo.Text & ".doc"
MsgBox " Doc is saved"
wordapp.Quit
Set wordapp = Nothing
Set thisdoc = Nothing


"d:\Reports, this should be as App.path & \Reports....

[si_the_geek]

Here you go:

thisdoc.SaveAs app.path & "\Reports\SM-" & txtNo.Text & ".doc"

[fifo]

But I want to add some object such as table, line in this doc. How can I do now? Please show me.

[cssriraman]

If you want to add a table you can use the following code:

'This example sets myRange equal to the contents of the active document, collapses myRange, and then inserts a 2x2 table at the end of the document.
 
Set myRange = ThisDoc.Content
myRange.Collapse Direction:=wdCollapseEnd
ThisDoc.Tables.Add Range:=myRange, NumRows:=2, NumColumns:=2
 
'This example creates a 5x5 table in the active document and then applies a predefined format to it.
 
Selection.Collapse Direction:=wdCollapseStart
Set myTable = ThisDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatClassic2
        
'This example inserts numbers and text into the first column of the first table in the active document.
 
num = 90
For Each acell In ThisDoc.Tables(1).Columns(1).Cells
    acell.Range.Text = num & " Sales"
    num = num + 1
Next acell

[fifo]

very cool! thanks