• ベストアンサー

Word　VBAマクロ　A4サイズ三つ折り線

Wordで縦（29.7cm）に三等分する箇所（上から、10cm・20cm）に写真のように三角の印を入れるマクロを作成したいのですが、どのようにすればよいでしょうか？ 独立したWordアートかテキストの「-」の様なものでも構わないのですが、入力した文字がずれたりしないように設置したいのですが、どのような方法が最適か教えてください。 現在は、フォームを作成してWordアートにあらかじめ折り線をいれたものに文章を入力しています。 使い方としては、Word2010でマクロボタンを作成して必要に応じて印刷前にボタンを押して折り線を簡単に付けたいです。

画像を拡大する
  • r2san
  • お礼率25% (1309/5228)

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

希望とは違いますが、私の過去ログにある分割用のマクロを 応用してはいかが。 http://okwave.jp/qa/q3748087.html

r2san
質問者

お礼

ご回答ありがとうございました。 非常に参考になりました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • WordでA4用紙の真ん中に折り線を入れる方法

    WordでA4の縦の長い方を真ん中で折ってA5の用紙として使いたいです。 そこで、ちょうど真ん中に折り線を入れたいのですが、そのようなフォームを簡単に作る方法はありますでしょうか？

  • ワードのマクロについて。

    エクセルのマクロなどに関する本は非常に多く出版されておりますが、 ワードのマクロに関する本はイマイチ見かけません。 ですが、個人的にエクセルを使用するよりも ワードを使用する頻度が多いため、 この際ワードを徹底的に勉強したいと思っております。 しかも、いまさらながらワード2002（2003）のマクロを勉強中です。 普段から2002でファイルを作成することで、 それ以降のバージョンでも開けるようにしたいが為です。 さてその上で有識者の方へお伺いしたいのですが、 とりあえずの目標としては 名前と住所を一度入力するだけで、 全ての書類の必要箇所に同時に転記してくれるような機能、 そういった機能を盛り込みたいのですが、 これはワードのマクロで可能なのでしょうか？ それとも、無理やりエクセルで作った方が早いのでしょうか？ また、ワードの原稿用紙の縦横の文字数を変更することも、 とりあえずの目標としています。 例えば、縦30文字、横50文字で、それぞれ枠線・升目が表示される そういった事を考えております。 これもマクロで作るものなのでしょうか、 それとも通常のワードの機能だけで作成可能なのでしょうか。 ご教授いただければと思います。 よろしくお願いいたします。

  • VBAマクロへの永久的なキーの割り当て(Word)

    こんにちは。 Word2007において、作成したVBAマクロに、ショートカットキーを割り当てる事ができなくて困っています。 マクロに、ショートカットキーを割り当てる方法は、知っています。 マクロを保存したWordマクロ有効テンプレートファイルから、 「Wordのオプション」→「ユーザー設定」で、「ユーザー設定」ボタンをクリックして 添付したようなウィンドウを開き、「分類」で「マクロ」を選択し、 「保存先」でマクロを保存したファイルを選択した後、 割り当てるキーを入力して、「割り当て」ボタンをクリックすると、マクロにキーが割り当てられます。 この、Wordマクロ有効テンプレートファイルを開いている間は、 割り当てたキーによって、対応するマクロを呼び出す事ができます。 ところが、この文書を閉じた後に再び開くと、キーの割り当てが、全てなくなっています。 キーの割り当てを永久的に保存するには、どうすればよいのでしょうか? あと、マクロにショートカットキーを割り当てるために、 「Wordのオプション」→「ユーザー設定」で、「ユーザー設定」ボタンをクリックして 添付したようなウィンドウを開き、「分類」で「マクロ」を選択 という操作を毎回するのは手間なので、 この操作をVBAマクロで実現する方法が知りたいと思っています。 色々調べてみたのですが、結局分かりませんでした。 以上の件について、何か良い方法がある方がいらっしゃれば、教えて頂けますでしょうか?

  • エクセルＶＢＡのマクロ文について

    エクセルVBAで、シート上のボタン（フォーム）をクリックすると、UserForm1が表示されてその中のTextBoxに別のシートのセルに入力したいる値を表示させたくて、以下のようにボタン（フォーム）にマクロを入力したのですが、エラーがでてきてうまくいきません。 入力したマクロが間違っているのでしょうか？ Sub ボタン1_Click() UserForm1.Show UserForm1.TextBox1 = Sheets("入力").Ranges("Ｄ１１").Value End Sub すみませんが、ご存知の方、教えてくださいませんか？

  • VBAでカウンタを作るマクロを教えてください

    行いたいことを記述させていただきます。 １　Ａ1セルにカウント数字を表示させたい。 ２　フォームボタンを作成 ３　フォームボタンを一回クリックでカウント数字が１上がる ４　初期値と最終値を予め、設定しておく ５　最終値を超えたとき、初期値に戻る(制限なく) 　例えば1000から2000までのカウントをおこない、2000を超えないで1000に戻る。 以上のマクロを設定したいのですが、、、、

  • エクセルVBAで、ワードアート削除するには？

    エクセルマクロ初心者でして、どうかご迷惑おかけするかもしれませんが、どうか助けていただけないでしょうか？ エクセルマクロで名刺作ってまして、ワードアートをA1に作成して、A2～B6にコピーして作ってます。 しかし、ワードアートの一部分が間違えて変更する際に、A2～B6を 削除するのが大変なんですよ・・・ セルA2～B6のワードアートを指定して削除するVBAは、どうやってつくるのか、どなたか教えていただけないでしょうか？ 一括削除だったら、原画のA1まで消えてしまって・・・（￣～￣）ンー

  • wordで大きなポスターをA4サイズに分割してつくりたい。

    wordで大きなポスターをA4サイズに分割してつくりたい。 今度、縦21cm、横100cmの横書きで大きな文字の、紙を印刷たいのですが、大きな紙がないのでA4容姿4枚に分割して印刷し、つなげようかと思っています。 画像のような感じです。 しかしワードで作成しようにも、ページ設定で横を100cmまで伸ばすことはできないようです。 何かいい方法はありませんか？

  • 既存のマクロをＶＢＡで実行したい

    アクセスの２００３です。 既にデーターベースウインドウ上に作成済みのマクロ１を フォーム上のコマンドボタンを押したときに実行するようにしたいのです。 このマクロの内容を変換コードになどして、ＶＢＥ上に書き込むしかないですか？ 理想としては、 Sub ボタン_Click() マクロ１を実行 End Sub のようにしたいです。 ご教授よろしくお願い致します。

  • ワードのテンプレートでマクロを組みましたが、動作しません

    ワードの文書テンプレートにマクロを組みました。 ところが、いざテンプレートから文書を起こしても、肝心のマクロが実行されません。 どうしてマクロが実行されないのか、アドバイスいただけないでしょうか。 ちなみに、ワードは2000、OSはXPと2000と両方試しました。 また、マクロの内容は、文書中に配置されたフォームフィールドのテキストを、ボタンを押すとクリップボードにコピーするという、素朴なものです。 よろしくお願いいたします。

  • ワード2000でマクロを組む

    マクロ初心者で、ワード2000を使っています。テキストボックス　フォームフィールドを使って作成したフォームで、２つのフィールド（ブックマーク名を ”text1” と “text2” と設定）のうちのどちらかに入力がない場合は、メッセージを表示し、ファイルを保存・閉じることができないようにするマクロを組みたいのですが、どうしたらよいのでしょうか。どなたか教えていただけないでしょうか。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する