【Word VBA/マクロ】表内のテキスト左揃え

サンプルコードでできること

表内の両端揃えのテキストを左揃えに変更します。

Sub TblTextLeft()
    Dim cel As Cell, tbl As Table
    Dim para As Paragraph
    
    For Each tbl In ActiveDocument.Tables
        For Each cel In tbl.Range.Cells
            For Each para In cel.Range.Paragraphs
                With para
                    If .Alignment = wdAlignParagraphJustify Then
                        .Alignment = wdAlignParagraphLeft
                    End If
                End With
            Next
        Next
    Next
End Sub