日付と時刻を挿入（カレンダー版） - 版の履歴

MSY-07: セミコロンの追加、ソースコードの整形

2025-11-24T09:53:08Z

セミコロンの追加、ソースコードの整形

← 古い版		2025年11月24日 (月) 18:53時点における版
29行目:		29行目:
	var mydoc = editor.ActiveDocument; //WScript.Shell.Runの終了待ちの間に操作される対策を追加		var mydoc = editor.ActiveDocument; //WScript.Shell.Runの終了待ちの間に操作される対策を追加
	var psScript = 'c:\\temp\\calendar.ps1';//←環境に合わせて修正		var psScript = 'c:\\temp\\calendar.ps1';//←環境に合わせて修正
	var psCmd = 'PowerShell.exe -STA -ExecutionPolicy RemoteSigned -File '		var psCmd = 'PowerShell.exe -STA -ExecutionPolicy RemoteSigned -File ';
	var errlevel = new ActiveXObject('WScript.Shell').Run( psCmd +		var errlevel = new ActiveXObject('WScript.Shell').Run( psCmd + psScript, 0, true);
	psScript, 0, true);
	if(errlevel==0 && editor.ActiveDocument==mydoc)document.Write(ClipboardData.GetData());		if(errlevel==0 && editor.ActiveDocument==mydoc)document.Write(ClipboardData.GetData());
	})();		})();

MSY-07: SyntaxHighlightにcopyの追加

2025-06-29T15:03:11Z

SyntaxHighlightにcopyの追加

