Unterschrift: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „Einfügen einer "Unterschrift" mit Datum und Namen in ein Dokument. == Lotus Notes Smart Icon == tmpDate:=@Now; sDate:=@Right("00"+@Text(@Day(tmpDate));2…“)
 
Zeile 32: Zeile 32:
  End Sub
  End Sub


[Kategorie:Lotus Notes]
[[Kategorie:Lotus Notes]]
[Kategorie:MS Word]
[[Kategorie:MS Word]]

Version vom 11. Januar 2012, 10:29 Uhr

Einfügen einer "Unterschrift" mit Datum und Namen in ein Dokument.

Lotus Notes Smart Icon

tmpDate:=@Now;
sDate:=@Right("00"+@Text(@Day(tmpDate));2) + "."+ @Right("00"+@Text(@Month(tmpDate));2) + "." + @Text(@Year (tmpDate)) ;
@Command([TextSetFontFace]; "Comic Sans MS");
@Command([TextSetFontColor];[Blue]);
@Command([EditInsertText]; @NewLine + sDate + " - Arend")


Microsoft Word

Sub Unterschrift()
'
' Unterschrift Makro
' Makro aufgezeichnet am 11.01.2012 von 10102545
'
  MyUserName = "Arend"
 
  With Selection
    .TypeParagraph
    OldColor = .Font.Color
    .Font.Color = wdColorBlue
    .InsertDateTime DateTimeFormat:="dd.MM.yy", InsertAsField:= _
    False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
    InsertAsFullWidth:=False
    .TypeText Text:=" - " & MyUserName
    .Font.Color = OldColor
  End With
   
End Sub