一枚目
二枚目
>>二枚目 順を追っていかないと解決しないと思ったので、気になったところを１つずつコメントしていきます。 致命的だと感じたのは画像１枚目のデバッグエラーよりも、画像２枚目です。 ■文字化け どのようにマクロコードを貼り付けたのか分かりませんが、マクロコードが文字化けしています。 ２枚目の画像を見る限りだと、主に改行部分のようです。 プログラムのソースコードでは「改行」には意味があります。 なので、きちんと元のソースコードのように「改行」されているように、貼り付けたソースコードを見直して下さい。 ■記述消え 一部の記述が消えているように見えます。 -------- 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を付けて下さい。 ■コードの体をなしていない 画像２枚目の部分が、コピペミスなのか文字化けなのか分かりませんが、 マクロコードの体裁をしていません。 そのため、全体的に処理がまったくなされていないのがまず原因かと思いました。 まずは、その部分を整えてみて下さい。
チラ見でしかないけど 1枚目のエラー部分(黄色塗りつぶし)そのままコメント化(他の緑文字のように前に'付ける)じゃあかんのかな。 コマンドバーを非表示するだけっぽいからそこまで影響が大きくなさそうかなっていう推測です。 正直マクロの中身を全部見れていないので分からないけれど あとそれやってたらすいません
時間経ってしまって申し訳ありません、トピ主です アドバイスいただいたとおり書き換えたりエラー出たところをけしたりしましたが状況変わらずです。全部ぐちゃっとなったところはそもそも全選択ができなくて、単語の途中までしか洗濯ができなかったりして、やっと消して書き直してもまた動かすと同じくなります これに同梱されていた「原稿を流し込む下準備」はちゃんと動いたので本当に謎です 親身にお答えいただいていたのに返信遅くなり申し訳ありませんでした。ありがとうございました
単語の途中までしか選択ができないというのが気になる。単語がプログラムとして扱われていたりしそう。 その部分のスクショ見れませんか？