新着記事一覧 | All season with my Dear

Likebook Muses ＋一太郎Pad

Likebook Muses のファームをバージョンアップをしたら、とてもスムーズに動くようになって嬉しい。この秋～冬に、キャンプファイヤーやグリーンファンディングで、Androidのカラーデジタルノートが出てて、すごく迷った。けど、新しい端末の不具合が解消されてサクサクになるまで時間がかかるので、やっぱり今年はやめておく。（いや、本当はまだ欲しい。特に10インチのReinkstone R1にはめっちゃ惹かれてる）さて、Likebook Musesには、AI音訳という手書き認識があるんだけど、中国語と英語。日本語未対応。本気で、漢字だけで書くか？！と思った（笑）それで、スマホで手書きOCRを探し回っていたら、なんのことはない、もう入ってる一太郎Padでできた。しかも、認識率良い。・新しいアプリ入れなくていい・パソコン一太郎と連携可能（持ってる）・Likebook Musesに入れたら単体で手書き日本語認識可能ということで、ひと手間増えるけど、ほぼ考えていた通りの動作になる。このノートを共有エクスポートで、ローカル→地元PNGで出力。一太郎padで取り込んで認識するとカンペキ！これなら使える！スクショもとりやすくなったので、スクショならもっと手軽にできそう！機能拡張できるところが、やっぱりAndroidタブレットのいいところだよね。手書きガジェットには、今は亡きnoteslateのころから注目されているしていたけど、未だに理想的な機種が出てこない。専用機のシャープ電子ノートとかクアデルノには、好みの機能を追加するのはなかなか出来ないので、新機種が出る度に、限られた機能で満足できるかどうか悩んだ。実際、１つ２つは買ったけど、じき使わなくなった。 Likebook Musesは、BOOXと比較して安いほうを買ったのだけれど、書き味は気に入ってた。気に入ってたのに、ノートのデータベースぶっ飛ばすというバグを配信してくれたので、しばらく使ってなかった。（有り得ないでしょう！怒）今回、Web記事でV3にバージョンアップしたのに気づいたので、やってみてら、サクサクになった。で、手書き認識も可になった。けっこう使えるヤツになったかも？しばらく使ってみよう。もうDBは飛ばさないでね（汗）でも、来年か再来年くらいには、カラーがほしいかな～

2021年12月08日

コメント(0)

Wordの一括置換マクロ

