最二小判昭和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
マクロはこんな感じらしい。