Oscar Sun

                  Sub IndentFirstLineDeleteFirstTwoSpace_PMingLiUFontSize12() '新細明體（PMingLiU）'https://zh.wikipedia.org/wiki/%E6%96%B0%E7%B4%B0%E6%98%8E%E9%AB%94
Dim rngAll As Range, p As Paragraph
Set rngAll = Selection.Range
For Each p In rngAll.Paragraphs
'    With Selection.ParagraphFormat
    With p.Range.ParagraphFormat
'        .LeftIndent = CentimetersToPoints(0)
'        .RightIndent = CentimetersToPoints(0)
'        .SpaceBefore = 1.5
'        .SpaceBeforeAuto = False
'        .SpaceAfter = 0
'        .SpaceAfterAuto = False
'        .LineSpacingRule = wdLineSpaceExactly
'        .LineSpacing = 19
'        .Alignment = wdAlignParagraphLeft
'        .WidowControl = True
'        .KeepWithNext = False
'        .KeepTogether = False
'        .PageBreakBefore = False
'        .NoLineNumber = False
'        .Hyphenation = True
'        .FirstLineIndent = CentimetersToPoints(0.35) 'https://docs.microsoft.com/zh-tw/office/vba/api/word.paragraphs.firstlineindent
        'https://www.mrexcel.com/board/threads/converting-characters-to-points.548210/
        'https://social.msdn.microsoft.com/Forums/office/en-US/7f461fac-5b41-4049-b3c9-bb3c2ab8cbbc/spreadsheet-ml-setting-column-width-in-pixel?forum=exceldev
'        .FirstLineIndent = (2 + 5) * 7 / 2 - 0.5 'Characters = (Pixels - 5) / 7#
        .FirstLineIndent = CharacterToPoint_PMingLiU(12) * 2 '(2 + 5) * 7 / 2 - 0.5 =24=12*2
'        .OutlineLevel = wdOutlineLevelBodyText
'        .CharacterUnitLeftIndent = 0
'        .CharacterUnitRightIndent = 0
'        .CharacterUnitFirstLineIndent = 2
'        .LineUnitBefore = 0.3
'        .LineUnitAfter = 0
'        .MirrorIndents = False
'        .TextboxTightWrap = wdTightNone
'        .CollapsedByDefault = False
'        .AutoAdjustRightIndent = True
'        .DisableLineHeightGrid = False
'        .FarEastLineBreakControl = True
'        .WordWrap = True
'        .HangingPunctuation = True
'        .HalfWidthPunctuationOnTopOfLine = False
'        .AddSpaceBetweenFarEastAndAlpha = True
'        .AddSpaceBetweenFarEastAndDigit = True
'        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    Dim rng As Range
    Set rng = Selection.Range
    'rng.SetRange Selection.Paragraphs(1).Range.Characters(1).Start, Selection.Paragraphs(1).Range.Characters(2).End
    rng.SetRange p.Range.Characters(1).Start, p.Range.Characters(2).End
    If rng.Text = "　　" Then rng.Delete
Next p
End Sub