Sub PastePureAndFRedit()
' Paul Beverley - Version 09.03.26
' Pastes text only to the current file, then FRedits the new text

' To force text into a specific style:
newStyle = "Normal"
forceNewStyle = True

' to keep current text style, use
forceNewStyle = False

' Provide here the full address of your FRedit list
' On Windows, it will need to be something like:
myFReditList = "C:\Documents and Settings\Paul\My Documents\Macro stuff\myFReditList.docx"

' On a Mac, it will need to be something like:
myFReditList = "/Users/Paul/My Documents/Macro stuff/myFReditList.docx"


On Error GoTo ReportIt
myStart = Selection.Start
Selection.PasteSpecial DataType:=wdPasteText

Selection.Start = myStart
If forceNewStyle = True Then
  Selection.Style = ActiveDocument.Styles(newStyle)
End If

Set thisDoc = ActiveDocument

Documents.Open FileName:=myFReditList
For i = 1 To 30
  DoEvents
Next i
thisDoc.Activate
Application.Run macroName:="FRedit"
Exit Sub

ReportIt:
If Err.Number = 4605 Then
  Beep
  myResponse = MsgBox("Please select some text.", _
       vbInformation, "PastePureAndFRedit")
  Exit Sub
Else
  On Error GoTo 0
  DoEvents
  Resume
End If
End Sub