Redaction in Word 2007

J

Jean-Guy Marcil

Wayne said:
Thanks for nothing, sorry I wasted your time and mine as well.

You got an answer that matched the question. I do not think that you could
have been more vague.

If you want actual help, it might be useful to those that are willing to
help you to have a real question. Provide more details.

What are you actually trying to achieve?
What have you tried?
What results/problems did you encounter?
 
B

Bob Buckland ?:-\)

Hi Wayne,

The MS Word 2003 Redaction add-in has not been updated/released in a Word 2007 version (The 2003 add-in won't install if you do not
have Word/Office 2003 installed).

One of the folks here who write macros *may* jump in here to automate this fairly easily, but without that, one way to do it in Word
2007 is as follows, assuming you want the redaction bars to show, as opposed to simply deleting the text :)

1. On the Home Ribbon=>Style Group click on the launcher (square) at the bottom right of the group and at the bottom of the Styles
pane click the 'New Style' button at the bottom left.

2. Define the new style as a character style named
RedactMe
and add the following attributes

A. Leave the 'Font choices' alone.

B. Change 'Formatting Automatic' to 'Black'
(use More Colors and select the black hexagon,
to avoid using a themeable color choice)

C. Click on Format=>Borders and in the shading tab
repeat the steps in B to have a black fill with
a Solid 100% choice.

D. Click on Format=>Shortcut key, to assign
a keyboard shortcut to use this style.

3. Before leaving the 'Create New Style' dialog turn on the
'Add to Quick Style List'

4. Save your original file under a new name so you have a working copy and your original.

5. Be sure Track changes are turned off and that you have already accepted or rejected any changes previously made.

6. Select the text you want redacted (blacked out) and apply the
RedactMe style from either the Quick Styles list or
with your keyboard shortcut.

7. Once you have applied the redact me style to the text you want to black out in your document use Home=>Editing=>Replace (ctrl+H)
In the Find what box use Special=>Any character (or type in
^?
then click the 'Format' Style choice and choose the 'RedactMe' style.

8. In the 'Replace with' box type a space (or an X or whatever filler character you prefer), then choose Replace all.

9. Save the file as a new name, then close and reopen the file. Even if the 'RedactMe' style is then changed by someone the text
will not be available.

=============
Does anybody know if redaction is possible in Word 2007?>>
--

Bob Buckland ?:)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*
 
J

Jean-Guy Marcil

Bob Buckland ?:-) said:
Hi Wayne,

The MS Word 2003 Redaction add-in has not been updated/released in a Word 2007 version (The 2003 add-in won't install if you do not
have Word/Office 2003 installed).

If the OP had mentioned that he was referring to an add-in... things would
have been easier...

What is this Add-in anyway... I have never heard of it.

(After some Googling...)

A quick question, once you have redacted some text in the document, can the
person who did the redacting retrieve the text?

Thanks!
 
J

Jean-Guy Marcil

Bob Buckland ?:-) said:
Hi Wayne,

The MS Word 2003 Redaction add-in has not been updated/released in a Word 2007 version (The 2003 add-in won't install if you do not
have Word/Office 2003 installed).

One of the folks here who write macros *may* jump in here to automate this fairly easily, but without that, one way to do it in Word
2007 is as follows, assuming you want the redaction bars to show, as opposed to simply deleting the text :)

Like this, perhaps?

Sub RedactMe()

Dim rgeRedact As Range
Dim lngCount As Long
Dim i As Long

Set rgeRedact = Selection.Range

With rgeRedact
lngCount = .Characters.Count
.Text = "_"
For i = 1 To lngCount - 1
.InsertAfter "_"
Next
.HighlightColorIndex = wdBlack
End With
End Sub
 
J

Jean-Guy Marcil

Jean-Guy Marcil said:
Like this, perhaps?

Sub RedactMe()

Dim rgeRedact As Range
Dim lngCount As Long
Dim i As Long

Set rgeRedact = Selection.Range

With rgeRedact
lngCount = .Characters.Count
.Text = "_"
For i = 1 To lngCount - 1
.InsertAfter "_"
Next
.HighlightColorIndex = wdBlack
End With
End Sub

Here is a slightly improved version that does not stupidly replace all ¶,
manual line/page/section breaks with a regular character...

Sub RedactMe()

Dim rgeRedact As Range
Dim lngCount As Long
Dim i As Long

Set rgeRedact = Selection.Range

With rgeRedact
lngCount = .Characters.Count
For i = 1 To lngCount
If Asc(.Characters(i)) > 20 Then
.Characters(i).Text = "_"
End If
Next
.MoveEnd wdCharacter, 1
.HighlightColorIndex = wdBlack
End With
End Sub
 
W

Wayne

Jean-Guy Marcil said:
If the OP had mentioned that he was referring to an add-in... things would
have been easier...

What is this Add-in anyway... I have never heard of it.

(After some Googling...)

A quick question, once you have redacted some text in the document, can the
person who did the redacting retrieve the text?

Thanks!

No, the redaction add-in saves the file with a new name and the redacted
text cannot be retrieved by anybody. It replaces the redacted charactors
with a symbol. You would still have the original file however, completely
unredacted.

Wayne
 
W

Wayne

Bob Buckland ?:-) said:
Hi Wayne,

The MS Word 2003 Redaction add-in has not been updated/released in a Word 2007 version (The 2003 add-in won't install if you do not
have Word/Office 2003 installed).

