Удалить границу таблицы в точке с питанием

Question

Код успешно удаляет границы таблицы и отлично отображается на экране.

При печати или предварительном просмотре печати его отображение границы стола. Как это исправить?

Sub Tableformatting() 
    Dim r As Long, c As Long 
    Dim t As Table 
     Set t = ActiveWindow.Selection.ShapeRange.Table 
      For r = 1 To t.Rows.Count 
      For c = 1 To t.Columns.Count 
       With t.Cell(r, c) 

        .Borders(ppBorderTop).Transparency = 0 
        .Borders(ppBorderTop).Weight = 0 
        .Borders(ppBorderBottom).Transparency = 0 
        .Borders(ppBorderBottom).Weight = 0 
        .Borders(ppBorderLeft).Transparency = 0 
        .Borders(ppBorderLeft).Weight = 0 

        .Borders(ppBorderRight).Transparency = 0 
        .Borders(ppBorderRight).Weight = 0 

       End With 
      Next c 
     Next r 
    End Sub 

Answer 1

Попробуйте использовать

Sub Tableformatting() 
Dim r As Long, c As Long 
Dim t As Table 

Set t = ActiveWindow.Selection.ShapeRange.Table 

For r = 1 To t.Rows.Count 
    For c = 1 To t.Columns.Count 
     With t.Cell(r, c) 
      .Borders(ppBorderTop).Transparency = 1 
      .Borders(ppBorderBottom).Transparency = 1 
      .Borders(ppBorderLeft).Transparency = 1 
      .Borders(ppBorderRight).Transparency = 1 
     End With 
    Next c 
Next r 
End Sub 

По какой-то причине .Transparency = 0 работает только для того, что активно видел, но .Transparency = 1 работает на все, что вы просили. Это может быть ошибка в конце Microsoft, потому что я не понимаю, почему этот метод или .Borders.Visible = msoFalse не будет работать только для предварительного просмотра печати/печати.

В любом случае, я надеюсь, что это помогло!