İki hücreyi birleştirmek için VBA kodu

-2

Benim senaryo, bir iki sütunlu tablo içeren bir belgedir. Bir veritabanından okuyorum ve her satır/sütun dolduruyorum, ancak bazı kayıtlar için, iki sütunu bir hücreye birleştirmek ve bunu bir satır olarak doldurmak istiyorum, sonra iki sütun senaryosuna devam ediyorum. Satır boyunca bir hücre oluşturmak için iki hücreyi birleştirmek için bir VBA bildirimi vermek istiyorum. Bu yeni bir makro olarak "kaydetmek" imkansız. Satır numarasının çalışma zamanında ne olduğunu bilmiyorum, sadece sütun numaralarını biliyorum. Arama dizgim: '' Word 2013 '' VBA tablosu hücreleri birleştirir '' ancak VBA koduyla değil, manuel olarak nasıl yapılacağını gösteren bir çok site var.İki hücreyi birleştirmek için VBA kodu

Benim geçerli kod: Belgede

With ActiveDocument.Tables(1) 
.Cell(Row:=1, Column:=1).merge _ 
MergeTo:=.Cell(Row:=1, Column:=2) 
.Borders.Enable = True 
End With

, ben bir satır ve iki sütun küçük bir masa var. Ama herhangi bir sütun karışımıyla üç sıradan oluşan bir tabloya sahip olmalıyım, değil mi? Sadece iki sütun seçmek ve bir alan yaratmak için onları birleştirmek istiyorum, ancak çalışma zamanında hangi satır numarasının sağlandığını bilmiyorum.

kaynak

2016-04-07 Tony Rowlett

Belge, bir satır önceden varolan bir tabloyu, iki sütun içeren bir .dotm şablonu. Başlatıldığında, bir veritabanından okur. Kayıtlar okunduğunda, tabloya yeni bir satır eklenir. Belirli bir veritabanı değeri ortaya çıkarsa, satırın iki hücresini satır için bir hücreye birleştirmek ve bu satırda bir "başlık bilgisi" yerleştirmek istiyorum. Bundan sonra, verileri okumaya devam etmek istiyorum, aşağıdaki satırlar tekrar iki sütun. Umarım bu okunabilir. Kulağa çok karmaşık geliyor ama planım çok basit görünüyor. –

https://msdn.microsoft.com/en-us/library/office/ff821310.aspx –

Linkiniz için teşekkürler Tim Williams. Yine de işe yaramıyor. Hata alıyorum: Çalışma zamanı hatası '5941': Koleksiyonun istenen üyesi mevcut değil. –

Sonunda bu işe yaradım ve yardımlarınız için tekrar teşekkür etmek istiyorum. İşte şu anki kodum. Tüm belge iki sütunlu bir tablodur, sıskadır ve bir iPhone üzerinde okunup gezinebilmeleri için köprüler içerir. Bir Birim değeri verilerde değiştiğinde, 1) aşağıya yeni bir satır eklemek ve bir sütuna birleştirmek, bir 'Eve Git' bağlantısını eklemek ve ardından iki sütun satır eklemeye devam etmek istiyorum.

Bu belge nihayet bir .PDF'ye dönüştürülmüş ve iOS kullanıcıları tarafından erişilmiştir.

'Add a row for a 'back to home' link 
    If (intUnitOrder > intCurrentUnit) Then 
     Selection.InsertRowsBelow (1) 
     rowno = Selection.Information(wdEndOfRangeRowNumber) - 1 
     With ActiveDocument.Tables(1) 
     .Cell(Row:=rowno, Column:=1).Merge MergeTo:=.Cell(Row:=rowno, _ 
     Column:=2) 
     End With 

     Selection.Tables(1).Rows(rowno).Range.ParagraphFormat. _ 
     Alignment = wdAlignParagraphRight 
     Selection.Shading.BackgroundPatternColor = RGB(230, 230, 230) 
     Selection.Font.ColorIndex = wdBlue 
     Selection.Font.Italic = True 

     ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _ 
     Address:="#Home", SubAddress:="", _ 
     ScreenTip:="Go back to the top", _ 
     TextToDisplay:="back to Home" 

     Selection.MoveDown wdLine, 1 
     intCurrentUnit = intUnitOrder 
    End If

kaynak

2016-04-13 22:43:25

İki hücreyi birleştirmek için VBA kodu

cevap

İlgili konular