One of the folks here who write macros *may* jump in here to automate this fairly easily, but without that, one way to do it in Word
2007 is as follows, assuming you want the redaction bars to show, as opposed to simply deleting the text :)

1. On the Home Ribbon=>Style Group click on the launcher (square) at the bottom right of the group and at the bottom of the Styles
pane click the 'New Style' button at the bottom left.

2. Define the new style as a character style named
RedactMe
and add the following attributes

A. Leave the 'Font choices' alone.

B. Change 'Formatting Automatic' to 'Black'
(use More Colors and select the black hexagon,
to avoid using a themeable color choice)

C. Click on Format=>Borders and in the shading tab
repeat the steps in B to have a black fill with
a Solid 100% choice.

D. Click on Format=>Shortcut key, to assign
a keyboard shortcut to use this style.

3. Before leaving the 'Create New Style' dialog turn on the
'Add to Quick Style List'

4. Save your original file under a new name so you have a working copy and your original.

5. Be sure Track changes are turned off and that you have already accepted or rejected any changes previously made.

6. Select the text you want redacted (blacked out) and apply the
RedactMe style from either the Quick Styles list or
with your keyboard shortcut.

7. Once you have applied the redact me style to the text you want to black out in your document use Home=>Editing=>Replace (ctrl+H)
In the Find what box use Special=>Any character (or type in
^?
then click the 'Format' Style choice and choose the 'RedactMe' style.

8. In the 'Replace with' box type a space (or an X or whatever filler character you prefer), then choose Replace all.

9. Save the file as a new name, then close and reopen the file. Even if the 'RedactMe' style is then changed by someone the text
will not be available.

=============
Does anybody know if redaction is possible in Word 2007?>>
--

Bob Buckland ?:)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

Thanks. I have another system with Office 2003 on it, I will just use that
system to do this particular file. Hopefully they will update the add-in for
Office 2007 soon.

Wayne Tilley
 
B

Bob Buckland ?:-\)

Hi Jean-Guy,

Thank you for jumping in :) I pretty much stopped doing any 'BASIC' based stuff about the time that line numbers went away and
'GoTo' became "evil" <g>.

For Word 2003 the redaction add-in and an article on what it does is available from
http://office.microsoft.com/en-us/word/HA012193751033.aspx
It's got a number of features that my 'poor man's approach' doesn't have <g> but it could also have some occassional side effects.
(Of course with 7 DLL files and one .DOT I would expect that.

The template contains a toolbar that has buttons to
Mark text, Unmark text, Show Marks, Hide Marks, Redact and Help.
So I guess to do all of that we'd be looking at five macros?

In your macro, I'm assuming there's a way to turn off the display of the macro updating characters one at a time and possibly to
have the undo list be a single event for running the macro in case someone 'goofed' in what they selected? It's very visual but
would be a bit slow if doing a lot of redacting in a document :)

The reason I was thinking of using a style character and Find/Replaces was that text could all be marked ahead of time and then one
quick action to hit things all at once, plus it seems slightly better than the add-ins approach. If you select text and use the
redaction marker it applies 25% gray shading and will redact based on finding that shading according to the readme.txt file, so you
could also get text blanked you didn't intend to have touched, where a specific style wouldn't be as likely to be accidentally used
(especially one that covers up text <g>.

BTW, would you want to take a shot at the 'Setting Custom 3D-depth' thread in the Word.Drawing.graphics discussion group?

No one has jumped in on that one either <g>.

Thank you,

==================
:

Here is a slightly improved version that does not stupidly replace all ¶,
manual line/page/section breaks with a regular character...

Sub RedactMe()

Dim rgeRedact As Range
Dim lngCount As Long
Dim i As Long

Set rgeRedact = Selection.Range

With rgeRedact
lngCount = .Characters.Count
For i = 1 To lngCount
If Asc(.Characters(i)) > 20 Then
.Characters(i).Text = "_"
End If
Next
.MoveEnd wdCharacter, 1
.HighlightColorIndex = wdBlack
End With
End Sub >>
--

Bob Buckland ?:)
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*
 
J

Jean-Guy Marcil

Bob Buckland ?:-) said:
Hi Jean-Guy,

Thank you for jumping in :) I pretty much stopped doing any 'BASIC' based stuff about the time that line numbers went away and
'GoTo' became "evil" <g>.

For Word 2003 the redaction add-in and an article on what it does is available from
http://office.microsoft.com/en-us/word/HA012193751033.aspx
It's got a number of features that my 'poor man's approach' doesn't have <g> but it could also have some occassional side effects.
(Of course with 7 DLL files and one .DOT I would expect that.

The template contains a toolbar that has buttons to
Mark text, Unmark text, Show Marks, Hide Marks, Redact and Help.
So I guess to do all of that we'd be looking at five macros?

In your macro, I'm assuming there's a way to turn off the display of the macro updating characters one at a time and possibly to
have the undo list be a single event for running the macro in case someone 'goofed' in what they selected? It's very visual but
would be a bit slow if doing a lot of redacting in a document :)

Hi Bob,

Yes, I could add some code to make it it "undoable" in one shot.

And the only reason I did not use the style approach (which, I agree, offers
many advantages) in my macro is that you have to make sure that the character
style is available before the code can use it. This would mean checking that
the style actually exists, and if not, have some error handling (Create it?
Ask user for name of style that was used? Have a different approach where the
user has to create the style in the current document before first starting to
redact...?) etc.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top