none
Indent Paragraph for specific text in cells RRS feed

  • Question

  • Hello All,

    I have extracted many tables from a PDF to word file where all the paragraph indentation stripped off from the cells in the table. All the paragraph indent changed to 0".

    1. I needs the paragraph left indent should increment from 0 to 1" for whatever the cells has 4th letter "%" only for the specific column I select.

    2. Rows or Cells starts with word "Series

    I have found below macro to make this done, however it works only when I manually select the required cells and run one by one.

    Sub IndentTextInCell()
    Dim p As Paragraph
    Dim i As Long
    For i = 1 To Selection.Cells.Count
    For Each p In Selection.Cells(i).Range.Paragraphs
    p.Indent
    Next p
    Next i
    End Sub

    I have attached the word file in the below link and shaded the required cells with green for your internal reference.

    https://gofile.io/?c=AE7isX

    Any help would be highly appreciated.

    Regards

    John

    Saturday, December 28, 2019 11:11 AM