>>二枚目
順を追っていかないと解決しないと思ったので、気になったところを１つずつコメントしていきます。
致命的だと感じたのは画像１枚目のデバッグエラーよりも、画像２枚目です。

■文字化け
どのようにマクロコードを貼り付けたのか分かりませんが、マクロコードが文字化けしています。
２枚目の画像を見る限りだと、主に改行部分のようです。
プログラムのソースコードでは「改行」には意味があります。
なので、きちんと元のソースコードのように「改行」されているように、貼り付けたソースコードを見直して下さい。
　
　
■記述消え
一部の記述が消えているように見えます。
--------
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1 'カーソルを先頭へ移動
End Sub

Sub ★本文流し込みの下準備()

'ヘッダーのノンブル設定をします
'扉、目次、Prologue用の章扉、本文流し込みページ、奥付のページ割り当てを行います
--------
↓
--------
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1 'カーソルを先頭へ移動
End Sub

★本文流し込みの下準備()

'ヘッダーのノンブル設定をします
'扉、目次、Prologue用の章扉、本文流し込みページ、奥付のページ割り当てを行います
--------
「★本文流し込みの下準備() 」の手前の「sub」が消えています。
マクロコードとしてエラーになるので、きちんとsubを付けて下さい。
　
　
■コードの体をなしていない
画像２枚目の部分が、コピペミスなのか文字化けなのか分かりませんが、
マクロコードの体裁をしていません。
そのため、全体的に処理がまったくなされていないのがまず原因かと思いました。
まずは、その部分を整えてみて下さい。