- ベストアンサー
wordのVBAサンプル
エクセルのVBAサンプルはWeb上でもよく見かけるのですが、word VBAは調べてもなかなか出てきません。 web上でword VBAサンプルのありかをご存知の方、教えてください。 宜しくお願いします。
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こちらでたくさん行き交ってます。
関連するQ&A
- ワードのVBAについて知りたいです。
WORDのVBAについて詳しく書かれた本を探しています。 エクセルやアクセスなどのVBAは良く見かけますが、WORDに特化したもの（ワードだけ）を探しています。 ワード2002とワード2003との違い（VBAや機能・メニュー変更）も知りたいです。
- ベストアンサー
- オフィス系ソフト
- ワード２０００のＶＢＡについて
ワード２０００を使っています。 予め、Ａ列に日本語、Ｂ列に英語を入力したエクセルファイルを作っておき、ワードファイルから、そのエクセルファイルを開いて、Ａ列の１行目の文字をワード文章で検索し、もし、あれば、Ｂ列の１行目の文字に置き換えるという操作を、開いたエクセルの全ての行に対して行うというＶＢＡを作ろうと思っています。 そこで、エクセルファイルを Dialogs(wdDialogFileOpen)で開き、 Selection.Findを使って、 Text に、エクセルファイルのＡ（ｎ）の文字を代入し、 Replacement.Text に、エクセルファイルのＢ（ｎ）列を代入し、 ｎを初期値１から最大行数迄、一つづつ上げていく というコードを組もうと思っているのですが、 エクセルファイルのＡ１やＢ１を指定して代入するということはできるのでしょうか？ もし、ご存知の方がいらっしゃれば教えてください。 また、ワードのＶＢＡの参考になるＨＰも、できれば教えてください。お願いします。
- ベストアンサー
- オフィス系ソフト
- WORDのブックマークにエクセルのチャートを挿入するVBA
WORDのブックマークにエクセルのチャートを挿入するVBA WORDのブックマークにエクセルのチャートを挿入するVBAマクロを ご存知の方がいましたら教えて下さい。宜しくお願い致します。
- 締切済み
- Visual Basic
- Access ＶＢＡ サンプル
AccessのVBAをVBAエキスパートのテキストを使い、勉強しています。サンプルが少し、わかりづらく、別のサンプル集みたいな本を買いたいのですが、お勧めのものがあれば、ぜひ教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Word vbaからexcel vbaへ値を渡すことができますか？
Word vbaからexcel vbaへ値を渡すことができますか？ 現在Wordでvbaを組んでいますが、Wordで取得した値をexcel vbaで利用したいのに変数の値がnullになってしまい四苦八苦しています。Application間で値を渡すには何か特別な処理がいるのでしょうか？（参照は設定済みです） やりたい事は、Wordで「ShipTo」文字列をsearch→後ろの番号を変数へ格納→excel vbaを起動→シートの表中からWordで取得した番号を元に文字列を検索しセルに入れる（VLOOKUPを使用）→セルの文字列をWord vbaへ返しWord側で利用、という処理です。excel vbaの起動は以下のように記述しています。 ------------------excelVBAの起動 Sub getExcelTable() Dim xLobj As Object, myObj As Object Set xLobj = CreateObject("excel.application") xLobj.Visible = True Set myObj = xLobj: workbooks.Open (ThisDocument.Path & "\sample.xls") myObj.Run ("'sample.xls'!getStr") MsgBox strA ←これがでない MsgBox strB ←これがでない Set xLobj = Nothing End Sub -----------------excel vbaのコード Option Explicit Dim endRow As Integer, ShipTo As Variant Dim strA As Variant, strB As Variant Sub getStr() endRow = Range("a65536").End(xlUp).Row MsgBox ShipTo ←これがでない Cells(endRow + 2, 1).Select Selection.Value = "=VLOOKUP(" & ShipTo & ",$A$1:$T$" & endRow & ",3,0)" strA = ActiveCell.Text Cells(endRow + 2, 2).Select Selection.Value = "=VLOOKUP(" & ShipTo & ",$A$1:$T$" & endRow & ",13,0)" strB = ActiveCell.Text End Sub Word vbaからexcel vbaは起動します。Word側、excel側で使う関数はグローバル変数にし、variant型にしてみましたが値がわたりません（Wordでは取得できています）。Application間で値を渡す方法、もしくは根本的にもっとうまい方法があればご教示ください！ WinXP、Office2003を使用です。
- ベストアンサー
- その他MS Office製品
- word2003のvba
wordの画面でctr+F11を押すと「検索と置換」の画面が出ると思います この画面の左下に「見つかった全ての項目を強調表示する」というチェックボックスがあるのですが、vbaでこのチェックボックスにチェックが入った状態の検索をするにはどのように書けばいいのでしょうか？ 最終的にはエクセルのvbaを使い、特定のフォルダ内にあるエクセルファイル内の文字を検索し、該当ファイルを抽出してパスをセルに格納 そのパスのレコードをクリックしたら検索ワードが全て強調表示された状態でワードファイルが開かれるという事がしたいと思っています 解る方がいらっしゃいましたら御教授頂けませんでしょうか 宜しくお願い致します
- 締切済み
- オフィス系ソフト
- Ｅｘｃｅｌ ＶＢＡ 2次元配列を使った具体サンプル
よろしくお願いします。 Ｅｘｃｅｌ ＶＢＡの初学者です。 今、配列の勉強をしているのですが、2次元配列を使った具体的なサンプルソースをご存知でしたら教えてください。 ネットで検索しても基本的なこと、抽象的な表現をしたものしから見付けれられず、なんか具体性に乏しいため、今一つ配列についての理解が進められないでいます。 何か、良いサンプルがありましたら紹介されているサイトや本等、教えてください。
- ベストアンサー
- その他MS Office製品
- ワードＶＢＡで画像を挿入
ワードＶＢＡのことですが、文書の中に図形のボックスが何個か並んでいます（２列で）。それぞれのボックスの中に、同じ画像をボタン１発で挿入するということを簡単なＶＢＡで実現できるものでしょうか。 ＃同じ画像を全部のボックスに挿入したい。 ＃ワードのＶＢＡの経験なしです。 ＃できるとしたら何行くらいの記述でできるものかという難易度も知りたい。 ＃とても簡単なサンプルコードも教えていただけると尚ありがたいです。
- ベストアンサー
- オフィス系ソフト
- ワード2007を使っています(図形のVBAについて)
ワード2007を使っています(図形のVBAについて) ワード2007で、エクセルから拡張メタファイルでグラフをピクチャ貼り付けしています。 貼り付けるとサイズが120%とか少し大きめになってしまうので、いつもリセットして100%にしています。 これをマクロでボタン一つ、又はショートカットで操作したいのですが、2007では図に関しては記憶マクロで作成できないようです。 VBAで書き込みたいのですが、どのように書いたらいいでしょうか？ 宜しくお願いします。
- 締切済み
- その他MS Office製品
- ワードのVBAについて
ひょんなことから、ワードで、複数の行を選択した状態で、一斉にTAB入力するマクロが必要になりました。エクセルVBAなら、記録機能と本を見ながら少しではありますが、作ることができます。しかし、ワードは、本自体が、本屋にもありませんでした。どなたか？詳しい方がいらっしゃいましたら、ご指導願えないでしょうか？イメージ的には、VBEのコメントブロック、非コメントブロックみないな感じでTABを挿入、削除がしたいのですが・・・！ 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
助かりました。ありがとうございました。