outlook_macro.vba

' SWID-2023082911113901-SWP6MNG-SomwareHR /// Mijenja font- i paragraf-formatting za označen tekst u Outlooku /// v.23.0829.11
Sub FormatSelection()

  ' Poor man's trace-debug:     MsgBox ("Radim...")

  Dim Selection As Variant
  Set Selection = ActiveInspector.WordEditor.Application.Selection

  ' ----- Prvo pocistimo i postavimo sve na nulu
  With Selection
    .ClearFormatting
  End With

  ' ----- Font
  With Selection.Font
    .Name = "Times New Roman"
    .Size = 18
    .Allcaps = True
    '??? .Color = 11   ili   vbRed   ili   RGB(1,2,3)   ili kako?!
  End With

  ' ----- Paragrafi
	' https://www.codevba.com/Word/ParagraphFormat.htm
  With Selection.ParagraphFormat
    .LeftIndent = 0                         ' InchesToPoints(0.4)
    .Space1                                 ' .Space2 .Space15 je 1.5
    .Alignment = wdAlignParagraphLeft       ' wdAlignParagraphRight
    .LineSpacingRule = wdLineSpaceSingle    ' wdLineSpaceDouble
    .SpaceBefore = 0
    .SpaceBeforeAuto = False
    .SpaceAfter = 0
    .SpaceAfterAuto = False
  End With

End Sub

vba xvba outlook olk xoutlook xolk selected xselected formatting xformatting