VBA Saving Worksheets as Individual Word docs

[MatthewPream]

Hello, im very novice when it comes to VBA and I'm working with a workbook that has around 60 Worksheets one for each employee. I was able to get a code to save each worksheet in the workbook as a pdf but my boss would prefer word. I'm stumped on how to transform this into word. Below is the PDF Code I'm using.

Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets
ws.Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & "\" & ws.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Anything helps, Thanks!

 

[NdNoviceHlp]

After the copy...

WordApp.ActiveDocument.Content.PasteSpecial DataType:=3 '9  '4

will paste the sheet as a picture in an open document. You will need to create the Word application and document so you can paste in it. HTH. Dave
ps. Welcome to the Board MathewPream! please use code tags.