Office Word Programming >> Documents.Open Doesnt work on server.

by BSGY » Thu, 08 Jun 2006 19:20:46 GMT

Hello
app.Documents.Open("TEMPLATE.DOC", False, False, False, "", "", False, "",
"") doesnt work on server.
But it is working in my computer.

What is the problem, what can i do ?




Office Word Programming >> Documents.Open Doesnt work on server.

by Jezebel » Thu, 08 Jun 2006 20:38:03 GMT


Does it need the file path?










Office Word Programming >> Documents.Open Doesnt work on server.

by BSGY » Fri, 09 Jun 2006 13:32:33 GMT

NO, it doesnt, path is right.
I thing , this is about permission error. But what kind permission :)
Folder has got full permission.









Similar Threads

1. i open an older word version document but it doesnt want to work

i open an older word version document but it doesnt want to work .. i get 
weird characters ... whats wrong?

2. 'doubleclicking douments to open doesnt work on any office pro - Word Document management

3. Spell check doesnt work on SOME documents, does on others

> I had this happen and it took me a while to figure out. In my case, there were documents created by others that were set to a language that my copy of Word did not recognize even though it was defined as English. I had to select the entire document, then go into Tools/Language, choose English (US) and then uncheck the box that says don't check spelling at the bottom.

4. automatic document feeder doesnt work - Microsoft Office

5. Word 2003 Works - Word XP Doesnt Work !!!! Argh

Arrrghh

I got  a problem on a template i designed for a friend to help him to does 
timesheet.

I wrote it under word 2003 and he has word xp

I have had no problems with it under 2003... but get this error on the word 
xp machine.

I am self taught programmer and it will be something i have done but cant 
find enough infomation of why .

A brief description on the document is a

Template

3 tables

    table 1 = date / contract
    table 2 = enter the hours for each day
    table 3 = a table which is within a frame (so it keep at the bottom of 
the page) - prob could has used the footer..

table 3 = the caculation on the other data.

I know it works because it does on mine.

I know i am select the cell but not deleting it (only inserting data in to 
each cell - technically an overwrite)

The error is 6028 cannot  delete range

I spent a whole night trying to come close on figure on what to do or how to 
do it..
I am novice programmer.. and quite happy to share the document..

The snippet of code where it falls over is below

Please help me....
This is the full routine and it falls over on the section i have labeled 
with stars

Thanks..

Private Sub LWPCalculate()

Dim tblToUpdateHours As Word.Table
Dim tblToUpdateTotals As Word.Table

Dim intFirstUsableRow As Integer
Dim intRows As Integer
Dim intCols As Integer

Dim dblRowHours As Double
Dim dblTotalHours As Double

Dim dblVatRate As Double
Dim dblRatePerHour As Double
Dim dblNotDefaultRate As Double
Dim dblVatTotal As Double
Dim dblInvoiceTotal As Double
Dim dblCISdeduction As Double
Dim dblWagesTotal As Double

Dim strVatRate As String
Dim strHours As String

Application.ScreenUpdating = False

'Select the table

Set tblToUpdateHours = ActiveDocument.Tables(2)
Set tblToUpdateTotals = ActiveDocument.Tables(3)

With tblToUpdateHours

    'Does table have a header row

    intFirstUsableRow = 1
    If .Rows.HeadingFormat Then
      intFirstUsableRow = intFirstUsableRow + 2
    End If

    ' Go Through Each Row

    For intRows = intFirstUsableRow To .Rows.Count
      For intCols = 2 To ((.Columns.Count) - 1)
        strHours = Left$((.Cell(intRows, intCols).Range.Text), 
Len(.Cell(intRows, intCols).Range.Text) - 2)
        dblTotalHours = Val(dblTotalHours) + Val(strHours)
      Next
    .Cell(intRows, intCols).Range.Text = dblTotalHours
    Next
End With

With tblToUpdateTotals

 If IsNull(StrRatePerHour) = False Then
    StrRatePerHour = 18
End If

 dblRatePerHour = Val(StrRatePerHour)
 dblVatRate = 0.175

 dblWagesTotal = (dblTotalHours * dblRatePerHour)
 dblCISdeduction = (dblWagesTotal * -0.18)
 dblVatTotal = (dblWagesTotal * dblVatRate)

 dblInvoiceTotal = (dblWagesTotal + dblCISdeduction)

'*******************************************
' Routines Falls over below at the writing of the data back.
**************************************'*****

 .Cell(1, 2).Range.Text = dblTotalHours
 .Cell(2, 2).Range.Text = FormatCurrency(dblRatePerHour, 2, vbTrue, vbFalse, 
vbTrue)
 .Cell(3, 2).Range.Text = FormatCurrency(dblWagesTotal, 2, vbTrue, vbFalse, 
vbTrue)
 .Cell(4, 2).Range.Text = FormatCurrency(dblCISdeduction, 2, vbTrue, 
vbFalse, vbTrue)
 .Cell(6, 2).Range.Text = FormatCurrency(dblVatTotal, 2, vbTrue, vbFalse, 
vbTrue)
 .Cell(5, 2).Range.Text = FormatCurrency(dblInvoiceTotal, 2, vbTrue, 
vbFalse, vbTrue)


      End With

 ' Move To Start Of Row On The Last Line Of Table

  ActiveDocument.Tables(1).Rows(ActiveDocument.Tables(1).Rows.Count).Cells(1).Range.Select
  Selection.Collapse wdCollapseStart

  Application.ScreenRefresh
  Application.ScreenUpdating = True

End Sub




6. Document Name Doesnt Reflect what is Opened - Word VBA

7. Word 2007 doesnt open files after I open outlook 2007

I started to have the wierdest problem today.  I open up Outlook 2007 and 
dont seem to be able to open word attachments from outlook.  I then tried to 
close  outlook 2007 and just open word without specifying a file and it fails 
as well.  It says something about the program has stopped working and will 
look for a solution.  It says its trying to restart...it never does.  

I have figured out that if I restart, dont open outlook than word works just 
fine.  If I open outlook word stops working all together.  

Why is this happening....should this stuff just work!  I am running Vista 
Ultimate and Office 2007.  I have also run the office diagnostic and it 
doesnt show any problems.

Please help........

Bob

8. Unable to open some menu when open word document stored in web server with IE6 - Internet Explorer(IE)