すべてのカテゴリ

【霊感タロット】という言葉が、どこで、どう生まれたのかは知らない。多分、電話占い会社が作ったんだと思う。 沙織の占術も電話占いだと ・霊感タロット ・霊感オラクルカード ・霊感ルノルマンカード が主でやっていると思う。 他の鑑定師は分からないが、沙織の場合、 タロットや他のカード占いを通じて、高次元の声が降りてきたり、 チャネリングで、関係者の声が届いたりする。 そうしたチャネリングと合わせたカード占いだから 【霊感タロット】というのではないか、と思っている。 本来のリーディングでは読まないところを読んだり、 本来のリーディングとは違う読み方をする。 そして、多いのが、カードの指定とシャッフルの仕方である。 何故かは分からない。 だいたい、高次元の声は天井から頭のてっぺんに入る感じ、 関係者さんからのお声は後ろからハートチャクラに入ってくる感じ、 で、シャフル中に ・こっちのカードを使って。 ・もう少し、シャッフルして。 ・こういう風にカードを分けて。 というような指定が入ってきたりする。 関係者さんからのお声はカードを展開する前に シャッフル中に入ってくることが多い。 だいたい、声のエネルギーから拾ってくるため、 お客様の声に反応して、気持ちを教えてくれたりする。 「いや、それは、ない。」とかね・・・ 沙織的にはそれが【霊感タロット】という占術ではないかと思っている。 霊感を一切使わなくても、タロットリーディングは出来る。 しかし、沙織の基本的な占術は【霊感タロット】だと思う。 タロットやオラクル、ルノルマンカードを通じて、 感じるものがあるからだ。 そんな沙織の鑑定を受けて

Option Explicit Option Base 0 Public Sub 表データシャッフルマクロ()     Dim Ip As Integer, Jp As Integer, strDat As String     Dim celData As Cell, rngData As Range     Dim strTblDt() As String, intShuDt() As Integer     Dim intShuTp(1) As Integer     If ActiveDocument.Tables.Count < 1 Then Exit Sub     '     With ActiveDocument.Tables(1)          ReDim strTblDt(.Rows.Count - 1, .Columns.Count - 1)          ReDim intShuDt(.Rows.Count - 1, 1)          '          '*セルデータ取り込み          For Each celData In .Range.Cells              strDat = celData.Range.Text              strTblDt(celData.RowIndex - 1, celData.ColumnIndex - 1) = _                       Left(strDat, Len(strDat) - 2)          Next celData