Vorsorge

雑記帳

最二小判昭和37年1月19民集16巻1号57頁

一 公衆浴場法(昭和37年法律第161号による改正前のもの)

第1条 この法律で「公衆浴場」とは、温湯、潮湯又は温泉その他を使用して、公衆を入浴させる施設をいう。
2 この法律で「浴場業」とは、都道府県知事の許可を受けて、業として公衆浴場を経営することをいう。
第2条 業として公衆浴場を経営しようとする者は、政令の定める手数料を納めて、都道府県知事の許可を受けなければならない。
2 都道府県知事は、公衆浴場の設置の場所若しくはその構造設備が、公衆衛生上不適当であると認めるとき又はその設置の場所が配置の適正を欠くと認めるときは、前項の許可を与えないことができる。但し、この場合においては、都道府県知事は、理由を附した書面をもつて、その旨を通知しなければならない。
3 前項の設置の場所の配置の基準については、都道府県が条例でこれを定める。

地方自治法(昭和31年法律第163号による改正前のもの)

第2条 地方公共団体は、法人とする。
② 普通地方公共団体は、その公共事務及び法律又はこれに基く政令により普通地方公共団体に属するものの外、その区域内におけるその他の行政事務で国の事務に属しないものを処理する。
(略)
⑦ 第2項の事務の中で法律又はこれに基く政令の定めるところにより都道府県が処理しなければならないものは、この法律又はこれに基く政令に規定のあるものの外、別表第一の通りである。
第148条 普通地方公共団体の長は、当該普通地方公共団体の事務及び法律又はこれに基く政令によりその権限に属する国、他の地方公共団体その他公共団体の事務を管理し及びこれを執行する。
② 前項の規定により都道府県知事の権限に属する国、他の地方公共団体その他公共団体の事務の中で法律又はこれに基く政令の定めるところにより都道府県知事が管理し及び執行しなければならないものは、この法律又はこれに基く政令に規定のあるものの外、別表第三の通りである。
③ 第1項の規定により市町村長の権限に属する国、他の地方公共団体その他公共団体の事務の中で法律又はこれに基く政令の定めるところにより市町村長が管理し及び執行しなければならないものは、この法律又はこれに基く政令に規定のあるものの外、別表第四の通りである。
別表第一
都道府県が処理しなければならない事務
(略)
十二 公衆浴場法(昭和23年法律第139号)の定めるところにより、公衆浴場の設置場所の配置の基準、公衆浴場の換気、採光、照明、保温及び清潔その他入浴者の衛生及び風紀に必要な措置の基準を条例で定めること。
別表第三
一 都道府県知事が管理し、及び執行しなければならない事務
(略)
(二十三)公衆浴場法の定めるところにより、公衆浴場の経営の許可に関する事務を行い、及び職員をして営業の施設に立入検査させること。

京都府公衆浴場法施行条例

第1条 公衆浴場法第2条第3項の規定による公衆浴場の設置場所の配置の基準は、各公衆浴場の最短距離を250メートル間隔とする。但し、土地の状況、人口の密度及び入浴回数等より知事が適正配置と認めたときは、この限りでない。

【vba】全角英数字を半角英数字に変更

全文の全角英数字を半角英数字に変更するマクロは下記を参照
q.hatena.ne.jp

Sub 英数半角化()
    '
    ' 選択範囲の全角英数字を半角に置換
    '
    
    '初期化
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
    For i = 48 To 57 Step 1
        With Selection.Find
            .Text = StrConv(Chr(i), 4)
            .Replacement.Text = Chr(i)
            .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
    
    For i = 65 To 90 Step 1
        With Selection.Find
            .Text = StrConv(Chr(i), 4)
            .Replacement.Text = Chr(i)
            .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
    
    For i = 97 To 122 Step 1
        With Selection.Find
            .Text = StrConv(Chr(i), 4)
            .Replacement.Text = Chr(i)
            .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
End Sub

【vba】【法令用】選択範囲の漢数字を算用数字に変換(修正)

