Bootstrap Gridシステムをエクセルでフォーマット

やりにくくて困ってませんか?

簡単に作る方法というか、簡単なスクリプトを作ったので紹介です

まず下のような感じでエクセルで、列 1-12 でレイアウトを作成します。
12列を基準に
セルの結合を行います
(縦結合は対応してません)

1 2 3 4 5 6 7 8 9 10 11 12
{#indate} {#名前} {#1}
{#2} {#3}
{#4} {#5} {#6}
{#7} {#8} {#9}
{#10} {#11} {#12} {#13} {#14} {#15}
{#16} {#17} {#18} {#19} {#20} {#21} {#22} {#23} {#24} {#25} {#26} {#27}

次にエクセルのVBAでボタンイベントに以下を作成

Private Sub CommandButton1_Click()

classbase = "col-md-"
r = 3

hdoc = ""
rowstr = "row" 'rowstr="row-fluid"
constr = "container" 'constr="container-fluid"

hdoc = hdoc & vbCrLf & "
" divno = 1 Do While Cells(r, 1) <> "" hdoc = hdoc & vbCrLf & "
" c = 2 Do While c <= 13 If Cells(r, c) <> "" Then contentstr = "{#" & Cells(r, c) & "}" Else contentstr = "{#" & divno & "}" divno = divno + 1 End If ccnt = Cells(r, c).MergeArea.Columns.Count hdoc = hdoc & vbCrLf & "
" & contentstr & "
" c = c + ccnt Loop hdoc = hdoc & vbCrLf & "
" r = r + 1 Loop hdoc = hdoc & vbCrLf & "
" Dim CB As New DataObject With CB .SetText hdoc .PutInClipboard End With End Sub

クリップボードに以下の内容がコピーされます。
あと上のテーブルで入力したセルの項目を置き換えます


{#indate}
{#名前}
{#1}
{#2}
{#3}
{#4}
{#5}
{#6}
{#7}
{#8}
{#9}
{#10}
{#11}
{#12}
{#13}
{#14}
{#15}
{#16}
{#17}
{#18}
{#19}
{#20}
{#21}
{#22}
{#23}
{#24}
{#25}
{#26}
{#27}

bootstrapのグリッドシステムはいいんだけどそのレイアウト作成はみんなどうしてるのか
この、めんどくさいレイアウトをエディターで作ってるのか、なにかツールがあるのかな?
知ってたら教えてください。

エクセルのセルに直接文章書けば置換の必要はないけど、そういう使い方があるかは不明。