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 ?
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