すべてのカテゴリ

Option Explicit Option Base 0 Public Sub フォント一覧表作成マクロ()     Const FONTDFNAM = "ＭＳ 明朝"　　　　 'フォント名フォント     Const FONTDSIZE = 14 　　　　　　　　  'フォントサイズ     Const FONTSMCHR = "ABC123ゆういち"   'サンプル文字     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim tblFnt As Table, rowFnt As row     '*既存の表を削除     For Ip = ActiveDocument.Tables.Count To 1 Step -1         ActiveDocument.Tables.Item(Ip).Delete     Next Ip     '*表作成     Set tblFnt = ActiveDocument.Tables.Add( _                  Range:=ActiveDocument.Range(Start:=0, End:=0), _                  NumRows:=1, NumColumns:=2)     tblFnt.Style = "表 (格子)"     '*見出し     tblFnt.Cell(1, 1).Range.Text = "フォ