livedoor blogで投稿用のテンプレートをつくりたい

livedoor blogで投稿用のテンプレートをつくりたいのですが、どうすればよいでしょうか。

文頭の、挨拶文、文末の署名等、必ず記事の中に入れる文言が有ります。
これを、記事作成の段階で既に転記された状態にしたいのです。

更に可能であれば、ブックマークレットで、クリックすると編集が面まで持って来れれば尚良いのですが。。。

No.1 回答者： DOUGLAS_ 回答日時： 2010/03/18 17:50

　恥ずかしながら「ブックマークレット」という言葉を始めて知りました。

　操作が複雑になり、「ブックマークレット」を勉強してからでは遅くなりそうですので、代替策をお一つ。

１）Windows 標準の メモ帳 を開きます。

２）下記コード を メモ帳 に コピペ します。

３）最初の３行にある「ライブドアＩＤ」・「パスワード」・「ブログＩＤ」をそれぞれ該当する文字列に差し替えます。
　「ブログＩＤ」というのは、ブログ の投稿画面を開いたときに、アドレスバー に表示される
ｈttp://cms.blog.livedoor.com/cms/article/add?blog_id=
に続く数字です。
　文字列は、すべて、ダブルコーテーション で囲まれた状態でお書きください。

４）４行目の「strbody = 」に続く文字列は、「文頭の、挨拶文」・「文末の署名等」が、それぞれ２行になるように表記されています。
・文字列は、すべて、ダブルコーテーション で括る。
・「Chr(13)」は「投稿用のテンプレート」内の「改行」を意味する。
・行末の「 _」（スペース + アンダーバー）は、この プログラム の コード 自体が途中で改行することを意味する。
・「 & 」（スペース + ＆ + スペース）は、文字列の連結を意味する。
こをと踏まえて、お好きなように、「投稿用のテンプレート」をお書きください。

５）以上の訂正を加えて、メモ帳を「blog_livedoor.vbs」というような名前（拡張子は vbs）で、どこかに保存してください。
　「blog_livedoor」の部分は何でも構いません。

６）(５)で作成した ファイル の ショートカット を デスクトップ などの使いやすいところに作成し、名前を「投稿」などに変更（拡張子は付けません）、お好みで アイコン も変更してください。

７）以上により、
・「投稿」を クリック すると
・Internet Explorer が起動し
・「livedoor blog」の投稿画面に 自動ログインし
・「記事作成の段階で既に転記された状態」で
・「タイトル」の テキストボックス が アクティブ になります。

'-- ここから --------------------------------------------
livedoor_id = "ライブドアＩＤ"
password = "パスワード"
blog_id = "ブログＩＤ"
strbody = "挨拶文の１行目" & Chr(13) & _
"挨拶文の２行目" & Chr(13) & Chr(13) & _
"文末の署名等の１行目" & Chr(13) & _
"文末の署名等の２行目"

Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.navigate "h" & "ttp://cms.blog.livedoor.com/cms/article/add?.flush=1&blog_id=" & blog_id
While .Busy Or .ReadyState <> 4: Wend
With .Document
If Not .getElementByID("livedoor_id") Is Nothing Then
.getElementByID("livedoor_id").Value = livedoor_id
.getElementByID("password").Value = password
.forms("loginForm").submit
End If
End With
While .Busy Or .ReadyState <> 4: Wend
With .Document
.getElementsByName("body")(0).outerHTML = _
"<TEXTAREA id=inputBody name=body>" & strbody & "</TEXTAREA>"
.getElementsByName("title")(0).Select
End With
.Visible = True
End With
Set objIE = Nothing
'-- ここまで --------------------------------------------