Macro/投稿/91

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25

use strict;
use warnings;
use Win32::Clipboard;
 
# 選択状態を取得
my $is_text_selected = IsTextSelected();
exit 0 unless $is_text_selected;        # 未選択時は終了
 
# 選択文字列の取得
my $seltext = GetSelectedString();
 
# 7-bit ASCII 以外の文字を \x80 に置換
$seltext =~ tr/\x81-\xff/\x80/;
 
# 置換後文字列の出力
if ($is_text_selected == 2) {
        # 矩形選択時→矩形貼り付け
        Win32::Clipboard::Set($seltext);
        PasteBox();
}
else {
        # 通常選択時→挿入
        InsText($seltext);
}
 
#...............................................................................