- ベストアンサー
一太郎の改頁マクロ作成について
長文に一括して改ページ記号（ctr+y)を挿入するマクロを教えて下さい。 改行する位置は、「”<cr>」の後ろです。 （ただし、「」は含みません） 宜しく御願いします。
- urata
- お礼率100% (3/3)
- その他(ソフトウェア)
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
当方もマクロに詳しくないのでもっとスマートな方法があるのかもしれませんが、これで何とか行けます。 最初に検索のダイアログが出てきます、” と改行記号を検索対象に記入して下さい。 ErrorBreakMode(0, 1, 0) WarningMode(0) JumpStart() SearchString?() if SearchStringResult() then EndOfLine(2,1) InsertPage() DeleteLine() end if do ContinueSearch(1) if SearchStringResult() then EndOfLine(2,1) InsertPage() DeleteLine() else exit do end if loop MsgBox(”終了しました”) end
関連するQ&A
- 一太郎のマクロの書き方を教えてください
一太郎のマクロを作ろうとしています（マクロの記録を手直しするぐらいしかできないズブ素人です）。いま作ろうとしているのは作ったテキストデータをゲラ刷りして校正する時にどこに改行マークが入っているか、改頁マークが入っているかをチェックできるように改行のところは△を挿入し、改頁のところには◎を挿入しようというものです。 改行を置換する作業をマクロの記録で分析したところ、改行は正規表現の\nで表しているので、改頁は正規表現の\fでいいのだろうと思って次のようなソースで作ってみたのですが、改行の方はうまく作動するのですが、改頁の方はエラーが起きてしまいます。どのように書いたら改頁マークを検索文字列としてとらえることができるのか教えてもらえると助かります。 ----- 文字全置換(.検索文字列="\n",.置換文字列="△"&"\n",.検索方向=3,.あいまい検索=0,.確認=0) 文字全置換(.検索文字列="\f",.置換文字列="◎"&"\f",.検索方向=3,.あいまい検索=0,.確認=0) -----
- 締切済み
- その他(ソフトウェア)
- wordの改ページができません。
普通、1ページ目の最後の行まで進み、その次の行に進むと、自動的に改行されるはずなのですが、なぜか2ページに進むことができないんです。挿入⇒改ページをやってみたのですが、それでも改ページされません。 ぜひ、分かる方がいたら教えてもらえませんか？
- ベストアンサー
- オフィス系ソフト
- ワード２０００の改ページ
改ページしてそのページの前後と関わりの無いようにしたいのですが、前ページで改行すると行が挿入された分、次のページも影響を受けて下方にずれるのですが、どうしたらいいでしょう？ 改ページの意味がわかりません？
- ベストアンサー
- Windows XP
- 一太郎マクロ
一太郎2012を使用しています。マクロで「行末移動」は 行末(.移動先=2) でいいようなのですが，段落の最後への移動（あるいは「次の改行への移動」）はどのようになるでしょうか。 記述方法を教えていただくか，一太郎マクロの基本操作を紹介しているページを教えていただけるとありがたいです。 一太郎のマクロヘルプを起動すると，「このプログラムからヘルプを取得できない理由というメッセージの画面になってしまいます。」
- ベストアンサー
- その他(ソフトウェア)
- 一太郎の改ページ機能（？）
一太郎で作成した文書を一太郎で加工しています。 元になる文書の、ページとページの境目に赤の点線が入っているところがあり、この赤い点線を境にページ間の移動ができません。 改ページ機能のようですが、一太郎ヘルプで見ると改ページの取り消しは「『改ページマーク』にカーソルを合わせてDelキーを押すか、Shift+Ctrl+Yキーを押す」と書いてあります。 でも「改ページマーク」はついておらず、代わりに赤い点線が入っています。 ※赤い点線がページの最後にあるページでは 赤い点線の前の改行マークでDelキーを押すと赤い点線が上に上がってくるだけで次のページがくっついて上に移動してくるわけではありません。 ※赤い点線がページの頭にあるページでは 赤い点線の前にはカーソルは持っていけず、赤い点線の次でBackSpeaceキーを押しても何も起こりません。 （Delキーを押すと、当然その次の行が上へずれてきますが） 作成した本人に聞いたところ「何か適当にやったら赤線が入って、動かなくなった」ということしかわかりません。 今のところ、赤線の下の部分を切り取って赤線の上の部分に貼り付けるという操作で上へ繰り上げていますが、効率が悪いです。 この赤線は何でしょう？ これを取り消すにはどうしたらいいのでしょうか。
- ベストアンサー
- その他(ソフトウェア)
- ワード2000の改ページについて教えてください
ワードアートや図形を使ってポップを作っているのですが、改ページを挿入すると、必ず新しいページが１ページ目になり、今までのページが２ページ目以降になります。普通に、１ページ、２ページ、というように作りたいのですが、どうしたら良いのでしょうか？改行で送っていっても同じで、次のページは前のページの前（画面で上に）にできます。アドバイスよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 一太郎2006で、
一太郎を使用しています。横書きで20ページ程書いた文章があります。これを一括で改行マークを付けたい、1行ずつは、面倒なので 一発で行う方法ないでしょうか？ 宜しくお願いします。 jyousui
- 締切済み
- その他(ソフトウェア)
- 連続した段落の先頭にワンスペース挿入する方法
長文をテキスト変換等すると、段落の先頭にあったワンスペースが省略されてしまって、何十ページにも渡って、改行の後にワンスペースを挿入していくことがあるのですが、ワードでこの操作を一括してできる方法があったら教えてください。
- ベストアンサー
- オフィス系ソフト
- ExcelVBAマクロでの改ページコードの削除方法
ExcelVBAマクロについて確認させてください。 下記のようにWordファイルをテキストファイルに落として保存したファイルを 変数aに読み込んでいます。 このとき、読み込んだテキストファイルはWordファイルをテキストファイルに 落とし込んだファイルなので改行コードと改ページコードが残ってしまいます。 この改行コードと改ページコードを削除したうえで再度変数aに読み込むように しようと思っています。 ですが、今のところReplace関数を考えているのですが、 改行コードは削除出来ましたが、改ページコードが削除出来ません。 改ページコードを削除するプログラムを考えているのですが、可能でしょうか。 改ページコードは"^L"か"↓"に似た文字で表示されるようです。 以上、ご教授のほどよろしくお願いします。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample1() Dim a As String a = CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Readall a = Replace(a, vbCrLf, "") '改行コードの削除 CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Close End Sub
- ベストアンサー
- Visual Basic
- テキストボックスを全てのページに貼り付けるマクロ
Tifを全てにWORDに貼り付けた後に不要部分がTifに含まれてることが 判明してしまいました。削除方法として、枠なしのテキストをその部分に貼り付けることを思いついたのですが、ページ数が約2000と多いためマクロでやりたく思いました。 テキストボックスを前頁に所定の位置に貼り付けたいのですがどうしたらよいのでしょうか？ まず枠なしマクロを所定の位置に貼り付けるマクロを作成したら、for nextなどでループすればいいんですよね？ for i = 1 To 最後のページ 処理 nextみたいな感じですかね？
- 締切済み
- Visual Basic
お礼
うまく行きました！！ この構文を参考に、いろいろ他も試してみます。 心から、感謝します。 ありがとうございました。