2019-10-01

ショートカット　相対パス　UNCパス上にあるプログラムを実行する場合　引数もある。。。

最近ＶＢＡの入門編のマニュアルを作成した。

なおEXCELマクロを使って、対象となる操作の箇所に関連する画像のみを表示させることにした。

これでＯＫかなと思い実際にテストしようとしたら当然ながら参照用のエクセルマクロブックと入門者が「右クリック」で「新規作成＞Microsoft Excel ワークシート」で一旦エクセルブックを作成させてからチュートリアルは始まるので色々まずいことが分かった。

それで一つ一つの操作をキャプチャソフト(rapture.exe)を使い画像に保存し、保存フォルダをZIPして画像ビューワー（Honeyview.exe）で順次スライドのように矢印キーで参照しながら実行してもらう方式にした。

画像ビューワーはチュートリアルフォルダ配下に置くことにした。そこでチュートリアルフォルダ直下にショートカットキーを実行するとチュートリアルスタートというシナリオでショートカットキーを作成した。

グーグルで調べてみると色々な方法があることが分かった。結局④の方法を採用して解決した。

①「リンク先」に「%windir%\explorer.exe "実行ファイルの相対パス"」と指定する。
「作業フォルダー」は空白にする。
② なにかよくわからないがdllで実行できるみたいだ

%windir%\system32\rundll32.exe url.dll,FileProtocolHandler "相対パス"

＜引数を指定する場合＞
③ 引数がある場合はcmd.exeでできるみたいだ。

%windir%\system32\cmd.exe /c start "%cd%" "相対パス" [引数...]

④以下のやり方だとＵＮＣパス上にショートカットを置いても実行できた！

%windir%\System32\mshta.exe vbscript:close(createobject("wscript.shell").run("相対パス [引数...]",1))

※引数の後ろにある数字で起動時の画面の大きさを指定することも可能。
0：非表示　　1：通常のウィンドウ　　3：最大化　　7：最小化

f:id:gyokusen_since:20191003071256p:plain — ショートカットの設定（作業フォルダを空欄にする）

f:id:gyokusen_since:20191003072145p:plain — UNCパス上にある公開フォルダ

上図の「VBA00_入門チュートリアル１」をダブルクリックすると

f:id:gyokusen_since:20191002144245p:plain — チュートリアルの1ページ目

f:id:gyokusen_since:20191002144737p:plain — 最後の方のページ

f:id:gyokusen_since:20191002144851p:plain — マクロ実行後の結果

これで一応うまくいったので終わりにする。なおHoneyview.exeは前回オープンしたときの状態を想像だがレジストリに保存しているようである程度すすんだところで終了させて再度オープンすると最後にオープンしたところからスタートする優れものであった。

なおこのマニュアルの2つ目は「ボタンとイベント処理でマクロ実行」をテーマに引き続き作成予定です。

2019-09-20

Webページのテキストを選択できないようにしているサイトについて

Webページを閲覧しているとたまにテキスト選択できないページがあります。

普段ページを見てるときはカーソルでテキスト選択後コピーして必要な個所をサクラエディタに貼り付けてメモするようにしています。また癖として反転できないページにであうとつるつるのガラスの上から記事を見てるような気分になってイライラしてきます。解除する方法は以下の手順で大概のサイトは可能ですが今後そんなサイトを見つけるたびに記録していくことにしました。

f:id:gyokusen_since:20190920091558p:plain — 拡張機能（ UserCSS ）（ Quick Javascript Switcher )

＜参考にしたページ＞

＜画像の場合も対処方がありました！＞

＜UserCSSの登録をしなくてもこれで対処できそうです＞

WebサイトによってはJavaScriptではなくCSSのuser-selectを使用してテキストのコピーを無効化していることがある。

例: うたまっぷ

このようなサイトではChromeのメニューの表示=>開発/管理=>デベロッパーツールからConsoleを開き、下記のコードを貼り付けてEnterキーで実行するとCSSのuser-selectを無効化することでテキストがコピーできるようになる。

var css = '* { user-select: auto !important; }';
var head = document.head || document.getElementsByTagName('head')[0];
var style = document.createElement('style');
head.appendChild(style);
style.appendChild(document.createTextNode(css));

＜出会ったWebページ＞

＜解決できなかったサイト＞

なんと以下のサイトは以前は解除できてたのにできなくなっていました。

Web関係の仕組みはあまり詳しくないので今のところお手上げです。

・F12でやればテキスト自体は取り出し可能ですがページ上での選択が出来なくなってました。以前はできてたのに・・・。CSSを埋め込むツールは拒否されて実行できなくなっていました。どうやれば拒否できるかを調べる必要がありますが一旦諦めることにします。

2019/09/27(金) 10:55:34

今日再度チャレンジしたら解除できてしまいました！

ただ何が正しかったのかはよくわかっていません。

解除するためにやったこと。

１．下記の拡張機能を導入

f:id:gyokusen_since:20190920091558p:plain

２．ブラウザはグーグルクロームとほぼ同じで広告ブロックするbraveブラウザ使用

