全角／半角変換 - 版の履歴

MSY-07: 空行と改行の除去

2024-09-09T01:46:26Z

空行と改行の除去

MSY-07: タグをタグに置き換え

2023-05-16T19:29:28Z

<source>タグを<syntaxhighlight>タグに置き換え

← 古い版		2023年5月17日 (水) 04:29時点における版
32行目:		32行目:
	;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）		;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）
	*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正		*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正
	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "全角／半角変換"		#title = "全角／半角変換"
	#tooltip = "選択範囲を半角に変換 (＋Ctrlで全角に変換）"		#tooltip = "選択範囲を半角に変換 (＋Ctrlで全角に変換）"
73行目:		73行目:
	}		}
	}		}
	</~~source~~>		</syntaxhighlight>

	== メモ ==		== メモ ==

Sukemaru: 「全角／半角トグル変換」へのリンクを追加

2019-07-05T20:20:45Z

「全角／半角トグル変換」へのリンクを追加

← 古い版		2019年7月6日 (土) 05:20時点における版
24行目:		24行目:


			;選択範囲内の英数カナの全角／半角の相互変換（トグル）は >> 「[[全角／半角トグル変換]]」マクロ
	;大文字／小文字の相互変換は >> 「[[大文字／小文字／頭文字トグル変換]]」マクロ		;大文字／小文字の相互変換は >> 「[[大文字／小文字／頭文字トグル変換]]」マクロ

Sukemaru: 修正

2019-05-11T01:24:53Z

修正

← 古い版		2019年5月11日 (土) 10:24時点における版
30行目:		30行目:

	;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）		;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）
			*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正
	<source lang="javascript">		<source lang="javascript">
	#title = "全角／半角変換"		#title = "全角／半角変換"
