Unterschrift: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
Zeile 44: Zeile 44:
       .Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
       .Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
     Else
     Else
       .Comment.Text Text:=.Comment.Text & Chr(10) & "---" & Chr(10) & Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
       .Comment.Text Text:= .Comment.Text & Chr(10) & "---" & Chr(10) & _
                            Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
     End If
     End If
      
      

Version vom 11. Januar 2012, 14:56 Uhr

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

Lotus Notes Formula Language

Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein zum Editieren geöffnetes Dokument ein. (Formel in einem SmartIcon in einer Symbolleiste definieren.)

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

MS Excel

Unterschrift als Kommentar zum selektierten Bereich

Sub UnterschriftComment()

  With Selection.Cells(1, 1)
   
    If .Comment Is Nothing Then
   
      .AddComment
      .Comment.Visible = True
      .Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
    Else
      .Comment.Text Text:= .Comment.Text & Chr(10) & "---" & Chr(10) & _
                           Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
    End If
   
    End With

End Sub

Unterschrift in selektierten Feld

Sub Unterschrift()

 With Selection
  .NumberFormat = "@"
  .Value = Format(Now(), "dd.mm.yy") & " - " & Application.UserName
 End With

End Sub