2016-04-04 37 views
0

Vba excel ile oluşturduğum bir tabloda Aligment ile ilgili bir sorunum var. Kod çalışır, ancak tablodaki biçimlendirmeyi değiştirmez. Seçim çalışıyor. Eğer Word'ün sabitleri değil Excel'inkine kullanmakTablodaki hizalama vba excel

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

Not:

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) 

cevap

0

Word nesne kitaplığına ayarlanmış bir başvuru var varsayarsak, böyle bir şey gerekiyor.

+0

Bir satırdaki ilk satır çalışması, ancak bir tabloda, ikinci satırda hata var "Range sınıfının VerticalAlignment özelliğini ayarlanamıyor" hatası var – Oslidz

+0

Şimdi ikinci satır için düzeltdiğim kodda bir yazım hatası vardı. Word nesne kitaplığına bir referans ayarınız var mı? – Rory

+0

Bu elkitabına göre, Microsoft Word'ün Microsoft'a ait referanslarını ekledim: https://msdn.microsoft.com/en-us/library/office/gg264402.aspx ve Çalışıyor! – Oslidz