2015-08-14 19 views
9

Belgemin sonunda yeni bir tablo oluşturmaya çalışıyorum ve bunları özelliklerime göre biçimlendiriyorum. Ama backgroundcolor ve textcolor çalışmıyor gibi görünüyor. Yazı tipi boyutu da tam olarak istediğim şey değildir, çünkü yalnızca bir hücreye değil, tüm tabloya uygulanır.vba ile tablodaki belirli hücrelerin rengini ve yazı tipini değiştirme

Bu defa ne var:

Dim myRange As Object 
Set myRange = ActiveDocument.Content 
myRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=2 
With .Tables(.Tables.Count) 
    .Cell(1, 1).Select 
    With Selection 
     .Shading.Texture = wdTextureNone 
     .Shading.ForegroundPatternColor = wdColorWhite 
     .Shading.BackgroundPatternColor = wdColorGray25 
     .Font.Size = 14 
     .Font.Bold = True 
     .Text = "Hello World" 
    End With 
End With 

Ben sınırları olmayan ve yazı 14 gri arka plan üzerinde kalın, beyaz metinle tablonun ilk satırı istiyorum.

+0

'u kullanırken .Range'un kullanımı neden bir -1? Soru çok mu aptalca? – Kazschuri

cevap

9

Cevabı buldum. aşağıdaki gibi

çözüm:

With .Tables(.Tables.Count)   
    With .Cell(1, 1) 
     .Shading.BackgroundPatternColor = wdColorGray50 
     With .Range 
      With .Font 
       .TextColor = wdColorWhite 
       .Size = 18 
       .Bold = True 
      End With 
      .Text = "Hello World" 
     End With 
    End With    
End With 

bir hücrenin seçimine çıkarıldı ve direkt olarak kullanılır. Ama gerçek olan, .Font ve .Text

İlgili konular