*********************** Public Sub KonverterKommentarer() Dim objC_Range As Range Dim i As Integer
Selection.HomeKey unit:=wdStory
If ActiveDocument.Comments.Count > 0 Then For i = ActiveDocument.Comments.Count To 1 Step -1 Set objC_Range = ActiveDocument.GoTo(what:=wdGoToComment, Count:=i) objC_Range.Expand unit:=wdWord objC_Range.Collapse wdCollapseEnd ActiveDocument.Footnotes.Add objC_Range, Text:=ActiveDocument.Comments(i).Range.Text ActiveDocument.Comments(i).Delete Next i End If
ActiveDocument.Fields.Update End Sub ******************
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.