Hi I have the following mention code which sets the indent level for second paragraph . I have two issues with this code.
- On selecting more than one paragraphs the indentation will work only on Last paragraph Selected.
The margin could not be set with this code . As I want "before text 1.2" and "Special Hanging by 0.46 cm" to be incorporated
Sub selectedLevel() Dim otr2 As TextRange2 ' assumes the placeholder is selected Set otr2 = ActiveWindow.Selection.ShapeRange(1).TextFrame2.TextRange.Paragraphs(GetPara) With otr2.ParagraphFormat .IndentLevel = 2 End With End Sub
Function GetPara() As Long Dim lngStart As Long Dim oshp As Shape Dim L As Long On Error Resume Next lngStart = ActiveWindow.Selection.TextRange.Start If Err.Number <> 0 Then Exit Function End If On Error GoTo 0 Set oshp = ActiveWindow.Selection.ShapeRange(1) If (oshp.HasTextFrame) Then For L = 1 To oshp.TextFrame2.TextRange.Paragraphs.Count If (oshp.TextFrame2.TextRange.Paragraphs(L).Start <= lngStart) And ((oshp.TextFrame2.TextRange.Paragraphs(L).Start + oshp.TextFrame2.TextRange.Paragraphs(L).Length - 1) >= lngStart) Then GetPara = L Exit Function End If Next L End If End Function
Please help me in customizing this code and run the subroutine .
Thanks