- ベストアンサー
WORD 置き換えマクロ 文字の白抜き
超初心者です。 「あいうおえ」という文字を白抜きの文字に一括で置き換えるマクロを作りたいのですが、うまくいきません。 よろしくお願いいたします。
- coral_japan
- お礼率67% (332/495)
- オフィス系ソフト
- 回答数4
- ありがとう数4
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
#2 です。すみません。勘違いしました。 白抜き文字の操作手順としては、白抜きにしたい文字列を範囲選択 して[罫線]-[線種とページ罫線と網かけの設定]から[網かけ]タブで、 背景色を設定します。 これを一括で行うコードにしたものです。今回は文字列を聞いてこな い仕様になっています。コードを眺めて見てください。 Sub フォント白抜き化() Dim Rng As Range Dim SelectionEnd As Long Dim RngEnd As Long Dim RngRepEnd As Long Dim strKEYWORD As String 'ユーザーに任意の文字列を指定させる場合 'strKEYWORD = InputBox(Prompt:="対象文字列を入力") 'If strKEYWORD = "" Then ' Exit Sub 'End If '固定の場合 strKEYWORD = "あいうえお" Set Rng = Selection.Range SelectionEnd = Rng.End With Rng.Find .ClearFormatting .Text = strKEYWORD .MatchWildcards = True End With Do While Rng.Find.Execute And Rng.End <= SelectionEnd RngEnd = Rng.End With Rng '白抜き化 With .Font.Shading .ForegroundPatternColor = wdColorWhite .BackgroundPatternColor = wdColorBlack End With RngRepEnd = .End SelectionEnd = SelectionEnd + (RngRepEnd - RngEnd) .Collapse wdCollapseEnd End With Loop Set Rng = Nothing End Sub
その他の回答 (3)
- enunokokoro
- ベストアンサー率74% (3543/4732)
文字列が同じで、「■+あ(白)これを重ね合わせた」もの をいつも使うなら定型句に登録しては。 http://hamachan.fun.cx/word/teikei.html マクロにこだわるならこの回答は無視して下さいね。
お礼
ありがとうございました。 なるほど、定型句の中には、文字列以外のものでも登録可能なのですね。 参考になりました。 また、機会がありましたら、お願いいたします。
- KenKen_SP
- ベストアンサー率62% (785/1258)
こんにちは。KenKen_SP です。 白抜き=アウトライン化のことかな? これをマクロでやるなら、 Selection.Font.Outline = True でマウスで選択された範囲をアウトライン化します。これを文書内で 一括、、となると結構面倒、、こんな感じでしょうか? マウスで選択された範囲内で、指定したキーワードのみアウトライン 化しています。 Sub フォントアウトライン化() Dim Rng As Range Dim SelectionEnd As Long Dim RngEnd As Long Dim RngRepEnd As Long Dim strKEYWORD As String strKEYWORD = InputBox(Prompt:="対象文字列を入力") If strKEYWORD = "" Then Exit Sub End If Set Rng = Selection.Range SelectionEnd = Rng.End With Rng.Find .ClearFormatting .Text = strKEYWORD .MatchWildcards = True End With Do While Rng.Find.Execute And Rng.End <= SelectionEnd RngEnd = Rng.End With Rng 'アウトライン化 Rng.Font.Outline = True RngRepEnd = .End SelectionEnd = SelectionEnd + (RngRepEnd - RngEnd) .Collapse wdCollapseEnd End With Loop Set Rng = Nothing End Sub
お礼
お答えありがとうございます。 白抜きですが、文字の背景が黒に白色で文字が入った状態です。文字が白に反転した状態です。 ■+あ(白)これを重ね合わせた状態です。(わかりずらくてすみません。) あと、出てくる文字列は毎回同じものです。
- yaburegasa
- ベストアンサー率44% (596/1335)
「検索と置換」の置換で、置換後の文字列に白抜きの書式設定をして 一括置換えではいけませんか? それをマクロにしたいのでしょうか? いつも「あいうえお」という文字でしたらマクロでもいいのですが 白抜きしたい文字列をそのたび変更するのでしたら、マクロにする意味はなさそうな気がしますが。 見当違いでしたらごめんなさい。
お礼
お答えありがとうございます。 文字列はいつも同じもので、その文字列は「あ」と「か」と「さ」など、複数出てきます。 そのため、毎回同じ文字列を入力して置き変える、という作業が手間なので、マクロでつくりたいと思いました。すべての文字列を一括で置き換えるマクロは可能でしょうか?
関連するQ&A
- 「白抜きの文字を潰す」方法
PhotoShop6.0を使っています。 55Pixcel×28PixcelでGifファイルを作り、白抜きで文字を中央に配置しています。 この白抜きの文字を変更しないといけなくなりました。 元のPSDファイルをなくしてしまい、Gifファイルから修整しないとなりません。 白抜きの文字を潰す→新しい文字を書く ということになると思いますが、この「白抜きの文字を潰す」方法がわかりません。 よろしくお願いします。
- ベストアンサー
- グラフィックソフト
- 白抜きの文字を簡単につくりたい。
たとえばバナーを作る際に。 ホームページで使う文字を作るとき。画像として。 白抜き(縁取り)の文字を簡単に作る方法おわかりになる方。 教えてください。 いっつも文字を重ねたり、ペイントでグリットをよびだして 地道に縁取りしています。 よろしくお願いいたします
- ベストアンサー
- その他(インターネット・Webサービス)
- 白抜き文字?!
すごい初歩の質問なんですが・・・。 Office 2003 Wordで白抜き文字?!を表示させたいのですが、 どのようにすればいいのでしょうか?教えて下さい。
- ベストアンサー
- Windows XP
- WORD 置き換えマクロ こんなのできますかあ?
<ゴ>あいうえお<ミ> <ゴ>と<ミ>で囲まれた部分の書体を変えたいと思いますが、マクロでできますでしょうか? 普通に置き換えでやるとうまくいくのですが、マクロに登録してやると、文字列が削除されてしまいます。 どうぞ、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 文字が白抜きでプリントされてしまいます。
文字が白抜きでプリントされてしまいます。 photoshopとfireworksからプリントすると、文字が白抜きになってしまいます。 フォント自体は白抜きではありません。 フォントの設定がどこかにあるのでしょうか? 宜しくお願いします。 OS:vista プリンタ:EPSON PM-800C
- 締切済み
- プリンター・スキャナー
- AutoCAD 文字が白抜き…
AutoCAD LTを使っています。 文字を書いて印刷すると、文字が白抜きになってしまいます。プレビューでもそうです。どうすればよいのでしょう。
- ベストアンサー
- CAD・DTP
- 白抜き文字の打ち方
先日頼まれ事でワードで文書を作成することになりました。 打つのは問題なくできるのですが、ふと困ったのが黒帯に白抜き文字があるのです。自慢にはなりませんが私は常日頃ワードなど使ったことがない。とりあえず普通に打って上からドラッグして白抜きになった。 「なーんだ、簡単じゃん」とEnter押したら消えた(笑)。 知ってる人から見れば笑い話でしょうが困ってしまった・・。 結局1時間ほど格闘してギブアップ。 周囲の人に聞いても意外な事に誰も知らないと言う。 どなたかご存知の方教えて下さい。お願いします。
- ベストアンサー
- Windows XP
- 文字が白抜きで印刷されてしまう
Auto CAD 2002を使っています。レイアウトから印刷すると、文字が白抜きになってしまいます。 他のファイルからコピーしてきたものも、白抜きになって印刷されます。レイアウト画面では通常とおりなのですが・・・。どうすれば直りますか?
- 締切済み
- CAD・DTP
お礼
ありがとうございました。 望みどおりの結果が得られました。 これで仕事の能率がアップできます。 また、機会がありましたら、お願いいたします。