corr. macro format date (new para) (dc034d30) · Commits · FNSO / I-FAIR IR / modeles-stylage

MS_Word/Metopes/Commons-publishing-Metopes.dotm

+7.61 KiB (302 KiB)

File changed.

No diff preview for this file type.

+5 −3

Changes for MS_Word/Metopes/vba/modules/init_language.bas: 5 added lines, 3 removed lines.
Original line number	Diff line number	Diff line
		@@ -365,8 +365,9 @@ Sub format_date(style_name)
		ElseIf InStr(k, ":") <> 0 Then
		dateAfterDot = Split(k, ":")(1)
		DateValue = CDate(dateAfterDot)
		Selection.MoveEnd Unit:=wdCharacter, Count:=-1
		Selection.MoveRight Unit:=wdCharacter, Count:=1
		Selection.EndKey Unit:=wdLine
		'Selection.MoveEnd Unit:=wdCharacter, Count:=-1
		'Selection.MoveRight Unit:=wdCharacter, Count:=1
		l = Format(DateValue, "DD/MM/YYYY") '& Chr(13)
		Selection.InsertAfter Text:="[" & l & "]"
		With Selection
		@@ -377,7 +378,8 @@ Sub format_date(style_name)
		ElseIf IsDate(k) Then
		DateValue = CDate(k)

		Selection.MoveRight Unit:=wdCharacter, Count:=1
		Selection.EndKey Unit:=wdLine
		'Selection.MoveRight Unit:=wdCharacter, Count:=1
		l = Format(DateValue, "DD/MM/YYYY") '& Chr(13)
		Selection.InsertAfter Text:="[" & l & "]"
		With Selection