Vorsorge

雑記帳

【vba】選択範囲の漢数字を算用数字に変換(メモ)

Sub Macro1()
'
' 選択範囲の漢数字を英数字に置換
'

    Dim a_漢数字(0 To 11) As String
    
    a_漢数字(0) = ""
    a_漢数字(1) = "一"
    a_漢数字(2) = "二"
    a_漢数字(3) = "三"
    a_漢数字(4) = "四"
    a_漢数字(5) = "五"
    a_漢数字(6) = "六"
    a_漢数字(7) = "七"
    a_漢数字(8) = "八"
    a_漢数字(9) = "九"
    a_漢数字(10) = "十"
    a_漢数字(11) = "百"

    '初期化
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
        
    For i = 0 To 9
        For j = 0 To 9
            For k = 0 To 9
                With Selection.Find
                    '一桁
                    If i = 0 And j = 0 Then
                        .Text = "第" & a_漢数字(j) & a_漢数字(k) & "([条項号])"
                    '10~19
                    ElseIf i = 0 And j = 1 Then
                        .Text = "第十" & a_漢数字(k) & "([条項号])"
                        
                    '20~99
                    ElseIf i = 0 Then
                        .Text = "第" & a_漢数字(j) & "十" & a_漢数字(k) & "([条項号])"
                    '100~109
                    ElseIf i = 1 And j = 0 Then
                        .Text = "第百" & a_漢数字(k) & "([条項号])"
                    '110~119
                    ElseIf i = 1 And j = 1 Then
                        .Text = "第百十" & a_漢数字(k) & "([条項号])"
                    '120~199
                    ElseIf i = 1 Then
                        .Text = "第百" & a_漢数字(j) & "十" & a_漢数字(k) & "([条項号])"
                    '200~209、300~309……
                    ElseIf j = 0 Then
                        .Text = "第" & a_漢数字(i) & "百" & a_漢数字(k) & "([条項号])"
                    Else
                        .Text = "第" & a_漢数字(i) & "百" & a_漢数字(j) & "十" & a_漢数字(k) & "([条項号])"

                    End If
                    
                    If i = 0 And j = 0 Then
                        .Replacement.Text = "第" & k & "\1"
                    ElseIf i = 0 Then
                        .Replacement.Text = "第" & j & k & "\1"
                    '100以上
                    ElseIf 0 < i Then
                        .Replacement.Text = "第" & i & j & k & "\1"
                    End If
                    
                    .Forward = True
                    .Wrap = wdFindStop
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchByte = False
                    .MatchAllWordForms = False
                    .MatchSoundsLike = False
                    .MatchFuzzy = False
                    .MatchWildcards = True
                End With
                
                Selection.Find.Execute Replace:=wdReplaceAll
            Next
        Next
    Next
    
    For i = 9 To 0 Step -1
        For j = 9 To 0 Step -1
            With Selection.Find
                '一桁
                If i = 0 Then
                    If j = 0 Then
                    Else
                        .Text = "の" & a_漢数字(j)
                    End If
                '10~19
                ElseIf i = 1 Then
                    .Text = "の十" & a_漢数字(j)
                    
                '20~99
                Else
                    .Text = "の" & a_漢数字(i) & "十" & a_漢数字(j)
                End If
                
                If i = 0 Then
                    .Replacement.Text = "の" & j
                Else
                    .Replacement.Text = "の" & i & j
                End If
                
                .Forward = True
                .Wrap = wdFindStop
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchByte = False
                .MatchAllWordForms = False
                .MatchSoundsLike = False
                .MatchFuzzy = False
                .MatchWildcards = True
            End With
            
            Selection.Find.Execute Replace:=wdReplaceAll
        Next
    Next
End Sub




編成バフ

全体バフ結果
近接バフ結果

配置バフ

全体バフ結果
近接バフ結果

スキルバフ

範囲バフ結果
全体バフ結果
指定バフ結果




編成バフ

選択 ユニット 職業 HP 攻撃 防御 魔耐 射程
アデル 10
アイシャ 14
アリア 2
ウズメ・レオラ 5
キキョウ 7
ケイティ 2
レン 5
イリス 7
ルイーズ 17
ミヤビ 5

