No.7
- 回答日時:
Word 2003もしくはそれ以前のバージョンという前提で補足します。
2007の場合はインタフェースが若干違いますが、基本は同じです。> フォントの色を{白」に文字ごとに変えると言うことですね。
そうではなくて、一括置換で対応できます。
1.[編集]メニューから[置換]を選ぶか、[Ctrl]キーと[H]キーを同時に押すと、置換のための画面が表示されます。
一番下に、「書式」というボタンがあります。もし表示されていない場合は、「オプション」というボタンがあるので、それを押すと出てきます。
※Word 2007の場合は最初から[Ctrl]キーと[H]キーを同時に押せばメニューを探さずにすみます。
2.「検索する文字列」の欄にカーソルを置き、文字は入力せずに「書式」ボタンを押して「フォント」を選び、出てくる画面でフォント色に「赤」を選択してOKを押します。
3.「置換後の文字列」の欄にカーソルを置き、文字は入力せずに「書式」ボタンを押して2.と同じ手順でフォント色に「白」を選択してOKボタンを押します。
4.「すべて置換」ボタンを押せば、一括して赤字を白文字に変更できます。
> 置換マクロというのはどうしたらいいでしょう?
1.新規文書で[Alt]キーと[F11]キーを同時に押してマクロ作成画面を表示させ、一番下に移動します。
2.たとえばNo.5さんの回答にあったSub test01()からEnd Subまでの内容をコピーして、マクロ作成画面に貼り付けます。
※test01の部分は名前ですので、RedToWhiteなど適当な名称に変更可能です。
3.保存(Ctrl+S)して作成画面を閉じます。
これでマクロができました。
使うときは、文書ファイルを開いた状態で[ツール]メニューの[マクロ]の[マクロ]を選ぶか、[Alt]+[F8]を同時に押して表示されるリストから、先ほどのマクロを選んで「実行」ボタンを押すだけです。
うまく伝わりましたでしょうか?
No.6
- 回答日時:
共通の設定
ツール→オプション→「表示」タブを選択し、編集記号の表示の「隠し文字」にチェックし、
「印刷」タブを選択し、同時に印刷する項目の「隠し文字」のチェックを無しにして[OK]。
1)手動の作業で隠し文字を設定する方法
どれか1箇所の赤字部分の文字列を選択して、
右クリック→フォントまたは「書式」→フォントのフォント設定で、
「フォント」タブの文字飾りにある「隠し文字」にチェックして[OK]。
文字列の下に隠し文字であることを示す点線が表示されます。
そのまま、標準ツールバーの「書式のコピー/貼り付け」アイコンをダブルクリックし、
他の場所の赤い文字列部分だけをドラッグして選択していきます。
これで選択した文字列を、隠し文字の文字列に設定できます。
印刷プレビューで、隠し文字の赤色文字部分が印刷されないことを確認します。
2)置換機能を使って、赤色の文字部分を自動で隠し文字に設定する方法
編集→置換を選択します。
「置換」タブが選択された状態の、検索と置換画面が開きます。
[オプション]を指定して、「あいまい検索」のチェックを外します。
検索する文字列の入力欄をクリックしてカーソルを置きます。
[書式]ボタン→フォントを指定して表示される検索する文字画面で、すべての文字列のフォントの色を、文字と同じ赤色にして[OK]とします。
検索する文字列枠の下に、フォントの色:赤と表示されます。
置換後の文字列の入力欄をクリックしてカーソルを置きます。
[書式]ボタン→フォントを指定して表示される置換後の文字画面で、すべての文字列のフォントの色を「赤色」にし、更に文字飾りの「隠し文字」にチェックを入れて[OK]とします。
置換後の文字列枠の下に、隠し文字, フォントの色:赤と表示されます。
[すべて置換]を指定すると、置換された件数が表示されるので[OK]とし、置換画面を閉じます。
本文の赤文字の下に、隠し文字であることを示す薄い点線の下線が付きます。
印刷プレビューで、隠し文字の赤色文字部分が印刷されないことを確認します。
オプションの隠し文字のチェック次第で、隠し文字の部分を表示・印刷するか否か指定ができます。
No.5
- 回答日時:
私もNo.2で回答者さんが示した方法をお勧めします。
[隠し文字]を使う方法だと、印刷時に[オプション]で非表示に
した場合に、隠し文字の範囲の後ろに文字列があったときに、
その範囲がスペースにならずに詰まって印刷されるためです。
(隠し文字部分がないものとして印刷される)
コメントなどのように、ないものとして印刷したい場合なら、
隠し文字も有効ですが、空白みたいにしたいのなら用紙の色の
白文字に置換するほうが効果的ですから。
印刷に対応したマクロを紹介しておきますのでお試しください。
Sub test01()
'
' 赤文字を白文字で非表示にして印刷
'赤文字を白文字へ
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Replacement.Text = "^&"
.Replacement.Font.Color = wdColorWhite
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'指定した印刷をする
Dialogs(wdDialogFilePrint).Show
'既定の印刷でよければ上をコメントアウトして下を使う
' ActiveDocument.PrintOut
'白文字を赤文字に戻す
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorWhite
.Text = ""
.Replacement.Text = "^&"
.Replacement.Font.Color = wdColorRed
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
ありがとうございました
暗号みたいなのが出てきて、私の頭ではパニックになってしまいましたが、No2.さんのおっしゃるとおり、白文字にしてやってみます。
No.4
- 回答日時:
> この2つで止まってしまったのですが
止まったとはどのような状態でしょうか。
画面上は赤文字が消えていて、印刷時にオプションの隠し文字にチェックあり/なしで赤文字が印刷されたりされなかったりしませんか。
No.3
- 回答日時:
No. 2への補足です。
赤から白へのマクロ例
Sub RedToWhite()
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Color = wdColorRed
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Color = wdColorWhite
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
白から赤へのマクロ例
Sub WhiteToRed()
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Color = wdColorWhite
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Color = wdColorRed
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
他の色を使う場合はFindとReplacementの色コード(wdColorRed、wdColorWhite)を変更します。
各色のコードを示したページを参考URL欄に入れておきます。
参考URL:http://msdn.microsoft.com/ja-jp/library/microsof …
No.2ベストアンサー
- 回答日時:
Wordの検索する文字列に文字を何も入れずにフォント色を「赤」にして、置換後の文字列に文字を何も入れずにフォント色「白」にして一括置換をすれば、印刷しても白文字なので印字されません。
白文字になっているだけですから、文字はそのまま残ります。印刷作業が終わったら検索する文字列でフォント色「白」、置換後の文字列でフォント色「赤」を指定して一括置換すれば、元に戻ります。
何度も同じような印刷をするのでしたら、赤→白の置換マクロと、白→赤の置換マクロを用意してショートカットキーを割り当てておけばよいのでは?
この方法なら、何色でも印刷しないようにできますよ。
ありがとうございました
確かに白文字にするというのは思いつきませんでした。
その赤文字の箇所、何カ所もあるので、フォントの色を{白」に文字ごとに変えると言うことですね。
すいません、置換マクロというのはどうしたらいいでしょう?
No.1
- 回答日時:
ありがとうございました
4. [検索と置換]画面で、[すべて置換]-[OK]-[閉じる]。
5. [ファイル]-[印刷]-[オプション]-[隠し文字]が
OFFであることを確認して、[OK]。
この2つで止まってしまったのですが。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) Wordでの印刷サイズについて A4の原稿をB5サイズで出力したいとき、 印刷から用紙サイズの指定か 4 2022/04/30 09:51
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- プリンタ・スキャナー エプソンのプリンタEP-879AWを使っていますが印刷文字がぼやけます。 家電量販店で写真印刷がメイ 4 2022/03/26 23:20
- プリンタ・スキャナー PowerPointとPDFで一部印刷されない文字がある 2 2022/06/04 11:53
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- 面接・履歴書・職務経歴書 履歴書をWordで作成しました セブンイレブンのネットプリントで印刷しようと思うのですが上質紙でプリ 5 2022/08/10 06:55
- Word(ワード) WindowsのWordについて質問をおねがいします! Wordに文字を入力するまでは良いのですが、 2 2022/08/11 17:08
- Photoshop(フォトショップ) 米国サイズで縦の名刺を作りたいんですけど、 印刷会社に赤枠に裁断が入る予定みたいで、 こういう風に印 5 2022/09/08 18:41
- プリンタ・スキャナー 印刷時にグリス?が付着 1 2023/07/19 14:24
- 仕事術・業務効率化 文書作成の際の書体や書式について 1 2022/08/29 10:01
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
wordで特定の色だけ印刷しない方法
Word(ワード)
-
WORDで色をつけたところは印刷させない方法
iOS
-
ワードで赤字のみを削除する方法
Word(ワード)
-
-
4
Word 文字を網かけ表示しても網かけが印刷されない方法
Word(ワード)
-
5
Excelに「隠し文字」のような機能は・・・?
Excel(エクセル)
-
6
WORDで印刷時に文字色が繁栄されません
Word(ワード)
-
7
WORD中の赤色文字を、通常の黒色にしたい
Word(ワード)
-
8
印刷時、セルの塗りつぶした色を印刷しない方法を教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL2010のハイパーリンク先の...
-
Excelの表中,数字の「1」をす...
-
wordで特定の色だけ印刷しない方法
-
パワーポイント2013 書式変更が...
-
Wordの脚注を,1)・・2)・・3)...
-
word置換で改行は置換できますか?
-
ワードで太字になっているとこ...
-
Word相互参照の文字を一括で変...
-
Wordでカッコで括った文字を一...
-
ワードの表の中の値の表示形式...
-
「WORD」での作業 日本語・英...
-
word である文字をすべてイタリ...
-
word ある文字色の部分のみ別の...
-
エクセルで、コンマをピリオド...
-
同じ文字
-
Wordデータから,特定の単語を...
-
日英、混合文。日本語だけ小さ...
-
英数字のフォント「Century」に...
-
ワードで半角英数の文字だけ選...
-
Word文書で1,2,3...になってい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでシートにある赤文字...
-
Excelの表中,数字の「1」をす...
-
ワードで赤字のみを削除する方法
-
Wordでカッコで括った文字を一...
-
ワードで半角英数の文字だけ選...
-
箇条書きのアタマに一括で「・...
-
Wordデータから,特定の単語を...
-
ワードの表の中の値の表示形式...
-
excelマクロ ボタンを押して文...
-
「WORD」での作業 日本語・英...
-
Wordの脚注を,1)・・2)・・3)...
-
wordで特定の色だけ印刷しない方法
-
エクセルで、コンマをピリオド...
-
word 2003で、赤い文字(あるい...
-
Word相互参照の文字を一括で変...
-
EXCEL2010のハイパーリンク先の...
-
英数字のフォント「Century」に...
-
ワードで太字になっているとこ...
-
セルの中の不要な文字を削除し...
-
word である文字をすべてイタリ...
おすすめ情報