３．JSの実行不可モードに設定

４．CSSの埋め込みアドインソフトで下記のコードを登録

html
{
-webkit-touch-callout: auto !important;
-webkit-user-select: auto !important;
-khtml-user-select: auto !important;
-moz-user-select: auto !important;
-ms-user-select: auto !important;
user-select: auto !important;
-webkit-tap-highlight-color: rgba(0,0,0,0);
}
* {user-select: auto !important;
-webkit-user-select: auto !important;
-webkit-user-drag: auto !important;
}
.unselectable
{
-moz-user-select:auto !important;
-webkit-user-select:auto !important;
cursor: default;
}

5.下記のURLサイトを表示

https://fujiisouta.xyz/tag/ai%e5%bd%a2%e5%8b%a2%e5%88%a4%e6%96%ad

f:id:gyokusen_since:20190927123604p:plain — 画面ガード解除成功の巻！

2019-09-07

VBAメモ　このユーザ辞書管理マクロの使い道について

本シート上でユーザ辞書の管理が可能になります。

＜利点＞

・アドイン登録することでエクセル文書入力中やその他の文書の入力中に思い通りの変換ができないときにすぐにメモして登録できるようになります。

・別のPC（ノートPCを含む）に同じ変換辞書で行いたい場合に便利です。

・定期的に見直して不要になったものを削除したり、インターネット上から用語を拾ってきたときにメモするのに最適です。

https://toricago.hatenablog.com/entry/2016/08/03/223634

学術用語、専門的な用語、最新用語などが変換できないとき

知人や友人などの名前がうまく変換できないとき

長い単語を短い読みで入力したいとき

同音異義語など、用語の使い方がよく混乱し、ユーザーコメントを付け候補一覧で見分けたいとき

＜まとめ＞

Windows10のユーザ辞書自体はコマンドラインインターフェースがどうもなさそうで結局Sendkeysを利用してユーザ辞書を登録しようという発想でチャレンジしました。

＜嵌った点＞

１．[ NumLockがオフになる ]

VBAのSendkeysはNumLockがオフになるということでWSHのSendkeysで回避できるのでそちらを採用したが何故か結果が芳しくないケースがあり、最終的にはVBAのSendkeysを利用することにした。NumLockのオフの回避は毎回無条件にSendKeys "{NUMLOCK}"で対応することにしました。

２．[ クリップボードに設定する処理はすぐに反映されていないケースがある]

ファイル名を入力する必要があるのですがクリップボードにファイル名をコピーしてCtrl+vで貼り付けようとしました。しかしクリップボードにセットするコマンドはSJISにある文字しか対応できませんでした。ところで以下の技を使えばUNICODEでも大丈夫なことが分かりました。

Private Sub SetCB(ByVal str As String)
'クリップボードに文字列を格納
　With CreateObject("Forms.TextBox.1")
　　.MultiLine = True
　　.Text = str
　　.SelStart = 0
　　.SelLength = .TextLength
　　.Copy
　End With
End Sub

ところで当初はSendkeysは2バイト文字列は送付できないと思っていたのですが実はできることを知り下記の形式でユーザ辞書の一覧出力のファイル名を設定することができました。上記のクリップボード利用だとOSのプロセスが絡んでいるためかすぐにクリップボードに反映されていなため何度も失敗してしまいました。

sFileName = "辞書一覧.txt"

Application.Sendkeys　sFileName

３．[ PCではうまくいく処理がノートPCではうまくいかない]

Sendkeysによる処理がPCではうまくいくのに、ノートPCではNGばかりになり途方にくれました。最終的にはクリップボード方式をやめたら上手くいくようになりました。

４．[ マッチング処理のための複数キーのソート処理]

最初はキーを連結した項目を作り、その項目をソートキー指定すればいいと思ってましたがそのためには最初のキー項目の長さが同じでないと正しい複合キーのソートはできないことが分かりました。それでどうしようかと思ってググっているとなんとステーブルソートならば最初に二番目のキー項目だけでソートしてその結果に対して今度は1番目のキー項目で所期の目的とすることが可能なことが分かりました。ステーブルソートに関しては相当性能が良いマージソートがありそれを利用して2回ソート実行で解決しました。

５．[ ユーザ辞書に1件も登録がない場合]

Windows10のユーザ辞書は登録したユーザ辞書の項目が1件もない場合はプルダウンメニューの該当コマンド自体がdisableとなってダウンロードに失敗することがわかりました。この対応は難しく事前にダミー登録を1件して失敗しないようにしようかと思いましたが、結局はファイルが存在してない場合はユーザ辞書の一覧出力に失敗したと判断して登録ゼロ件対応をすることにしました。

<身につけたこと＞

１．Application.Waitコマンドの待ち時間が１秒以下の場合の設定方法

２．複数のキー項目を対象にソートする場合の方法

３．2次元配列の使い方

４．マッチングによるユーザ辞書に登録済かどうかのチェック

５．ユーザ辞書には登録してあるが管理シート上にはない場合にシートの上位に挿入する方法。その他の項目はチェック前と同じ並び順を維持する方法。