ローズタロットとスピリットオブフラワーズタロットのコンビネーションによる今日のメッセージ。前者はカップの7で、薔薇の名は「モーリス・ユトリロ」。後者は、ソードの8。描かれている花は「Campanula カンパニュラ;包み込む愛」(カードの説明に書かれている花言葉ですが、一般に普及している花言葉「「感謝」「誠実」「節操」とは違いますね)。言うまでもないですが、このコンビネーションが全世界の人々全てに当てはまるはずもありません。自分自身を念頭に置いて引いています。もしピンときたらあなたにも当てはまるかも。
自分の望みが分かってなくて、周囲の状況も把握できていません。人に頼ってもいいんですよ。
-------------------------------------------------------------
8/20 白岡のカフェオランジェルさんで癒やしフェスタ&パン祭りが開催されます。私もスピリチュアル整体で参加します。10:00～16:30
更に、8/21 栗橋駅前の美少年ケーキ倶楽部DEお江戸マルシェにも参加します(このイベントは8/20と8/21に開かれますが、私の参加は後者のみ)。11:00～16:00
-------------------------------------------------------------
私が開発し、シェアウエアとして公表しているENPAWDという特許事務ツール支援ソフト(中身はMS-WORDのVBA)にて、カーソル位置のシフト文字コードの取得マクロを開発したので、お知らせしましょう。以下のマクロはフリー扱いとします。
Sub SJIS文字コード()
Dim myString As String
If Selection.Start = Selection.End Then
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
myString = Selection.Text
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdMove
Else
myString = Selection.Text
End If
MsgBox Hex(Asc(myString)), vbOKOnly, Left(myString, 1) + "のシフトJIS文字コードは"
End Sub