【Word VBA】フォルダー一括作成マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub フォルダー一括作成マクロ()
Const BASEFOLDER = "G:\" '基本のフォルダー
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim varFldN As Variant, varWork As Variant
Dim strFldN() As String
Dim intFldL() As Integer
Dim varTemp As Variant, strTemp As String
'############################
' フォルダー名テーブル (1;→1-1;→1-1-1;→1-1-1-1;
'############################
varFldN = Array("1;関東", "2;関西", "3;北陸", _
"1-1;東京都", "1-2;神奈川県", "1-3;千葉県", _
"1-4;埼玉県", "1-5;茨城県", "1-6;栃木県", _
"1-7;群馬県", _
0