ワードのVBAについて

質問

ひょんなことから、ワードで、複数の行を選択した状態で、一斉にTAB入力するマクロが必要になりました。エクセルVBAなら、記録機能と本を見ながら少しではありますが、作ることができます。しかし、ワードは、本自体が、本屋にもありませんでした。どなたか？詳しい方がいらっしゃいましたら、ご指導願えないでしょうか？イメージ的には、VBEのコメントブロック、非コメントブロックみないな感じでTABを挿入、削除がしたいのですが・・・！
宜しくお願いいたします。

回答No.1

Wendy02 · ベストアンサー

wan_wanさん、こんにちは。
Wendy02です。

コメントブロックのようなマクロということで、タブの挿入と、削除です。あくまでも、行の先頭ということでご理解ねがいます。

Sub TabInsert()
'タブ挿入
Dim para As Paragraph
For Each para In Selection.Paragraphs
　　para.Range.InsertBefore vbTab
　　para.Range.MoveEnd
　Next
End Sub

Sub DelTab()
'タブ削除
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
　　　　.Text = "^t"
　　　　.Replacement.Text = ""
　　　　.MatchFuzzy = False
　End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ところで、今、やってみて、私は、まったく知識がゼロになっていました。最近は、言語なんぞに手を出しているので、ExcelVBAも、かなりいい加減になっているし、まして、Word なんて、半年ぶりです。なんとなく手探りで書いた感じです。

一応、上記は、ふたつのバージョンでテストしています。(Word 2003/2000)
最初、範囲を選択(Selection)してから、行ってみてください。
片方は、記録マクロを加工したものです。

＞ワードは、本自体が、本屋にもありませんでした。
やっと、新規の本が出ましたね。

Wordで実践 やさしくて役に立つ「マクロ」事例集―2003/2002対応 (単行本)
西上原 裕明 技術評論社　(2006/02) 2,604 (税込み)

私は、ちょっと、この本は、値段ほど使わないと思いますので、相変わらず、『Office 97 プログラマーズガイド』とか、マイクロソフト・サポートのみです。マイクロソフトのほうは、かなりサンプルストックがありますね。体系的に並んでいないので、さっぱり覚えません。また、サンプルは、まだ他にも集めようとすると、かなりありますね。

それ以外の本のほうは、手に入れるのがかなり困難です。オークションや古本でたまに出ますが、97用で、定価以上の値段が付くと、ばかばかしくて買う気にはなれません。

英語でよければ、以下のサイトがあります。
簡単なマクロの一覧です。
http://word.mvps.org/FAQs/MacrosVBA/index.htm

お礼

いつもご指導ありがとう御座います。
早速、ご紹介頂いた本を購入しました。(中古ですが・・)
今まで、ワードでVBAを使うことはありえないって思っていたのですが、この本を読んで、勉強していきたいと思います。
お礼のお便りが遅くなり誠に申し訳ありませんでした。今後とも宜しくお願い致します。

回答No.2

KenKen_SP

インデントじゃダメなのですか？