' Wordにおける表の取り扱い
 Sub Macro1()
     Dim CN As Variant
     Dim CELLobj As Variant
 
     With ActiveDocument
         .Content.Delete  ' 本文部分を全クリア
         .Range(0,0).InsertFile .Path & "\tbl01.txt"
         .Content.Style = wdStyleNormal  ' 標準スタイルを適用
        .Content.ConvertToTable vbTab
        .Tables(1).Borders.InsideLineStyle = wdLineStyleSingle
        .Tables(1).Borders.OutsideLineStyle = wdLineStyleDouble
        For Each CN In Array(1, 2, 4)  ' 1列, 2列, 4列を右揃えに
            For Each CELLobj In .Tables(1).Columns(CN).Cells
                CELLobj.Range.ParagraphFormat.Alignment = _
                    wdAlignParagraphRight
            Next
        Next
        For Each CELLobj In .Tables(1).Rows(1).Cells  ' 1行目を均等割付
            CELLobj.Range.ParagraphFormat.Alignment = _
                wdAlignParagraphDistribute
        Next
    End With
End Sub

 ' Wordにおける表の取り扱い
 Option Explicit
 Dim FSO, DocPath
 Dim WDapp, DOCobj, CN, CELLobj
 Include("constants_wd.vbs")
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 DocPath = FSO.GetAbsolutePathName("Test01.doc")
 If (FSO.FileExists(DocPath) = True) Then FSO.DeleteFile(DocPath)
Set WDapp = CreateObject("Word.Application")  ' Wordの起動
WDapp.Visible = True  ' Wordを見える状態に
Set DOCobj = WDapp.Documents.Add()
With DOCobj
    .Range(0,0).InsertFile FSO.GetAbsolutePathName("tbl01.txt")
    .Content.Style = wdStyleNormal  ' 標準スタイルを適用
    .Content.ConvertToTable vbTab
    .Tables(1).Borders.InsideLineStyle = wdLineStyleSingle
    .Tables(1).Borders.OutsideLineStyle = wdLineStyleDouble
    For Each CN In Array(1, 2, 4)  ' 1列, 2列, 4列を右揃えに
        For Each CELLobj In .Tables(1).Columns(CN).Cells
            CELLobj.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        Next
    Next
    For Each CELLobj In .Tables(1).Rows(1).Cells  ' 1行目を均等割付
        CELLobj.Range.ParagraphFormat.Alignment = wdAlignParagraphDistribute
    Next
End With
DOCobj.SaveAs DocPath, WdFormatDocument
WDapp.Quit

Sub Include(ByVal FileName)
    Dim FSO, FileObj, MyStr
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set FileObj = FSO.OpenTextFile(FSO.GetAbsolutePathName(FileName))
    MyStr = FileObj.ReadAll()
    FileObj.Close
    Set FSO = Nothing
    Set FileObj = Nothing
    ExecuteGlobal MyStr
End Sub

 // Wordにおける表の取り扱い
 var fso, docPath;
 var WdApp, docObj, cells;
 var cn, cnAry, i;
 eval(ReadFile("constants_wd.js"));
 
 fso = WScript.CreateObject("Scripting.FileSystemObject");
 docPath = fso.GetAbsolutePathName("Test01.doc");
 if (fso.FileExists(docPath))  fso.DeleteFile(docPath);
WdApp = WScript.CreateObject("Word.Application");  // Wordの起動
WdApp.Visible = true;  // Wordを見える状態に
docObj = WdApp.Documents.Add();
with (docObj) {
    Range(0,0).InsertFile(fso.GetAbsolutePathName("tbl01.txt"));
    Content.Style = wdStyleNormal;  // 標準スタイルを適用
    Content.ConvertToTable("\t");
    Tables(1).Borders.InsideLineStyle = wdLineStyleSingle;
    Tables(1).Borders.OutsideLineStyle = wdLineStyleDouble;
    cnAry = [1, 2, 4];
    while (cn = cnAry.shift()) {  // 1列, 2列, 4列を右揃えに
        cells = Tables(1).Columns(cn).Cells;
        for (i=1; i<=cells.Count; i++) {
            cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphRight;
        }
    }
    cells = Tables(1).Rows(1).Cells;
    for (i=1; i<=cells.Count; i++) {  // 1行目を均等割付
        cells(i).Range.ParagraphFormat.Alignment = wdAlignParagraphDistribute;
    }
}
docObj.SaveAs(docPath, wdFormatDocument);
WdApp.Quit();

function ReadFile(filename) {
    var fso = WScript.CreateObject("Scripting.FileSystemObject");
    var path = fso.GetAbsolutePathName(filename);
    var MyStr = null;
    if (fso.FileExists(path)) {
        var fobj = fso.OpenTextFile(path, 1);
        MyStr = fobj.ReadAll();
        fobj.Close();
    }
    return MyStr;
}

 ' Wordにおける表の取り扱い・その２
 Sub Macro1()  ' カーソル位置にタブ区切りファイルを読み込んで表を作成
     Dim rs As Integer
     Dim rng As Range
     Dim tbl As Table
     Dim CN As Variant
     Dim CELLobj As Variant
 
     With ActiveDocument
        rs = Selection.Range.Start
        Set rng = .Range(rs, rs+1)
        .Range(rs, rs).InsertFile .Path & "\tbl01.txt"
        Set rng = .Range(rng.Start, rng.End-1)
        rng.Style = wdStyleNormal  ' 標準スタイルを適用
        rng.ConvertToTable vbTab
        Set tbl = rng.Tables(1)
        tbl.Borders.InsideLineStyle = wdLineStyleSingle
        tbl.Borders.OutsideLineStyle = wdLineStyleDouble
        For Each CN In Array(1, 2, 4)  ' 1列, 2列, 4列を右揃えに
            For Each CELLobj In tbl.Columns(CN).Cells
                CELLobj.Range.ParagraphFormat.Alignment = _
                    wdAlignParagraphRight
            Next
        Next
        For Each CELLobj In tbl.Rows(1).Cells  ' 1行目を均等割付
            CELLobj.Range.ParagraphFormat.Alignment = _
                wdAlignParagraphDistribute
        Next
    End With
End Sub

Sub Macro2()  ' 選択範囲内の表を中央揃えにする
    Dim tbl As Variant
    If Selection.Tables.Count > 0 Then
        For Each tbl In Selection.Tables
            tbl.Rows.Alignment = wdAlignRowCenter
        Next
    Else
        MsgBox "選択範囲に表がありません。"
    End If
End Sub