Whilst browsing through your help section I came across the bit I gave you before about reformatting for Word. Since then I have done a Macro, and have copied it here. I call it "Z", so having copied the file in to Word via WordPad (as before), instead of doing the subsequent actions separately, I just put the cursor at the beginning and do Ctrl-Z, and there you are. I don't do Macros very often, and I don't think I have done one since this one, so it may have a few actions more than necessary, but it works. It includes adding the Normal document style, and UK spelling. I have just been trying to make a new macro and copy this one in, but it keeps loading it automatically, and I don't have time to look at the instructions!!! I guess your readers will work it out. --------------------- Sub Z88transfer() ' ' Z88transfer Macro ' Macro recorded 11/11/2002 by Davis ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^p" .Replacement.Text = "~" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "~" .Replacement.Text = "^p^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "'" .Replacement.Text = "'" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = """" .Replacement.Text = """" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.WholeStory Selection.Style = ActiveDocument.Styles("Normal") Selection.LanguageID = wdEnglishUK Selection.NoProofing = False Application.CheckLanguage = False Selection.EscapeKey End Sub ----------------