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
    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.

    Any help would be highly appreciated.



    Saturday, December 28, 2019 11:11 AM