![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
1. 雛形となる Word ファイルを作成します。 2. テキストを挿入したい場所に「ブックマーク」を設定します。 2.1. [挿入] - [ブックマーク] を選択します。 2.2. 「ブックマーク名」を入力します。 例）CompanyName 3. Word ファイルを「文書テンプレート（*.dot）」として保存します。 例）CompanyName.dot 4. 自動化スクリプト「CompanyName.vbs」を作成します 「ワード文書テンプレートを使って「会社名」を自動挿入するサンプル」を参照。 5. 自動化スクリプト「CompanyName.vbs」を実行します。 → 「strInsertWord」で指定した名称が文書に自動挿入され、ファイルが作成されます。
' ワード文書テンプレートを使って「会社名」を自動挿入するサンプル
' CompanyName.vbs
' Usage : CScript CompanyName.vbs
' ＜参考情報＞
' ■ Microsoft Office XP Developer / ブックマークを使用する
' http://www.microsoft.com/japan/msdn/library/ja/modcore/html/deovrworkingwithbookmarks.asp
' ■ 統合型 Office ソリューションの開発、第 1 部
' http://www.microsoft.com/japan/msdn/library/ja/jpdnofftalk/htm/office05042000.asp
' ■ フォームからデータを取ってWORDに表示するやり方
' http://www.accessclub.jp/bbs/0014/beginers6376.html
Option Explicit
Main
Sub Main
Dim strDotFile
Dim strDocPath
Dim strBookMark
Dim strInsertWord
' 文書テンプレート
strDotFile = "D:\home\edu\hatena\yagiyama\1109736355\CompanyName.dot"
' ファイルの保存先
strDocPath = "D:\home\edu\hatena\yagiyama\1109736355"
' ブックマーク名
strBookMark = "CompanyName"
' ブックマーク位置に挿入する文字（保存するファイル名）
strInsertWord = "○○株式会社"
Dim wdApp ' As Word.Application
Dim wdDoc ' As Word.Document
Dim wdRange ' As Word.Range
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(strDotFile)
Set wdRange = wdDoc.Bookmarks(strBookMark).Range
wdRange.Text = strInsertWord
' wdDoc.UserControl = True
' wdApp.Visible = True
Set wdRange = Nothing
wdDoc.SaveAs strDocPath + "\" + strInsertWord + ".doc"
wdDoc.Close
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing
End Sub
((, http://lyrica.myeweb.net/ buy lyrica online without a prescription, qpag, http://oxycodone.4t.com/ oxycodone online, 8-DDD, -- Wtehmvgo? 2013-05-23 (木) 14:16:26
), http://www.viagraonlinewws.com/ Discount viagra online, 67018, http://www.viagraonlineie.com/ Viagra price, (, http://www.viagraonlinewithoutprescriptionusabiz.com/ Viagra, >:PP, http://www.usamedichq.com/ Levitra, pbltx, http://www.genericviagraonlineusa.com/ Cheap viagra, 8], http://www.genericviagrabp.com/ Natural viagra, 404, http://www.cheapviagraonlineusa.com/ Viagra, =P, http://www.viagraonlinewss.com/ Viagra online, 40204, -- Viagra online? 2013-06-07 (金) 12:27:23), http://www.buycialissw.com/ Buy cialis, :OOO, http://www.cialisonlineusabiz.com/ Buy generic cialis online, hehs, http://www.buylevitrawww.com/ Buy levitra from canada, >:PP, http://www.genericviagrasl.com/ Generic viagra no prescription, =)), http://www.buyviagrasr.com/ Viagra, 579, http://www.genericviagrasle.com/ Viagra, =-))), http://www.genericcialisusaonline.com/ Cialis, swfu, http://www.viagraonlineshopusa.com/ Viagra, 8-O, -- Viagra generic? 2013-06-07 (金) 12:59:58
DD, http://www.ordergenericviagrausa.com/ Generic viagra online, 25540, -- Viagra for sale? 2013-06-07 (金) 13:08:30), http://www.buycialissw.com/ Buy cialis, :OOO, http://www.cialisonlineusabiz.com/ Buy generic cialis online, hehs, http://www.buylevitrawww.com/ Buy levitra from canada, >:PP, http://www.genericviagrasl.com/ Generic viagra no prescription, =)), http://www.buyviagrasr.com/ Viagra, 579, http://www.genericviagrasle.com/ Viagra, =-))), http://www.genericcialisusaonline.com/ Cialis, swfu, http://www.viagraonlineshopusa.com/ Viagra, 8-O, -- Viagra generic? 2013-06-07 (金) 13:19:38(, http://www.genericviagrasl.com/ Generic viagra, 76610, http://www.genericviagrasle.com/ Viagra, kwrjk, http://www.buyviagrasr.com/ Buy viagra online, 739, http://www.genericcialisusaonline.com/ Cialis, %-(((, http://www.viagraonlineshopusa.com/ Viagra online store, 412, -- Levitra? 2013-06-07 (金) 14:38:52, -- Generic viagra online? 2013-06-07 (金) 15:57:59), -- Cialis online overnight? 2013-06-07 (金) 16:19:07, http://www.buylevitrawww.com/ Levitra, kkcq, http://www.genericviagrasl.com/ Generic viagra, 018, http://www.buyviagrasr.com/ Buy viagra canada, 668275, http://www.genericviagrasle.com/ Generic viagra, :-))), http://www.genericcialisusaonline.com/ Buy generic cialis, =-))), http://www.viagraonlineshopusa.com/ Viagra online shop, xthdl, -- Viagra? 2013-06-07 (金) 17:27:20(, http://www.buylevitrawww.com/ Buy levitra pills, 8[, http://www.genericviagrasl.com/ Generic viagra online, =O, http://www.buyviagrasr.com/ Viagra, 84120, http://www.genericviagrasle.com/ Viagra sale, :-OO, http://www.genericcialisusaonline.com/ Generic cialis, crxcn, http://www.viagraonlineshopusa.com/ Viagra online, 505, -- Cialis online overnight? 2013-06-07 (金) 20:55:10DD, http://www.cialisgenericusa.com/ Cialis, 63403, http://www.cialisonlinepharmacyusa.com/ Cialis online canada pharmacy, %-]]], http://www.genericviagrawwww.com/ Generic viagra online without prescription, :-DDD, http://www.cheapviagrasw.com/ Viagra, 4223, http://www.cheapgenericviagrausa.com/ Viagra Alternative, 297, -- Viagra? 2013-06-07 (金) 21:18:03(, -- Generic viagra online? 2013-06-07 (金) 23:32:34DD, http://www.cialisonlineww.com/ Cialis, wbw, http://www.viagraonlinehq.com/ Viagra online, oopo, http://www.viagraonlinepharmacyus.com/ Viagra pharmacy, )), http://www.genericviagravv.com/ Viagra generic, :-DD, http://www.medsonlineww.com/ Viagra, 2740, http://www.orderviagrawww.com/ Viagra, >:-]], http://www.wwwgenericviagrausa.com/ Generic viagra, :-DDD, -- Order viagra online? 2013-06-08 (土) 00:45:05D, -- Discount viagra? 2013-06-10 (月) 18:26:35, http://www.wwwgenericviagrausa.com/ Viagra 100mg, 517362, -- Generic levitra? 2013-06-14 (金) 12:16:48
