Tabel kopieret til Word med titel og alternativ tekst

Ja, du kan angive tabellens titel og alternativ tekst ved at tilføje yderligere egenskaber til tabellen. Her er en opdateret version af din kode, der inkluderer disse egenskaber:

Dim Lønoplysninger_tabel As Excel.Range
Dim TableTitle As String
Dim AltText As String

TableTitle = "Titel på tabellen"
AltText = "Alternativ tekst til tabellen"

Lønoplysninger_tabel.Copy
With Worddoc.Content
.InsertParagraphAfter
.Paragraphs.Last.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
With .Tables(.Tables.Count)
.Title = TableTitle
.Descr = AltText
End With
End With
Application.CutCopyMode = False
Wordapp.Selection.EndKey unit:=wdStory, Extend:=wdMove

I dette eksempel er titlen på tabellen gemt i en variabel kaldet "TableTitle", og den alternative tekst er gemt i en variabel kaldet "AltText". Disse værdier tilføjes derefter som egenskaber til tabellen ved hjælp af ".Title" og ".Descr" metoderne. Du kan tilpasse disse variabelnavne og tekster efter dine behov.

Tak, det virker

Kender du for resten til en metode, så udfyldningsfarve fra Excel tabellen ikke kopieres med over i Word? Alt andet formatering må gerne kopieres