Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Sub Format_Columns_Add_Decimal_tabs_selected_table() Dim mytable As Table Set d = ActiveDocument Set mytable = Selection.Tables(1) With mytable For IdxRow = 2 To mytable.Rows.Count For IdxCol = 2 To 3 Set c = mytable.Cell(IdxRow, IdxCol) c.Range.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(1.7) _ , Alignment:=wdAlignTabDecimal, Leader:=wdTabLeaderSpaces Next Next .PreferredWidth = 97.5 .PreferredWidthType = wdPreferredWidthPercent .Columns(2).Width = CentimetersToPoints(3.1) .Columns(3).Width = CentimetersToPoints(3.1) .PreferredWidth = 97.5 .PreferredWidthType = wdPreferredWidthPercent End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.