近接

選択 ユニット 職業 HP 攻撃 防御 魔耐 射程
カグラ 5
ジークリンデ 10
マツリ 5 5
グレース 10

選択 ユニット 職業 HP 攻撃 防御 魔耐 射程




配置バフ

選択 ユニット 職業 HP 攻撃 防御 魔耐 射程
覚醒王子 20 20
レーヴ 5 5
コマンダー 3 3 3
バロウス 5 5
ティファ 5 5

スキル

範囲バフ
選択 ユニット 職業 HP 攻撃 防御 魔耐 射程
王子(救世主) 1.19 1.19
王子(大英雄) 1.21 1.21
ラピス 1.5
イリス 2.5

全体バフ
選択 ユニット 職業 HP 攻撃 防御 魔耐 射程

指定バフ
選択 ユニット 職業 HP 攻撃 防御 魔耐 射程

Wordで英数字のフォントを変更する(ワイルドカード編)

検索する文字列 ([\!-~])
オプション:ワイルドカード
書式:特定のフォントを指定

置換後の文字列 \1
書式:特定のフォントを指定

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "([\!-~])"
    .Font.Name = ""
    .Replacement.Text = "\1"
    .Replacement.Font.Name = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchFuzzy = False
    .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

マクロはこんな感じらしい。

Wordで英字のフォントを変更する

置換で曖昧検索オプションを外す。
検索する文字列  ^$

置換後の文字列  ^&
置換後の文字列の書式でフォントを目的のフォントに設定。

このうえですべて置換をする。

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^$"
    .Replacement.Text = "^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

マクロはこんな感じらしい。

ublockを入れてからyoutubeの自動再生が出来ない問題

@@||www.youtube.com/yts/jsbin/www-en_US-*/watch_autoplayrenderer.js$script,domain=www.youtube.com

これをMyフィルターに入れれば多分上手く行くはず。

ドイツの水管理関係法律(連邦法・州法)

連邦法
WHG - nichtamtliches Inhaltsverzeichnis

州法

バーデン=ヴュルテンベルク州(BW) LWG
バイエルン自由州(BY) BayWG
ベルリン(BE) BWG
ブランデンブルク州(BB) BbgWG
自由ハンザ都市ブレーメン(HB) BremWG
自由ハンザ都市ハンブルク(HH) HWaG
ヘッセン州(HE) HWG
メクレンブルク=フォアポンメルン州(MV) LWaG
ニーダーザクセン州(NI) NWG
ノルトライン=ヴェストファーレン州(NW) LWG
ラインラント=プファルツ州(RP) LWG
ザールラント州(SL) SWG
ザクセン自由州(SN) SächsWG
ザクセン=アンハルト州(ST) WG LSA
シュレースヴィヒ=ホルシュタイン州(SH) LWG
テューリンゲン自由州(TH) ThürWG

ドイツの廃棄物関係法律(連邦法・州法)

連邦法
KrWG - nichtamtliches Inhaltsverzeichnis

議会資料
DIP, dem Dokumentations- und Informationssystem für Parlamentarische Vorgänge

法規命令
Abfallrecht (Deutschland) – Wikipedia

バーデン=ヴュルテンベルク州(BW) LAbfG
バイエルン自由州(BY) BayAbfG
ベルリン(BE) Abfallrecht im Land Berlin
ブランデンブルク州(BB) BbgAbfBodG
自由ハンザ都市ブレーメン(HB) BremAGKrW-/AbfG
自由ハンザ都市ハンブルク(HH) HmbAbfG
ヘッセン州(HE) HAKrWG
メクレンブルク=フォアポンメルン州(MV) AbfWG M-V
ニーダーザクセン州(NI) NAbfG
ノルトライン=ヴェストファーレン州(NW) LAbfG
ラインラント=プファルツ州(RP) LKrWG
ザールラント州(SL) SAWG
ザクセン自由州(SN) SächsABG
循環経済法に未対応
ザクセン=アンハルト州(ST) AbfG LSA
シュレースヴィヒ=ホルシュタイン州(SH) LAbfWG
テューリンゲン自由州(TH) ThürAbfG