Sub eGov2()
    '
    ' 選択範囲の漢数字を英数字に置換
    '
    Dim i_百 As Integer
    Dim i_十 As Integer
    Dim i_一 As Integer
    Dim str_検索文字列 As String
    
    '初期化
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
    For i = 999 To 1 Step -1
        i_百 = i \ 100
        i_十 = i Mod 100
        
        i_一 = i_十 Mod 10
        i_十 = i_十 \ 10
        
        str_検索文字列 = 漢数字変換(i_百, "百") + 漢数字変換(i_十, "十") + 漢数字変換(i_一, "一")
        
        With Selection.Find
            .Text = "([第法条項号前])" & str_検索文字列 & "([編章節款目条項号種])"
            .Replacement.Text = "\1" & i & "\2"
            .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
    
    For i = 99 To 1 Step -1
        
        i_一 = i Mod 10
        i_十 = i \ 10
        
        str_検索文字列 = 漢数字変換(i_十, "十") + 漢数字変換(i_一, "一")
        
        With Selection.Find
            .Text = "([の治正和成])" & str_検索文字列 & "([第 年の])"
            .Replacement.Text = "\1" & i & "\2"
            .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
        
    For i = 99 To 1 Step -1
        
        i_一 = i Mod 10
        i_十 = i \ 10
        
        str_検索文字列 = 漢数字変換(i_十, "十") + 漢数字変換(i_一, "一")
        
        With Selection.Find
            .Text = str_検索文字列 & "([時間])"
            .Replacement.Text = i & "\1"
            .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


End Sub

Function 漢数字変換(ByVal i As Integer, ByVal str_位 As String) As String
    Select Case i
        Case 0
            漢数字変換 = ""
        Case 1
            '一、十、百をそのまま出力
            漢数字変換 = str_位
        Case 2
            If str_位 = "一" Then
                漢数字変換 = "二"
            Else
                漢数字変換 = "二" + str_位
            End If
        Case 3
            If str_位 = "一" Then
                漢数字変換 = "三"
            Else
                漢数字変換 = "三" + str_位
            End If
        Case 4
            If str_位 = "一" Then
                漢数字変換 = "四"
            Else
                漢数字変換 = "四" + str_位
            End If
        Case 5
            If str_位 = "一" Then
                漢数字変換 = "五"
            Else
                漢数字変換 = "五" + str_位
            End If
        Case 6
            If str_位 = "一" Then
                漢数字変換 = "六"
            Else
                漢数字変換 = "六" + str_位
            End If
        Case 7
            If str_位 = "一" Then
                漢数字変換 = "七"
            Else
                漢数字変換 = "七" + str_位
            End If
        Case 8
            If str_位 = "一" Then
                漢数字変換 = "八"
            Else
                漢数字変換 = "八" + str_位
            End If
        Case 9
            If str_位 = "一" Then
                漢数字変換 = "九"
            Else
                漢数字変換 = "九" + str_位
            End If
        Case Else
    End Select
End Function

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

Sub 裁判例用()
'
' 選択範囲の漢数字を英数字に置換
'

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

    '初期化
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    
    '4000からのカウントダウン
    For i = 4000 To 1 Step -1
        i_一 = i Mod 10
        i_十 = ((i Mod 100) - i_一) \ 10
        i_百 = ((i Mod 1000) - (i_十 * 10 + i_一)) \ 100
        i_千 = i \ 1000

        
        With Selection.Find
            If i >= 1000 Then
                .Text = a_漢数字(i_千) & a_漢数字(i_百) & a_漢数字(i_十) & a_漢数字(i_一) & "([条項号年月日巻頁])"
            ElseIf 1000 > i And i >= 100 Then
                .Text = a_漢数字(i_百) & a_漢数字(i_十) & a_漢数字(i_一) & "([条項号年月日巻頁])"
            ElseIf 100 > i And i >= 10 Then
                .Text = a_漢数字(i_十) & a_漢数字(i_一) & "([条項号年月日巻頁])"
            Else
                .Text = a_漢数字(i_一) & "([条項号年月日巻頁])"
            End If
            
            .Replacement.Text = i & "\1"
            
            .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
    
    With Selection.Find
        .Text = " ("
        .Replacement.Text = "("
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = ") "
        .Replacement.Text = ")"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p "
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

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

    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 And (Not k = 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 And (Not k = 0) Then
                        .Replacement.Text = "\1" & k & "\2"
                    ElseIf i = 0 Then
                        .Replacement.Text = "\1" & j & k & "\2"
                    '100以上
                    ElseIf 0 < i Then
                        .Replacement.Text = "\1" & i & j & k & "\2"
                    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 = 6 To 0 Step -1
        For j = 9 To 0 Step -1
            With Selection.Find
                '一桁
                If i = 0 Then
                    .Text = "([治正和成])" & a_漢数字(i) & a_漢数字(j) & "年"
                '10~19
                ElseIf i = 1 Then
                    .Text = "([治正和成])十" & a_漢数字(j) & "年"
                    
                '20~99
                Else
                    .Text = "([治正和成])" & a_漢数字(i) & "十" & a_漢数字(j) & "年"
                End If
                
                If j = 0 Then
                    .Replacement.Text = "\1" & j & "年"
                Else
                    .Replacement.Text = "\1" & 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
    
    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

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

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