Moderators:PDF-XChange Support, Daniel - PDF-XChange, Chris - PDF-XChange, Sean - PDF-XChange, Paul - PDF-XChange, Vasyl - PDF-XChange, Ivan - Tracker Software, Stefan - PDF-XChange
Page: 491
Page: 491
----------------------------------------------------------------
Author: me Subject: Highlight Date: 03/11/2009, 11:14:42
----------------------------------------------------------------
Highlight text here
Page: 491
----------------------------------------------------------------
Author: me Subject: Highlight Date: 03/11/2009, 11:14:44
----------------------------------------------------------------
More Highlight text here
I infact only wish to have the following displayed when i export
I am afraid it's not possible at the moment, but see that there are several export file formats so you could summarize your comments to e.g. Rich Text Format and then remove the unwanted text.
There would be additional advanced options added with future builds that will allow you to better fine tune the summarize output.
Sub removestuff()
'
' removestuff Macro
' Macro created 03/11/2009 by Andrew Crook
'
' removes all "Page" markers apart from the Main ( font size 16)
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "Page:"
While .Execute
If oRng.Paragraphs(1).Range.Font.Size <> 16 Then
oRng.Paragraphs(1).Range.Delete
End If
Wend
End With
' remove all lines with "Author:"
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "Author:"
While .Execute
oRng.Paragraphs(1).Range.Delete
Wend
End With
' remove all the lines we are left with
Set oRng = ActiveDocument.Range
oRng.Borders(wdBorderTop).LineStyle = wdLineStyleNone
oRng.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End Sub