マクロをよく作るのだけど，公開はしていませんでした。よく公開してあるマクロを参考にさせていただくので，私も公開しようかなと思いました。Wordで，別ファイルに置換データ（置換ファイル）を作っておいて，置換したい文書ファイルを一括置換するマクロです。置換ファイルは１行１データ，もちろん複数行OK。書式：<行頭>置換文字列<tab>検索文字列<TAB>nasi<以降の文字列は無視>誰か使う人がいたら参考にしてください。改造してもっといいのができたら，私にもちょうだい＾＾（以下マクロ本文）Sub 一括置換()'' 一括置換 Macro'置換ファイル=*.txt'<行頭>置換文字列<tab>検索文字列<TAB>nasi<以降の文字列は無視>'置換文字列が空文字なのは置換しない'正規表現の書き方がWZEditorとは違うので注意あまり複雑な正規表現は無理'<tab>のない文字列は無視'nasiの場合は確認しない'エラーが出るとそこで終了する' 作成日 2015/02/13 作成者つかさ猫On Error GoTo 一括置換_Error'relファイルDim rel As Word.Document'文書ファイル＝アクティブドキュメント'Dim actdoc As Range'ファイル名を取得する i = InStrRev(ActiveDocument.Path, "\") tkwpath = Left(ActiveDocument.Path, i)With Application.FileDialog(msoFileDialogFilePicker) .ButtonName = "選択" .InitialFileName = tkwpath With .Filters .Clear .Add "置換ファイル", "*.txt;*.doc;*.docx", 1 .Add "すべてのファイル", "*.*", 2 End With If .Show = -1 Then 'relを読込専用で読込 Set rel = Documents.Open(.SelectedItems(1), ReadOnly:=True, Visible:=False) Else 'キャンセル GoTo 一括置換_End End IfEnd With 'relファイルの中身すべてを配列でDim relline() As String'rellineの１行の検索・置換文字列を配列でDim relwd() As String'c=relの全行数Dim c As Integer c = rel.BuiltInDocumentProperties(wdPropertyLines)'スキップ行Dim relskip relskip = "#"ReDim relline(c)For i = 1 To c 'relファイルの中身を全部取得' relline(i) = Replace(rel.Paragraphs(i).Range, vbCr, "") relline(i) = rel.Paragraphs(i).Range 'i行目をrelwdに配列で格納，区切り文字\t If (relline(i) <> vbNewLine) Then '改行だけの行は飛ばす relwd = Split(relline(i), Chr(9), 3) '検索文字列と置換文字列が""じゃない '#で始まらない 'relwdのインデックスが2以上 Dim cond(4) As Boolean '検索を実行するcondition cond(0) = (relwd(0) <> "") cond(2) = (Left(relwd(0), 1) <> relskip) If (UBound(relwd) > 0) Then cond(1) = (relwd(0) <> "") cond(3) = True Else cond(1) = False cond(3) = False End If If (UBound(relwd) > 2) Then If (relwd(2) = "nasi") Then cond(4) = True Else cond(4) = False End If End If If (cond(0) And cond(1) And cond(2) And cond(3)) Then ' MsgBox relwd(0) & " " & relwd(1) relwd(1) = Replace(relwd(1), vbLf, "") relwd(1) = Replace(relwd(1), vbCr, "") StatusBar = "検索文字列:" & relwd(1) & " 置換文字列:" & relwd(0) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = relwd(1) '検索文字列 .Forward = True '検索方向＝文末方向 .Wrap = wdFindContinue '文書の末尾まで達したら先頭から検索 .Format = False '書式検索 .MatchCase = False '大文字と小文字を区別しない .MatchWholeWord = False '単語検索しない .MatchByte = False '全半角の区別しない .MatchAllWordForms = False '検索語の活用形も検索しない（英語だけ？） .MatchSoundsLike = False '似た語の検索しない .MatchFuzzy = False 'あいまい検索しない .MatchWildcards = True '正規表現で検索する .Replacement.Text = relwd(0) '置換文字列 .Replacement.Font.Bold = True '置換した文字を太字に ret = .Execute(Replace:=2) '検索実行，確認しない End With End If End If ActiveDocument.AcceptAllRevisionsShown Next GoTo 一括置換_End一括置換_Error: MsgBox "エラーです:" & Chr(13) & Chr(10) _ & i & "行目：" & Chr(13) & Chr(10) _ & "検索文字列（" & relwd(0) & "）" _ & "置換文字列（" & relwd(1) & "）"Resume Next一括置換_End: rel.Close SaveChanges:=wdDoNotSaveChangesEnd Sub

2020年04月21日

コメント(0)

一太郎で青空文庫ルビ

むかーし作ったマクロですが、リクエストがあったので載せます。青空文庫テキストにルビをふる一太郎マクロですが、長いテキストだとループを起こして終わらないことがあるような感じです。エラーを検証して直している余裕がないので、エラーを起こしたら報告していただければ、そのうち直すかもしれません。ご自分で直して使っていただいてもOKです。↓↓以下説明↓↓ --- 青空文庫のテキストにルビを振る --- --- for 一太郎2008 --- --- ver1.30 --- --- 2010/4/25 Copyright Tsukasa --- ルビを振って、傍点を処理し、一部の字下げ処理をして、題名・作者のファイル名で保存し、JUST PDFで出力します。青空文庫形式の文書にルビを振るマクロです。ルビを振って、傍点を処理し，一部の字下げ処理をします。何回か確認メッセージが出るので、「はい」で実行してください。Willcom NS の画面で見やすいサイズにスタイルを設定して，題名・作者名のファイル名で保存します。JUST PDFのシステムマクロ「現在の文書をPDF形式に変換」を使ってPDFに出力します。JUST PDFがインストールされていない場合はエラーになります。「とりあえず公開」なので、中身は整理されていません。時間があったら整理して、ほかの処理も追加していきます。システムマクロにコピーしておつかい下さい。フリーソフトです。著作権は放棄しませんが，自由に改変・配布して下さい。免責　このマクロの使用によっていかなる損害が生じようと、一切責任は負いません。あらかじめご承知の上ご使用下さい。履歴1.3 2010/4/25 ルビの処理を訂正。長いルビにも対応した。まだエラーを起こすことがある。字下げの処理を追加した。 JustPDFを使ってPDFに出力するようにした。1.2 2010/04/12 傍点の処理を追加・NS画面用のスタイルに変更1.1 2010/04/10 ルビを振る処理が失敗することがあるのを修正題名・作者名のファイル名で保存する処理を追加1.0 20100409 ルビを振るマクロを作成↑↑以上説明↑↑↓↓以下マクロ本文↓↓ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ-----------ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ!! --- 青空文庫のテキストにルビを振る ---!! --- for 一太郎2008 ---!! --- ver1.30 ---!! --- 2010/4/25 Copyright Tsukasa ---!!!! ルビを振って、題名・作者のファイル名で保存します。!!ver 1.20 傍点の処理を追加・NS画面用のスタイルに変更!!ver 1.30 ルビの処理を訂正。長いルビにも対応した。まだエラーを起こすことがある。!! 字下げの処理を追加した。!! JustPDFを使ってPDFに出力するようにした。!!↓↓ルビの処理↓↓!!↓↓長い単語のルビの処理↓↓ declare variable %ページ(2) declare variable %行(2) declare variable %字(2) 文書頭() %ret(1) =1 %i = 0 !!一番最初の|は処理しないためのカウンタ do until %ret(1) =0 %ret(1) = 正規表現検索("｜",1) if(%ret(1)>0 and %i >0) then %ページ(1)= GetPage() %行(1) = GetRow() %字(1) = GetColumn() 挿入("★") %ret(2) = 正規表現検索("《[^》]+》",1) if(%ret(2)>0) then %ページ(2)= GetPage() %行(2) = GetRow() %字(2) = GetColumn() %ルビ = GetString() try !!エラー発生時はこのルビ処理は飛ばす if(MaxSize(%ルビ)>1)then %ルビ(1) = %ルビ(1) & %ルビ(2) end if 削除() %字数=Len(%ルビ(1)) %ルビ(1) = Mid(%ルビ(1),2,%字数-2) 範囲モード(1) ジャンプ(%ページ(1),%行(1),%字(1)) 範囲始点() ジャンプ(%ページ(2),%行(2),%字(2)) 範囲終点() ルビ( 1, %ルビ(1),1)!! ジャンプ(%ページ(1),%行(1),%字(1))!! 削除() exception case else 挿入("★") end try end if end if %i = %i+1 loop!!↑↑長い単語のルビの処理↑↑!!↓↓短い単語のルビの処理↓↓文書頭( )%ret　= 1do until %ret = 0 %ret = 正規表現検索( "《.》|《..》|《...》|《....》|《.....》|《......》|《.......》|《........》|《.........》|《..........》",1 ) if(%ret<>"")then %ルビ = GetString( ) !!エラー発生時はこのルビ処理は飛ばす try try if(MaxSize(%ルビ)>1) then %ルビ(1) = %ルビ(1) & %ルビ(2) end if %字数 = Len(%ルビ(1)) %ルビ(1) = Mid(%ルビ(1),2,%字数-2) 挿入("★") LeftWord( 2 ) 範囲モード( 6 ) 範囲始点( ) 範囲終点() ルビ( 1,%ルビ(1) ,1) exception case else 挿入("★") end try end ifloop文字全置換("★",,3,0,0)!!↑↑ルビの処理↑↑!!↓↓傍点の処理↓↓文書頭( )%ret　= 1do until %ret = 0 %ret = 正規表現検索( "［＃「[^」]+」に傍点］",1 ) if(%ret<>"")then %ルビ = GetString( ) if(MaxSize(%ルビ)>1) then %ルビ(1) = %ルビ(1) & %ルビ(2) end if %字数 = Len(%ルビ(1))-8 カット() 範囲モード(1) 範囲始点( ) 前文字(%字数) 範囲終点() 傍点( 2) end ifloop!!↑↑傍点の処理↑↑!!↓↓字下げの処理↓↓文書頭()%ret=1do until %ret = 0 %ret = 正規表現検索("［＃ここから.字下げ］",1) if(%ret > 0 ) then %文字 = GetString() %数 = han(Mid(%文字(1),7,1))*2 if(%数>0)then 削除() else continue do end if %ページ(1)= GetPage() %行(1) = GetRow() %ret = 正規表現検索("［＃ここで字下げ終わり］",1) %ページ(2)=GetPage() %行(2) = GetRow() 削除ジャンプ(%ページ(1),%行(1),1) 範囲モード(2) 範囲始点() ジャンプ(%ページ(2),%行(2),1) 範囲終点() インデント(1,%数) end ifloop!!↑↑字下げの処理↑↑!!↓↓スタイルの設定↓↓!!用紙　53.0×82.0!!余白上下左右5.0mm!!縦書き!!字数22!!行数10%用紙名="NS画面"%幅=53%長=82%余白=5%字数=22%行数=10%bool = 0%list = GetPrintPaPerList()for %i = 1 to MaxSize(%list) if(%list(%i)=%用紙名)then %bool = 1 exit for end ifnext!! %bool=1のときは用紙登録済みif(%bool = 0) then 新規用紙名( %用紙名,1,%幅,%長)end if印刷スタイル用紙( %用紙名 )!!マージン印刷スタイルマージン( 5, 5, 5, 5, 1)!!フォント8pt印刷スタイルフォント( , , , , 10,8)!!ページ中央下 5pt印刷スタイルページ(2 ,3, 1, , 0,0,1,1,,1, , ,1,5, 3)!!レイアウト印刷スタイルレイアウト( %字数, %行数, , ,, 2, 1 )印刷スタイル設定( )!!↑↑スタイルの設定↑↑!!↓↓文書名の処理↓↓文書頭()範囲モード(2)範囲始点()次行(4)範囲終点()%題名 = GetString()%カレント = SplitPath( GetDocumentName(1) )%題名(0) = %カレント("DRIVE") & %カレント("DIRECTORY")for %i = 1 to MaxSize(%題名) if(%題名(%i)<>"") then if(%i = 1) then %題名(0) = %題名(0) & %題名(%i) else %題名(0) = %題名(0) & "・" & %題名(%i) end if else exit for end ifnext文書保存(%題名(0))!!↑↑文書名の処理↑↑!!↓↓システムマクロを使ってPDFに変換↓↓ システムマクロ実行("現在の文書をPDF形式に変換(JUST_PDF)") !!↑↑システムマクロを使ってPDFに変換↑↑↑↑以上マクロ本文↑↑

2017年06月25日

コメント(0)

レシピ：ソーキ汁（沖縄料理）

材料・大根・スペアリブ（できれば市販の半分くらいの長さ）・昆布・だし・しょうゆ（味噌でも）１。大根をしたゆでする２。昆布を戻して茹でる（圧力鍋なら５分、軟らかく）３。大根・昆布・スペアリブを鍋に入れて、あくを取りながら煮る４。肉が軟らかくなったら、だし・しょうゆ（色つけくらい）で味付け。好みで味噌でもOK

2015年05月23日

コメント(0)

レシピ：人参シリシリ（沖縄料理）

沖縄出身の人に、沖縄料理を教えてもらった。今度作ってみよう。材料人参シーチキン卵油だしor味の素１。人参を千切りにする。スライサーを使うと楽２。人参を油でいためる３。シーチキンを入れていためる（シーチキンの油でいためてもいいかも？）４。だしor味の素で味を付ける５。溶き卵を入れて、混ぜる。スクランブルエッグみたいな感じ。

2015年05月23日

コメント(0)