← 古い版		2025年6月30日 (月) 00:03時点における版
8行目:		8行目:
	下記のソースコードをMeryのマクロファイルとして保存（例：calendar.js）		下記のソースコードをMeryのマクロファイルとして保存（例：calendar.js）

	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript" copy>
	#title = "カレンダーで日付挿入"		#title = "カレンダーで日付挿入"
	/*		/*
39行目:		39行目:
	下記のソースコードをPowerShellのスクリプトファイルとして保存（例：calendar.ps1）		下記のソースコードをPowerShellのスクリプトファイルとして保存（例：calendar.ps1）

	<syntaxhighlight lang="powershell">		<syntaxhighlight lang="powershell" copy>
	# MonthCalendar コントロールで日付を選択する Powershell スクリプト		# MonthCalendar コントロールで日付を選択する Powershell スクリプト
	# Enter または F5 でクリップボードにコピー、 Esc でキャンセルして終了する		# Enter または F5 でクリップボードにコピー、 Esc でキャンセルして終了する

MSY-07: 見出しの追加、セクションの位置を変更

2024-08-31T15:54:38Z

見出しの追加、セクションの位置を変更

← 古い版		2024年9月1日 (日) 00:54時点における版
1行目:		1行目:
	[https://www.haijin-boys.com/discussions/2933 指定した日付の入力は出来ないでしょうか]でヒロさんが希望していた、カレンダーからの日付挿入マクロです。PowerShellで.NETのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。		[https://www.haijin-boys.com/discussions/2933 指定した日付の入力は出来ないでしょうか]でヒロさんが希望していた、カレンダーからの日付挿入マクロです。PowerShellで.NETのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。

			== 注意事項 ==
			環境によってはPowerShellの起動がやたらと遅いので、使い物にならないかもしれません。Core i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い Atom ネットブックでは無理でした。

			== ソースコード ==
			=== JavaScript ===
	下記のソースコードをMeryのマクロファイルとして保存（例：calendar.js）		下記のソースコードをMeryのマクロファイルとして保存（例：calendar.js）

	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "カレンダーで日付挿入"		#title = "カレンダーで日付挿入"
29行目:		35行目:
	})();		})();
	</syntaxhighlight>		</syntaxhighlight>
	~~----~~
			=== PowerShell ===
	下記のソースコードをPowerShellのスクリプトファイルとして保存（例：calendar.ps1）		下記のソースコードをPowerShellのスクリプトファイルとして保存（例：calendar.ps1）

	<syntaxhighlight lang="powershell">		<syntaxhighlight lang="powershell">
	# MonthCalendar コントロールで日付を選択する Powershell スクリプト		# MonthCalendar コントロールで日付を選択する Powershell スクリプト
78行目:		86行目:
	exit $exitcode		exit $exitcode
	</syntaxhighlight>		</syntaxhighlight>

	環境によってはPowerShellの起動がやたらと遅いので、使い物にならないかもしれません。Core i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い Atom ネットブックでは無理でした。

MSY-07: リンク名の追加、1行改行の除去、固有名詞の修正

2024-06-05T19:23:51Z

リンク名の追加、1行改行の除去、固有名詞の修正

← 古い版		2024年6月6日 (木) 04:23時点における版
1行目:		1行目:
	~~フォーラム~~ https://www.haijin-boys.com/discussions/2933 ~~でヒロさんが希望していた、カレンダーからの日付挿入マクロです。~~		[https://www.haijin-boys.com/discussions/2933 指定した日付の入力は出来ないでしょうか]でヒロさんが希望していた、カレンダーからの日付挿入マクロです。PowerShellで.NETのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。
	~~パワーシェルで~~.~~netのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。~~

	~~↓↓をmeryのマクロファイルとして保存（例：calendar~~.js）		下記のソースコードをMeryのマクロファイルとして保存（例：calendar.js）
	<syntaxhighlight lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "カレンダーで日付挿入"		#title = "カレンダーで日付挿入"
31行目:		30行目:
	</syntaxhighlight>		</syntaxhighlight>
	----		----
	~~↓↓をpowershellのスクリプトファイルとして保存（例：calendar~~.ps1）		下記のソースコードをPowerShellのスクリプトファイルとして保存（例：calendar.ps1）
	<syntaxhighlight lang="powershell">		<syntaxhighlight lang="powershell">
	# MonthCalendar コントロールで日付を選択する Powershell スクリプト		# MonthCalendar コントロールで日付を選択する Powershell スクリプト
80行目:		79行目:
	</syntaxhighlight>		</syntaxhighlight>

	~~環境によってはpowershellの起動がやたらと遅いので、使い物にならないかもしれません。~~		環境によってはPowerShellの起動がやたらと遅いので、使い物にならないかもしれません。Core i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い Atom ネットブックでは無理でした。
	~~core-~~i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い ~~atom~~ ネットブックでは無理でした。

MSY-07: ハイライト効果の適用

2023-05-16T08:28:40Z

ハイライト効果の適用

← 古い版		2023年5月16日 (火) 17:28時点における版
3行目:		3行目:

	↓↓をmeryのマクロファイルとして保存（例：calendar.js）		↓↓をmeryのマクロファイルとして保存（例：calendar.js）
	<~~nowiki~~>		<syntaxhighlight lang="javascript">
	#title = "カレンダーで日付挿入"		#title = "カレンダーで日付挿入"
	/*		/*
29行目:		29行目:
	if(errlevel==0 && editor.ActiveDocument==mydoc)document.Write(ClipboardData.GetData());		if(errlevel==0 && editor.ActiveDocument==mydoc)document.Write(ClipboardData.GetData());
	})();		})();
	</~~nowiki~~>		</syntaxhighlight>
	----		----
	↓↓をpowershellのスクリプトファイルとして保存（例：calendar.ps1）		↓↓をpowershellのスクリプトファイルとして保存（例：calendar.ps1）
	<~~nowiki~~>		<syntaxhighlight lang="powershell">
	# MonthCalendar コントロールで日付を選択する Powershell スクリプト		# MonthCalendar コントロールで日付を選択する Powershell スクリプト
	# Enter または F5 でクリップボードにコピー、 Esc でキャンセルして終了する		# Enter または F5 でクリップボードにコピー、 Esc でキャンセルして終了する
78行目:		78行目:
	$Form.Dispose()		$Form.Dispose()
	exit $exitcode		exit $exitcode
	</~~nowiki~~>		</syntaxhighlight>

	環境によってはpowershellの起動がやたらと遅いので、使い物にならないかもしれません。		環境によってはpowershellの起動がやたらと遅いので、使い物にならないかもしれません。
	core-i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い atom ネットブックでは無理でした。		core-i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い atom ネットブックでは無理でした。

2017年11月2日 (木) 01:32にAdminによる

2017-11-02T01:32:36Z

← 古い版		2017年11月2日 (木) 10:32時点における版
1行目:		1行目:
	フォーラム ~~http~~://haijin-boys.com/~~index.php?fuseaction=~~discussions~~.replies&discussion_id=~~2933 でヒロさんが希望していた、カレンダーからの日付挿入マクロです。		フォーラム https://www.haijin-boys.com/discussions/2933 でヒロさんが希望していた、カレンダーからの日付挿入マクロです。
	パワーシェルで.netのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。		パワーシェルで.netのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。

2016年5月24日 (火) 12:55に180.43.199.133による

2016-05-24T12:55:25Z

← 古い版		2016年5月24日 (火) 21:55時点における版
22行目:		22行目:
	*/		*/
	(function(){		(function(){
			var mydoc = editor.ActiveDocument; //WScript.Shell.Runの終了待ちの間に操作される対策を追加
	var psScript = 'c:\\temp\\calendar.ps1';//←環境に合わせて修正		var psScript = 'c:\\temp\\calendar.ps1';//←環境に合わせて修正
	var psCmd = 'PowerShell.exe -STA -ExecutionPolicy RemoteSigned -File '		var psCmd = 'PowerShell.exe -STA -ExecutionPolicy RemoteSigned -File '
	var errlevel = new ActiveXObject('WScript.Shell').Run( psCmd +		var errlevel = new ActiveXObject('WScript.Shell').Run( psCmd +
	psScript, 0, true);		psScript, 0, true);
	if(errlevel==0)document.Write(ClipboardData.GetData());		if(errlevel==0 && editor.ActiveDocument==mydoc)document.Write(ClipboardData.GetData());
	})();		})();
	</nowiki>		</nowiki>

