Replies

Now here is a funny thing
Drive is mapped
File previously showing drive letter in path name.

Open the document by specifying UNC in the Name box of Open Dialog Box and whammy, path shows UNC in Hdr/ftr.

Close & open doc from recent file list and still the hdr displays the UNC

I give up for now
Geof

Hi Tony
What happens if you insert the path from the Autotext button in the Hdr/Ftr tool bar ?

Are the two pc’s using same set ups ?
Geof

Hi
I think you will find that if you map a drive then the the letter assigned will appear in the path.

You can map a drive from the explorer under the TOOLS menu

Hope this helps
Geof

Hi
I was playing around and with some help got this working

Sub trapTime()
Static myTime As Variant

myTime = CurrentTimePlus(0, 1)
Application.OnTime earliestTime:=TimeValue(myTime), procedure:=”PublishGraphs”

End Sub

Function CurrentTimePlus(intHours As Integer, intMinutes As Integer) As String

CurrentTimePlus = Format(TimeSerial(Hour(Now) + intHours, Minute(Now) + intMinutes, _
Second(Now)), “hh:mm”)
End Function

Sub PublishGraphs()
MsgBox (“Eureka”)
trapTime
End Sub

Sub CanceltrapTime()
Static myTime As Variant

myTime = CurrentTimePlus(0, 1)
Application.OnTime earliestTime:=TimeValue(myTime), procedure:=”PublishGraphs”, schedule:=False

End Sub
———————-
Hope it helps.
Geof

Hi
Word supports the ability to manipulate doc properties under VBA.
Two types;
BuiltinDocumentProperties
CustomDocumentProperties

To create a custom document property try something like this
With activedocument.customDocumentProperties
.AddName:=”yourdefinedpopertyname”, _
linktoContent:=false, _
Type:= msoPropertyTypeString, _
Value:=””
End With

To populate the custon prperty try something like this
With ActiveDocument.CustomDocumentProperties
.item(“yourdefinedpopertyname”) = aVariableName
End With

aVariableName could be populated from a textbox on a form

BuiltInProperties
ActiveDocument.BuiltInProperties(wdPropertyAuthor) = aVariableName2

Hope this helps somehow.
In the VBA help look for BuiltInProperties

Cheers
Geof

Thanks Andrew
Appreciated
Geof

Hi
Try this simple function

Function CalculateQtr(callDate As Date)
Dim intQtr, intMonth As Integer
intMonth = Month(callDate)
Select Case intMonth
Case 1 To 3
intQtr = 1
Case 4 To 6
intQtr = 2
Case 7 To 9
intQtr = 3
Case Else
intQtr = 4
End Select
CalculateQtr = intQtr
End Function

If you put this in the personal workbook and then use the f(x) tool to apply it you will see a formula like this
=CalculateQtr(b2).
This assumes that b2 contains a call date.
Then sort data by CalculateQtr rsults, use the DATA|SuBtotal facility to and count at each change in Qtr et voila.
Good luck
Cheers
Geof