Unterschrift: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) K (→Microsoft Word) |
Thomas (Diskussion | Beiträge) |
||
| Zeile 2: | Zeile 2: | ||
== Lotus Notes Smart Icon == | == Lotus Notes Smart Icon == | ||
Die folgende Lotus Formel fügt das Datum und den Namen an der Stelle des Cursors in ein zum Editieren geöffnetes Dokument ein. | |||
tmpDate:=@Now; | tmpDate:=@Now; | ||
| Zeile 7: | Zeile 9: | ||
@Command([TextSetFontFace]; "Comic Sans MS"); | @Command([TextSetFontFace]; "Comic Sans MS"); | ||
@Command([TextSetFontColor];[Blue]); | @Command([TextSetFontColor];[Blue]); | ||
@Command([EditInsertText]; @NewLine + sDate + " - | @Command([EditInsertText]; @NewLine + sDate + " - Mein Name") | ||
== Microsoft Word == | == Microsoft Word == | ||
Version vom 11. Januar 2012, 11:13 Uhr
Einfügen einer "Unterschrift" mit Datum und Namen in ein Dokument.
Lotus Notes Smart Icon
Die folgende Lotus Formel fügt das Datum und den Namen an der Stelle des Cursors in ein zum Editieren geöffnetes Dokument ein.
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 + " - Mein Name")
Microsoft Word
Sub Unterschrift()
MyUserName = "Mein Name"
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