Excel --> Word Macro

[wooonelly]

I have this code that was created in Excel as a macro. I would like this to be a macro in Word and can't get it to run properly. It works great in Excel.
Here it is:

Private Sub CommandButton1_Click()
 
filopn1 = Application.GetOpenFilename("Text Files (*.prg), *.prg*")
If filopn1 = "" Then
 MsgBox "Please select a file"
 Exit Sub
End If
 
If UCase(Right(filopn1, 3)) <> "PRG" Then
 MsgBox "This app only good for text files"
 Exit Sub
End If
 
TextBox1.Text = filopn1
Call Make_Sections(filopn1)
 
End Sub
Sub Make_Sections(MyFile As Variant)
Dim OutputFile As String
Dim count As Integer
Dim MyLine As String
 
OutputFile = Mid$(CStr(MyFile), 1, Len(MyFile) - 3) & "doc"
Open MyFile For Input As #1
Open OutputFile For Output As #2
 
While Not EOF(1)
 Line Input #1, MyLine
 If InStr(1, MyLine, "(") <> 0 Then
  Print #2, MyLine
  For i = 1 To 56
   Line Input #1, MyLine
   Print #2, MyLine
  Next i
 End If
Wend
 
Close #1
Close #2
UserForm1.Hide
 
End Sub

This code takes a multi page NC Code seperated by sections labeled like this, (Section1), and creates a document that was 100 pages with 5 sections to be only 5 pages long and start each page with each section.

Could someone please help me convert this.

[Comintern]

I'm not quite sure what you are after here. Do you want to create a word document instead of a text file? It might help to see a sample of the input file and a sample of the expected output. I'm also not sure of what you mean by reducing the page count from 100 to 5. Text files don't have page breaks unless they are padded out with newlines to 'format' them.