Unterschrift: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) (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…“) |
Thomas (Diskussion | Beiträge) |
||
| 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