64行目:		65行目:
	}		}
	// 文字列の変更なしなら履歴をもどす		// 文字列の変更なしなら履歴をもどす
	if ( s.Text == st ) {		if ( st && s.Text == st ) {
	d.Undo();		d.Undo();
	d.Saved = sv;		d.Saved = sv;

2019年5月10日 (金) 12:05にSukemaruによる

2019-05-10T12:05:11Z

← 古い版		2019年5月10日 (金) 21:05時点における版
14行目:		14行目:
	</div>		</div>

	* ツールバーにアイコンを置いて実行する場合、アイコンをクリックするときの Ctrl ~~キーの押し下げ状態（Ctrl＋クリックか、ただのクリックか）で機能を切り替えます~~<br>		* ツールバーにアイコンを置いて実行する場合、アイコンをクリックするときの '''Ctrl キーの押し下げ状態'''（Ctrl＋クリックか、ただのクリックか）で機能を切り替えます<br>

	* Ctrl キーの押し下げ状態で「全角／半角変換」の機能を切り替えるので、<span style="color:#c00;"> このマクロに [[ヘルプ:ツール#オプション\|ショートカットキー]] を割り当てる場合は、 Ctrl キーをふくむキーパターンと Ctrl キーをふくまないキーパターンの２つを登録する必要があります。</span>		* Ctrl キーの押し下げ状態で「全角／半角変換」の機能を切り替えるので、<span style="color:#c00;"> このマクロに [[ヘルプ:ツール#オプション\|ショートカットキー]] を割り当てる場合は、 Ctrl キーをふくむキーパターンと Ctrl キーをふくまないキーパターンの２つを登録する必要があります。</span>
72行目:		72行目:
	}		}
	</source>		</source>

			== メモ ==
			アルファベットや数字、記号、カタカナが混在していても使いやすいよう、「選択範囲なしのときは、カーソル位置の単語を範囲選択する」仕様にしてあります。<br>
			「行全体を自動選択する」仕様に変更したい場合は、ソースコード内の　''s.SelectWord();''　の行を以下のように書き換えてください。
			''s.SelectLine();''

2019年5月10日 (金) 11:49にSukemaruによる

2019-05-10T11:49:34Z

← 古い版		2019年5月10日 (金) 20:49時点における版
6行目:		6行目:

	* マクロ実行時に Ctrl キーが押されていないときは、編集メニュー >> 選択範囲の変換 >> 「'''半角に変換'''」、Ctrl キーが押されているときは「'''全角に変換'''」をおこなう。		* マクロ実行時に Ctrl キーが押されていないときは、編集メニュー >> 選択範囲の変換 >> 「'''半角に変換'''」、Ctrl キーが押されているときは「'''全角に変換'''」をおこなう。
			<br>
			※このマクロは、基本的に '''ツールバーアイコン''' にして使用する想定で作ってあります。
	<br>		<br>
	<div id="注２" class="warningbox">		<div id="注２" class="warningbox">
11行目:		13行目:
	: あらかじめ "GetKeyState.zip" をダウンロードして、書庫内の "GetKeyState.exe" を Macros フォルダに配置してください。		: あらかじめ "GetKeyState.zip" をダウンロードして、書庫内の "GetKeyState.exe" を Macros フォルダに配置してください。
	</div>		</div>

			* ツールバーにアイコンを置いて実行する場合、アイコンをクリックするときの Ctrl キーの押し下げ状態（Ctrl＋クリックか、ただのクリックか）で機能を切り替えます<br>

	* Ctrl キーの押し下げ状態で「全角／半角変換」の機能を切り替えるので、<span style="color:#c00;"> このマクロに [[ヘルプ:ツール#オプション\|ショートカットキー]] を割り当てる場合は、 Ctrl キーをふくむキーパターンと Ctrl キーをふくまないキーパターンの２つを登録する必要があります。</span>		* Ctrl キーの押し下げ状態で「全角／半角変換」の機能を切り替えるので、<span style="color:#c00;"> このマクロに [[ヘルプ:ツール#オプション\|ショートカットキー]] を割り当てる場合は、 Ctrl キーをふくむキーパターンと Ctrl キーをふくまないキーパターンの２つを登録する必要があります。</span>
	:: e.g.　Ctrl＋H　と　Alt＋H　　など		:: e.g.　Ctrl＋H　と　Alt＋H　　など

	* ツールバーにアイコンを置いて実行する場合、アイコンをクリックするときの Ctrl キーの押し下げ状態（Ctrl＋クリックか、ただのクリックか）で機能を切り替えます<br>

	* [マクロ]メニューや右クリックメニュー内から実行する場合も、マクロを実行するときの Ctrl キーの押し下げ状態（Ctrl+クリック or ただの左クリック、または Ctrl+Enter or Enter）で機能を切り替えます<br>		* [マクロ]メニューや右クリックメニュー内から実行する場合も、マクロを実行するときの Ctrl キーの押し下げ状態（Ctrl+クリック or ただの左クリック、または Ctrl+Enter or Enter）で機能を切り替えます<br>

2019年5月10日 (金) 11:44にSukemaruによる

2019-05-10T11:44:05Z

← 古い版		2019年5月10日 (金) 20:44時点における版
20行目:		20行目:

	* 外部実行ファイルを呼び出すため、Ctrl＋H キーなどや Ctrl＋クリックが速すぎると Ctrl キーの押し下げ状態を正しく取得できないことがあります。<br> 「全角変換」がうまく機能しないときは、Ctrl キーを放すタイミングを遅らせてください（マクロが発動するまで、またはマクロの処理が終了するまで Ctrl キーを押し下げたままにする）。		* 外部実行ファイルを呼び出すため、Ctrl＋H キーなどや Ctrl＋クリックが速すぎると Ctrl キーの押し下げ状態を正しく取得できないことがあります。<br> 「全角変換」がうまく機能しないときは、Ctrl キーを放すタイミングを遅らせてください（マクロが発動するまで、またはマクロの処理が終了するまで Ctrl キーを押し下げたままにする）。


			;大文字／小文字の相互変換は >> 「[[大文字／小文字／頭文字トグル変換]]」マクロ


	== ソースコード ==		== ソースコード ==

Sukemaru: ページを新規作成

2019-05-09T11:38:19Z

ページを新規作成

新規ページ

選択範囲の文字列の '''全角／半角変換'''。

*選択範囲なしのときは、カーソル位置の単語を範囲選択する。

*選択範囲の文字列が変更されなかったときは履歴を巻き戻して「変更行」のマーキングを残さない。

* マクロ実行時に Ctrl キーが押されていないときは、編集メニュー >> 選択範囲の変換 >> 「'''半角に変換'''」、Ctrl キーが押されているときは「'''全角に変換'''」をおこなう。
<br>
<div id="注２" class="warningbox">
* '''外部実行ファイル [[GetKeyState.exe(キー状態取得実行ファイル)|GetKeyState.exe]] を利用して Ctrl キー押し下げ判定をします。'''
: あらかじめ "GetKeyState.zip" をダウンロードして、書庫内の "GetKeyState.exe" を Macros フォルダに配置してください。
</div>

* Ctrl キーの押し下げ状態で「全角／半角変換」の機能を切り替えるので、<span style="color:#c00;"> このマクロに [[ヘルプ:ツール#オプション|ショートカットキー]] を割り当てる場合は、 Ctrl キーをふくむキーパターンと Ctrl キーをふくまないキーパターンの２つを登録する必要があります。</span>
:: e.g.　Ctrl＋H　と　Alt＋H　　など

* ツールバーにアイコンを置いて実行する場合、アイコンをクリックするときの Ctrl キーの押し下げ状態（Ctrl＋クリックか、ただのクリックか）で機能を切り替えます<br>

* [マクロ]メニューや右クリックメニュー内から実行する場合も、マクロを実行するときの Ctrl キーの押し下げ状態（Ctrl+クリック or ただの左クリック、または Ctrl+Enter or Enter）で機能を切り替えます<br>

* 外部実行ファイルを呼び出すため、Ctrl＋H キーなどや Ctrl＋クリックが速すぎると Ctrl キーの押し下げ状態を正しく取得できないことがあります。<br> 「全角変換」がうまく機能しないときは、Ctrl キーを放すタイミングを遅らせてください（マクロが発動するまで、またはマクロの処理が終了するまで Ctrl キーを押し下げたままにする）。

== ソースコード ==

;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）
<source lang="javascript">
#title = "全角／半角変換"
#tooltip = "選択範囲を半角に変換 (＋Ctrlで全角に変換）"
// #icon = "AA[4].ico"

// Ctrl キーの状態を取得
var $ctrl = 0;
var getKeyState = editor.FullName.replace( /mery\.exe$/i , "" )
+ "Macros\\GetKeyState.exe";
if ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( getKeyState ) ) {
var WshShell = new ActiveXObject( "WScript.Shell" );
$ctrl = WshShell.Run( '"' + getKeyState + '" ctrl', 0, true );
}

var d = editor.ActiveDocument;
var s = editor.ActiveDocument.selection;

// 非選択時には単語を選択
if ( s.IsEmpty ) {
var pos = s.GetActivePos();
s.SelectWord();
}
var st = s.Text;
var sv = d.Saved;

// Ctrl キーなし（GetKeyState なし）なら半角に変換
if ( ! $ctrl ) {
s.ChangeWidth( meWidthHalfWidth );
}
// Ctrl キー押し下げ時は全角に変換
else {
s.ChangeWidth( meWidthFullWidth );
}
// 文字列の変更なしなら履歴をもどす
if ( s.Text == st ) {
d.Undo();
d.Saved = sv;
if ( pos >= 0 ) {
s.SetActivePos( pos );
}
}
</source>

← 古い版		2024年9月9日 (月) 10:46時点における版
6行目:		6行目:

	* マクロ実行時に Ctrl キーが押されていないときは、編集メニュー >> 選択範囲の変換 >> 「'''半角に変換'''」、Ctrl キーが押されているときは「'''全角に変換'''」をおこなう。		* マクロ実行時に Ctrl キーが押されていないときは、編集メニュー >> 選択範囲の変換 >> 「'''半角に変換'''」、Ctrl キーが押されているときは「'''全角に変換'''」をおこなう。
	~~<br>~~
	※このマクロは、基本的に '''ツールバーアイコン''' にして使用する想定で作ってあります。		※このマクロは、基本的に '''ツールバーアイコン''' にして使用する想定で作ってあります。
	~~<br>~~
	<div id="注２" class="warningbox">		<div id="注２" class="warningbox">
	* '''外部実行ファイル [[GetKeyState.exe(キー状態取得実行ファイル)\|GetKeyState.exe]] を利用して Ctrl キー押し下げ判定をします。'''		* '''外部実行ファイル [[GetKeyState.exe(キー状態取得実行ファイル)\|GetKeyState.exe]] を利用して Ctrl キー押し下げ判定をします。'''
22行目:		22行目:

	* 外部実行ファイルを呼び出すため、Ctrl＋H キーなどや Ctrl＋クリックが速すぎると Ctrl キーの押し下げ状態を正しく取得できないことがあります。<br> 「全角変換」がうまく機能しないときは、Ctrl キーを放すタイミングを遅らせてください（マクロが発動するまで、またはマクロの処理が終了するまで Ctrl キーを押し下げたままにする）。		* 外部実行ファイルを呼び出すため、Ctrl＋H キーなどや Ctrl＋クリックが速すぎると Ctrl キーの押し下げ状態を正しく取得できないことがあります。<br> 「全角変換」がうまく機能しないときは、Ctrl キーを放すタイミングを遅らせてください（マクロが発動するまで、またはマクロの処理が終了するまで Ctrl キーを押し下げたままにする）。


	;選択範囲内の英数カナの全角／半角の相互変換（トグル）は >> 「[[全角／半角トグル変換]]」マクロ		;選択範囲内の英数カナの全角／半角の相互変換（トグル）は >> 「[[全角／半角トグル変換]]」マクロ
	;大文字／小文字の相互変換は >> 「[[大文字／小文字／頭文字トグル変換]]」マクロ		;大文字／小文字の相互変換は >> 「[[大文字／小文字／頭文字トグル変換]]」マクロ


	== ソースコード ==		== ソースコード ==

	;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）		;ダウンロード：「[[ファイル:全角／半角変換.zip]]」（アイコン入り）
	*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正		*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正