Hello,

my code copies some excel data into a word dokument with a table with 4 cloumns and 9 rows. It is important, that the cell size is not changed, but all the input data is in the cell. My solution is, that i check the lenght of the input-data and then reduce the font size in the word table cell only. This is the code for this: 

If Len(wbsource.Sheets(1).Cells(j, 3)) < breitSize1 Then
    appWord.ActiveDocument.Tables(1).Cell(2, 1).Range.Font.Size = breitFont1
    
    appWord.ActiveDocument.Bookmarks("C1").Range.Text = wbsource.Sheets("Sheet1").Cells(j, 3)
My problem is, it changes the font size of the whole column. Has anybody an idea, why this can happen. I tried this before with another word dokument and it worked, but the actual word dokument is made by somebody else.


Thanks in advance!