Papagoat: ページの作成:「フォーラム http://haijin-boys.com/index.php?fuseaction=discussions.replies&discussion_id=2933 でヒロさんが希望していた、カレンダーからの日付...」

2016-05-22T02:38:07Z

ページの作成:「フォーラム http://haijin-boys.com/index.php?fuseaction=discussions.replies&discussion_id=2933 でヒロさんが希望していた、カレンダーからの日付...」

新規ページ

フォーラム http://haijin-boys.com/index.php?fuseaction=discussions.replies&discussion_id=2933 でヒロさんが希望していた、カレンダーからの日付挿入マクロです。
パワーシェルで.netのカレンダーコントロールを使用して、クリップボード経由で貼り付けます。

↓↓をmeryのマクロファイルとして保存（例：calendar.js）
<nowiki>
#title = "カレンダーで日付挿入"
/*
* PowerShellを使って .Net の MonthCalendar コントロールを表示します
* 環境に合わせて PowerShell スクリプトのフルパスを修正してください
*
* PowerShell.exe の実行コマンドラインでは、セッションのみローカルの
* スクリプトの実行を許可しています
* Run メソッドではウインドウ非表示で実行し、PowerShell スクリプトの
* 内部で Window.State を操作しています。
* また、Run メソッドでは終了を待つため、フォームが表示されている間、
* 他のマクロは実行できません。
* PowerShell.exe 終了の戻り値が 0 であればクリップボードから貼り付け
* ます。PowerShell.exe 終了から Mery マクロへの復帰までに、他のアプ
* リでクリップボードが操作される可能性は無視しています。
*
* なお、MonthCalendar コントロールでは休日の色付けは困難な模様です。
*/
(function(){
var psScript = 'c:\\temp\\calendar.ps1';//←環境に合わせて修正
var psCmd = 'PowerShell.exe -STA -ExecutionPolicy RemoteSigned -File '
var errlevel = new ActiveXObject('WScript.Shell').Run( psCmd +
psScript, 0, true);
if(errlevel==0)document.Write(ClipboardData.GetData());
})();
</nowiki>
----
↓↓をpowershellのスクリプトファイルとして保存（例：calendar.ps1）
<nowiki>
# MonthCalendar コントロールで日付を選択する Powershell スクリプト
# Enter または F5 でクリップボードにコピー、 Esc でキャンセルして終了する

$exitcode = 0

Add-Type -AssemblyName System.Windows.Forms

$Calendar = New-Object System.Windows.Forms.MonthCalendar
$Calendar.ShowToday = $False
$Calendar.ShowTodayCircle = $False
$Calendar.MaxSelectionCount = 1
# 休日に色を付けるとかはできない模様

$Form = New-Object System.Windows.Forms.Form
$Form.Text = "Select Date"
$Form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedToolWindow
$Form.Controls.Add($Calendar)
$Form.ControlBox = $False
$Form.TopMost = $True
$Form.KeyPreview = $True
$Form.Add_KeyDown({
if (($_.KeyCode -eq "Enter") -or ($_.KeyCode -eq "F5")){
$date = $Calendar.SelectionStart

# "カスタム日時書式指定文字列" を参照
# https://msdn.microsoft.com/ja-jp/library/8kb3ddd4.aspx
# 曜日を日本語で表示するため CultureInfo を指定
$culture = New-Object System.Globalization.CultureInfo("ja-JP")
[Windows.Forms.Clipboard]::SetText($date.ToString("yy/MM/dd(ddd)",$culture))

$Form.Close()
}
})
$Form.Add_KeyDown({
if ($_.KeyCode -eq "Escape"){
$Form.Close()
$exitcode = 1
}
})
$Form.Add_Shown({ $Calendar.Location = New-Object System.Drawing.Point
@(0, 0); $Form.ClientSize = $Calendar.Size; $Form.WindowState = 0; })
$dialogresult = $Form.ShowDialog()
$Calendar.Dispose()
$Form.Dispose()
exit $exitcode
</nowiki>

環境によってはpowershellの起動がやたらと遅いので、使い物にならないかもしれません。
core-i5 Windows7 のビジネスノートではストレスなく動作しましたが、Windows10 にアップグレードされた古い atom ネットブックでは無理でした。