![]() |
|
|
|
#1 |
![]() Neuer Benutzer |
Hallo zusammen - gibt es in Word 2007 die Möglichkeit, alle Kommentare im Dokument gesammelt anzeigen zu lassen?
bzw. die kommentare nicht in sprechblasen sondern wie fußnoten anzeigen zu lassen...wenn ich auf "alle überarbeitungen inline anzeigen" stelle, sehe ich die kommentare gar nicht, kann sie nur in sprechblasen anzeigen lassen :-/ |
|
|
|
|
|
#2 |
![]() MOF User |
Moin RebelAngel,
ob das mit "Bordmitteln geht, weiß ich (mangels W2007) nicht, aber mit folgendem Makro (von René Probst) könntest Du die Kommentare in Fußnoten umwandeln: Code: Sub KommentareInFußnotenUmwandeln()
Application.ScreenUpdating = False 'Reduziert Bildschirmflackern
Dim oDoc As Document, Kommentar As Comment
Set oDoc = ActiveDocument
For Each Kommentar In ActiveDocument.Comments
oDoc.Footnotes.Add Range:=Kommentar.Scope, Text:=Kommentar.Range.Text
Kommentar.Delete
Next
Application.ScreenUpdating = True
End Sub
__________________ Gruß,Hermann |
|
|
|
|
|
#3 |
![]() MOF Profi |
Du kannst Dir ein Überarbeitungsfenster einblenden, das dürfte einfacher gehen.
Gruß G.O. |
|
|
|
|
|
#4 |
|
Threadstarter
![]() Neuer Benutzer |
danke für die tipps...
beim Überarbeitungsfenster ist die frage - kann man das auch irgendwie ausdrucken? denn darauf kommt es mir an... in den früheren Versionen von word konnte man das doch irgendwie machen, daß die kommentare am Ende des dokuments angezeigt werden oder...? |
|
|
|
|
|
#5 |
![]() MOF User |
Moin,
wenn gar nichts hilft, kannst du die Kommentare auch in Endnoten umwandeln (Makro-Quelle s.o.): Code: Sub KommentareInEndnotenUmwandeln()
Application.ScreenUpdating = False
Dim oDoc As Document, Kommentar As Comment
Set oDoc = ActiveDocument
For Each Kommentar In ActiveDocument.Comments
oDoc.Endnotes.Add Range:=Kommentar.Scope, Text:=Kommentar.Range.Text
Kommentar.Delete
Next
Application.ScreenUpdating = True
End Sub
__________________ Gruß,Hermann |
|
|
|