Removing Leading Spaces in a Table

Sometimes when Eileen converts text to a table or if she imports a table from another program, some of the cells have a leading space in them, before the first actual character. She wonders if there is a way to use Find and Replace to remove these leading spaces only in the cells of the table.

There's actually one very quick way to get rid of the leading spaces without the need to use Find and Replace. Let's assume that you want the text in the cells to be left-aligned. Follow these steps:

1. Select the cells you want to affect in the table.
2. Display the Home tab of the ribbon.
3. Click the Center Text tool in the Paragraph group. All of the text in the selected cells is now centered.
4. Click the Align Text Left tool in the Paragraph group.

That's it; when you perform step 3, the leading spaces are removed automatically by Word. Step 4 simply puts your text back to where you originally wanted it aligned. An extra bonus is that these steps actually remove any white space at the beginning of the text, not just spaces.

If you absolutely want to use Find and Replace to get rid of the spaces, you cannot do it using a single Find and Replace operation. Here's an idea of how you can do it using multiple passes:

1. Select the table.
2. Press Ctrl+H. Word displays the Replace tab of the Find and Replace dialog box.
3. Click the More button if it is available. (See Figure 1.)



Figure 1. The Replace tab of the Find and Replace dialog box.

4. Erase anything in the Find What box, but make sure the insertion point is still in the box.
5. Click the Format button and then click Style. Word displays the Find Style dialog box. (See Figure 2.)



Figure 2. The Find Style dialog box.

6. Select the style used by the text in the table. (There's a good chance this will be the Normal style.)
7. In the Replace With box, enter $#$^&. This specifies you want to preface whatever is found (which is any text formatted with the style you chose in step 6) with a unique set of characters ($#$).
8. Click Replace All.
9. In the Find What box, enter $#$^w. This specifies that you want to find the unique characters followed by any white space. (This includes your leading spaces.)
10. Click the No Formatting button.
11. Delete anything in the Replace With box.
12. Click Replace All.
13. In the Find What box, enter $#$. This specifies that you want to find any remaining unique characters.
14. Click Replace All.

You could, if desired, also use a macro to remove leading spaces. All the macro needs to do is to step through all the cells in a table and trim off any leading spaces:

Sub DeleteCellLeadingSpace()
    Dim aCell As Cell
    Dim aRow As Row
    Dim cText As String

    If Selection.Information(wdWithInTable) Then
        For Each aRow In Selection.Tables(1).Rows
            For Each aCell In aRow.Cells
                cText = aCell.Range.Text
                cText = LTrim(cText)
                aCell.Range.Text = Left(cText, Len(cText) - 2)
            Next aCell
        Next aRow
    Else
        MsgBox "Insertion point must be in a table."
    End If
End Sub

Note that when this macro stuffs information back into a cell (from the cText variable), it only stuffs back everything but the final two characters. If you don't do this, you'll end up with an additional hard return in each cell of the table.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1263) applies to Microsoft Word 2007, 2010, 2013, and 2016.