Replies

Try the following Macro

Sub TitlesList()

Dim FS, FO, FL As Variant
Dim ListString As String

Set FS = CreateObject(“Scripting.FileSystemObject”)
Set FO = FS.getfolder(ActiveDocument.Path)
For Each FL In FO.Files
If Right(FL.Name, 4) = “.doc” Then
Documents.Open FileName:=FL.Name, ReadOnly:=True
ListString = ListString & vbCrLf & _
FL.Name & “, ” & _
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
ActiveDocument.Close savechanges:=False
End If
Next
Documents.Add
ActiveDocument.Paragraphs(1).Range.InsertBefore ListString
End Sub

Is your virus checker up to date?

Do you really need to run VBA.
I always found that I could set multiple page setups by selecting all sheets together and then setting – the setting applies to them all.

Sorry to take so long to look at it.
I think that you’re attempting to do something taht isn’t the way hyperlinks work
In your combo box Case statement you code, for Ankle:

Range(“b793”).Hyperlinks(“Ankle”).Follow
Range(“b793”).Select

Instead, I think you should code

Range(“W3”).Hyperlinks(1).Follow

Where “W3” is the cell address of your hyperlink in the example you gave.

Why not just create a BeforePrint routine for the Workbook in question and force the target to be active

Private Sub Workbook_BeforePrint(Cancel As Boolean)
activeworkbook,worksheets(“sheet2”).activate
End Sub

OK

It is possible that your headers are set to the wrong level.

Each Heading Style knows its level. These can be set by using Format Styles.

If nothing else – its worth a check.

I assume that you have set the “Number of Levels to DIsplay” that appears in the Insert TOC dialogue?

Al

Excel has no generic equivalent. However, it does set spacing as follows:

a) in a general format, the spacing is effectively 0
in a numeric format, the character “_” reserves a space to hold a character
e.g _-$* #,##0_-;-$* #,##0_-;_-$* “-“_-;_-@_-
specifies that this number format reserve a space big enough to hold a minus sign in front of the dollar and at the end of the number

In full, the whole string says
* reserve such spaces if the number is positive
* use a real minus in front of the number if negative
* reserve spaces and print a hyphen if zero
* reserve spaces around text

Accordingly, you can specify spacing in a limited way by specifying a custom cell format.

Can you post a snippet of the sheet?

I suspect that you will have a mail rule set up

Select Tools > Rules Wizard
Highlight the first rule (assuming you have one) and read the pane at the bottom
If / When you hit the correct one, click Delete

Hope that helps

Me too – now – I should have known there’d be someone around who knew the real explanation!

I don’t think there is a way using ‘replace’.

I assume that you have a lot of these (or you wouldn’t be asking). It CAN be done by recording a macro

Start by searching for your field to replace – then set your cursor back to the beginning of file.

Then record a Macro, assigned to a key. Record the sequence

ALT+CTRL+Y [ which finds the next occurence of your target
Insert > Field > ….new field [ which replaces it

and stop recording

Then press the assigned key to do it again

I’ve been using Outlook for about three years, and it seems to work fine moving entries to archive.
As personal preference I keep all my sent and deleted data and move them to archive – nothing has been lost yet
That is, my personal folder holds my last three months of drivel – the archive holds the rest.

Mike
I’d be happy to cover off XP Home SP1, and Dial-in (56K6) line
Andrew Ollivier

It worked in Word 2002