Unterschrift: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
(8 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
Einfügen einer "Unterschrift" mit Datum und Namen in ein Dokument.  
Auch wenn es in MS Office oder LibreOffice einen Überarbeitungsmodus gibt, ist es manchmal nötig, eine Unterschrift mit dem aktuellen Datum in ein Dokument einzufügen.
 
Hier werden für die verschiedenen Produkte Lösungen des Problems angeboten.  


== Lotus Notes Formula Language ==  
== 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.)
Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein Dokument ein, das zum Editieren geöffnetes ist. (Formel in einem SmartIcon in einer Symbolleiste definieren.)


  tmpDate:=@Now;
  tmpDate:=@Now;
Zeile 10: Zeile 12:
  @Command([TextSetFontColor];[Blue]);
  @Command([TextSetFontColor];[Blue]);
  @Command([EditInsertText]; @NewLine + sDate + " - Mein Name")
  @Command([EditInsertText]; @NewLine + sDate + " - Mein Name")
[[Datei:Kürzel_TAr.gif|100px]]
Symbol für Lotus Notes 512px * 512px.


== Microsoft Word ==
== Microsoft Word ==
Einfügen eines blauen Textbaustein "dd.mm.yy - MeinName" in ein MS Word Dokument.
Tipp: Als Makro auf einen Icon legen.


  Sub Unterschrift()
  Sub Unterschrift()
   
   
   MyUserName = "Mein Name"
   MyUserName = Application.UserName
    
    
   With Selection
   With Selection
Zeile 31: Zeile 41:


== MS Excel ==
== MS Excel ==


=== Unterschrift als Kommentar zum selektierten Bereich ===
=== Unterschrift als Kommentar zum selektierten Bereich ===
Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.


  Sub UnterschriftComment()
  Sub UnterschriftComment()
 
   With Selection.Cells(1, 1)
   With Selection.Cells(1, 1)
      
      
Zeile 44: Zeile 57:
       .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
      
      
    End With
  End With
   
   
  End Sub
  End Sub


=== Unterschrift in selektierten Feld ===
=== Unterschrift in selektierten Feld ===
Dieses Makro trägt in einer Zelle Datum und Nutzer ("13.01.12 - Mein Name") ein.


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


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

Aktuelle Version vom 17. November 2015, 11:13 Uhr

Auch wenn es in MS Office oder LibreOffice einen Überarbeitungsmodus gibt, ist es manchmal nötig, eine Unterschrift mit dem aktuellen Datum in ein Dokument einzufügen.

Hier werden für die verschiedenen Produkte Lösungen des Problems angeboten.

Lotus Notes Formula Language

Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein Dokument ein, das zum Editieren geöffnetes ist. (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")

Fehler beim Erstellen des Vorschaubildes: Datei fehlt

Symbol für Lotus Notes 512px * 512px.

Microsoft Word

Einfügen eines blauen Textbaustein "dd.mm.yy - MeinName" in ein MS Word Dokument.

Tipp: Als Makro auf einen Icon legen.

Sub Unterschrift()

  MyUserName = Application.UserName
 
  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

Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

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

Dieses Makro trägt in einer Zelle Datum und Nutzer ("13.01.12 - Mein Name") ein.

Sub Unterschrift()

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

End Sub