2016-04-04 11 views
0

テーブル内のアライメントに問題があります。これはvbaを使用して作成します。コードは機能しますが、表のフォーマット化は変更されません。選択は機能しています。あなたはWordの定数ではなく、Excelの使用をテーブル内のアラインメントテーブル内のアラインメント

objTable.Columns(5).Select 
With objWord.Selection 
    .ParagraphFormat.Alignment = wdAlignParagraphCenter 
    .Cells.VerticalAlignment = wdCellAlignVerticalCenter 
End With 

注:

objTable.Columns(5).Select 
With objWord.Selection 
    HorizontalAlignment = xlCenter 
    VerticalAlignment = xlCenter 
End With 

Create a Word document with table via vba excel: 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
objWord.Activate 
Set objDoc = objWord.Documents.Add(path) 
Set objRange = objDoc.Range 
objRange.Collapse Direction:=wdCollapseEnd 
objDoc.Tables.Add objRange, number_row, number_column 
Set objTable = objDoc.Tables(2) 

答えて

0

は、Wordのオブジェクトライブラリに設定された基準を持っていると仮定すると、次のようなものが必要。

+0

最初の行の作業がテーブルで変更されていますが、2行目に「RangeクラスのVerticalAlignmentプロパティを設定できません」というエラーが表示されます。 – Oslidz

+0

コードに2行目の誤字がありました。 Wordオブジェクトライブラリに参照が設定されていますか? – Rory

+0

私はこのマニュアルに従って、libraru Microsoft Wordのリファレンスを追加しました:https://msdn.microsoft.com/en-us/library/office/gg264402.aspxとWorking !! – Oslidz