俺様は何を隠そう酒のみです。 「尋常ではない飲酒量」 「隠れた高額納税者」 「酒を飲まなかったら栄養失調で倒れた。え、アホなの？」 ……などと不名誉な逸話を数多く叩きだしている俺様ですが、誠に遺憾ながら「二日酔い」という暗黒面が常に付きまとって…

scコマンドによって、リモートコンピュータのサービス起動状態を調べます（ローカルも可）。 以下のサンプルではIPアドレス192.168.1.254が割り当てられたマシンの W32Timeサービスの状態を調べます。 sc \\192.168.1.254 query W32Time

PINGコマンドによって、指定のIPアドレスがネットワーク上に割り当てされているか調べるバッチのサンプルです。 引数でIPアドレスを与えて下さい。 @ECHO off PING -n 1 -w 10 %1 | FIND "timed out">nul IF NOT ERRORLEVEL 1 ( ECHO ないよ ) ELSE ( ECHO O…

Wordでは標準の設定では、テンプレート保存先を「ユーザーテンプレートフォルダ」に規定しています。 基本的に、このフォルダに保存されているテンプレートを参照するのがWordの挙動ですが、 果たしてどのような参照順位でテンプレートを探し出しているので…

Word文書内の全てのフィールドを明示的に表示・非表示します。 ToggleShowCodesプロパティを使うのも１つの手ですが、 表示・非表示の判断は、文書内で最初に出現したフィールドの表示状態の判断が必要なので、私は以下の方法を使っています。 全表示 For Ea…

Word文書内の全ての段落をメッセージ表示するVBAサンプルです。 フィールドコード内、テキストボックス、ヘッダ・フッタ内等は対象外です。 Sub paraAllMsg() Dim p For Each p In ActiveDocument.Paragraphs MsgBox p.Range.Text Next p End Sub

Word文書内の全ての文字を１文字メッセージ表示するVBAサンプルです。 フィールドコード内、テキストボックス、ヘッダ・フッタ内等は対象外です。 Sub charAllMsg() Selection.HomeKey Unit:=wdStory Do While Selection.MoveRight MsgBox Selection.Text Lo…

Wordでは、「蛍光ペン」を色別に検索する事ができず、結果としてWordVBAでも、蛍光ペンの色別検索を利用する事ができません。 文書内の文字を１つずつ舐めて該当範囲を選択する事も方法の１つですが、検索機能を利用して蛍光ペンの色別処理を行う方法を考え…

はじまりです。“ぐりにたんく”は、くすぐりフェチ系エロ小説サイト「こちょぐりにーた」に投稿していた、 「雑記」とか「システム」などのエントリーだけに焦点を絞ったブログサイトです。ひっそりこっそり更新して行きたいと思っています。個人的な利用を趣…