- ベストアンサー
wordマクロで条件に合う文のみフォント変更
wordの文章で、“(1)”という文字列を検索して次に現れる改行(vbCr)までの文章をゴシック体&ボールド体にしたいと思っています。 ファイル中に“(1)”から始まる文はいくつもあります。そのすべてを一括変換したいのですが、どのようなコードで出来るのでしょうか? よろしくお願いします。
- みんなの回答 (10)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (9)
- misatoanna
- ベストアンサー率58% (528/896)
- KenKen_SP
- ベストアンサー率62% (785/1258)
- KenKen_SP
- ベストアンサー率62% (785/1258)
- KenKen_SP
- ベストアンサー率62% (785/1258)
- misatoanna
- ベストアンサー率58% (528/896)
- misatoanna
- ベストアンサー率58% (528/896)
- KenKen_SP
- ベストアンサー率62% (785/1258)
- KenKen_SP
- ベストアンサー率62% (785/1258)
- misatoanna
- ベストアンサー率58% (528/896)
関連するQ&A
- ワードのマクロについて
お世話になります。 エクセルのマクロについてはここでよくアドバイスをもらっていますが、今回ワードでの処理について教えてください。 1つのフォルダにワード文書がたくさん入っています。 各ワード文書に対し以下の操作を自動化させたい。 1.すべてを選択(ctrl+A) 2.置換で「改行」をすべて削除 あいまい検索のチェックをはずした上で 検索する文字列 ^p 置換後の文字列は「空白」 すべて置換 3.置換で「スペース」をすべて削除 あいまい検索のチェックをはずした上で 検索する文字列 ^w 置換後の文字列は「空白」 すべて置換 4.すべてを選択 5.メニュー→書式→文字種の変換→全角にチェック→OK ですべての文字を全角にする まとめると「すべての改行、スペースを削除し、全文字を全角に統一する」 この作業をフォルダ内の全ワード文書に対して一括で処理できないでしょうか? ちなみにワード文書は元々メモ帳(*.txt)で作成されていたものをリネームソフトで拡張子を*.docに変換したものです。そのためファイルを閉じるときに「書式なし形式で使用できない機能が含まれています」と聞いてきますが「はい」でOKです。 アドバイスおねがいします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAにて、WORDへ置換
EXCEL VBAにて、WORD文書への文字列置換を行っております。 文字列の置換自体はできています。 が、 置換文字列に「改行」(vbCRやvbLF)をいれて置換すると、 word側での表示が□になってしまいます。 vbCrだけでもvbLFだけでも、vbCRLFでも□と表示されてしまいました。 chr(13) & chr(10)でも□になりました。 EXCEL VBA にて WORDへ文字列置換する場合に送る、改行コード (たぶん「^p」と予測をつけているのですが)を chr関数等での 表示方法を教えてください。 EXCEL2003 WORD2003 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 古いワード文を新しいワードで開くと文字化けする
VISTA 機で作ったワード文を、8機で開くと、全てのかな文字が「平成ゴシック体」から「明朝体」に化けました。一括修正する方法を教えてください。
- 締切済み
- Word(ワード)
- wordマクロで条件に合う文のみフォントサイズ変更
wordの文章で、“(注)”もしくは“(注)”という文字列を検索して次に現れる空白改行までの文章を9ptにし変えた部分にマーカーをしたいと思っています。 (注)から始まる文章は (注)あああああ。 (注)ああああ。いいいいい。 (注)ああああ。 (1)いいいいい。 (1)ううううう。 (2)えええええ。 等のパターンがあります。現行では”ああああ”しか9ptになりませんが本当は全て9ptにしたいと思っています。どなたがご教授願います。 Sub SizeChenge9() Dim Rng As Range For Each Rng In ActiveDocument.StoryRanges With Rng.Find .Text = "[\((][注][\))]" .MatchWildcards = True Do While .Execute(Forward:=True) If Rng.Information(wdWithInTable) = False Then With Rng .EndOf Unit:=wdSentence, Extend:=wdExtend .Font.Size = 9 .HighlightColorIndex = wdPink .Collapse wdCollapseEnd End With End If Loop End With Next Rng End Sub
- ベストアンサー
- オフィス系ソフト
- ワードでゴシックの文字を太く表示できないものでしょうか
MSワードで11ポイントで文を作成しているとき、文字をゴシックにしても太く表示できず、明朝体と区別しにくく困っています。明朝でボールドにすると太く表示されるのですが、印刷するとあまり太くならず困ります。 ゴシックでボールドにすると太く表示されるのですが、印刷すると太くなりすぎて困ります。 また、表示を200%にするとゴシックが太字になりますが、これでは文書作成がやりにくくて困ります。 みなさん、どうしているのでしょうか? 何か良い方法はないものでしょうか?
- ベストアンサー
- その他MS Office製品
- ワードで,特定の文字だけ,字体を一括変換する方法
ワードで,特定の文字だけ,字体を一括変換する方法はないでしょうか? たとえば,明朝体で書かれた数十ページある文章の中で,数十か所ある「図」という文字だけを,ゴシック体に一括変換するという方法です。 ご存知の方がいらっしゃいましたら,どうぞ宜しくお願い致します。
- ベストアンサー
- Word(ワード)
- ワード文書中の特定フォントの変更を教えて
ワードで作成した文書で、文中のあちこちでゴシックで書いている文字をHGゴシックEなどの他のフォントに一括して変更する方法を教えてください。 なお、ゴシックで書いている文字はまちまちであり、見出しだけではありません。
- ベストアンサー
- その他MS Office製品
- フォントを変更する文字が選択できない
超初心者でご迷惑をかえりみず、おすがりします。 教えて下さい。 Wordで文章を作り、文字を選択しょうとツールバーのフォントの▼ボタンをクリックしたのですが、(MSゴシック) とか、何とかゴシックが出てくるだけで、明朝も行書体も 出ないので困っています。 どうしたらいいのでしょうか? よろしくお願いします。
- ベストアンサー
- デスクトップPC
- 契約書に使うフォントは何が良いのでしょう。
契約書を作成することが多いのですが、ふと考えたことがあります。 通常、ワードの明朝体をボールドにしているのですが、UI Gothic 等、他のフォントで作るのは良くないのでしょうか。 社内に既にあるのをみても、ゴシックを使っているのは無いですが、個人的にはゴシックも見やすくていいと思います。 また、大きさはいくつが適当なのでしょう。
- 締切済み
- その他(法律)
- リッチテキストボックス内のフォント変更
VB.NETプログラミングしています。 基礎的なことだと思うのですが、 調べてもわかりませんのでご教示ください。 RichTextBoxを使ってテキストエディタを作っています。 このリッチテキストボックス内でキーダウンイベントを発生させ、 選択されている文字のフォント変更(例えばボールド体やイタリック体、下線付加)したいのですができません。 ワードのような機能を付加したいだけなのですが、うまくいきません。 つまり、 If e.Control = True Then With RichTextBox1 Select Case e.KeyCode Case Keys.B (選択されている文字をボールド体にして、 ボールド体の部分は非ボールド体にする) End Select End With EndIf の中の 「選択されている文字をボールド体にして、ボールド体の部分は非ボールド体にする」という処理ができません。 ご存知の方、ご教示ください。
- ベストアンサー
- Visual Basic
お礼
思い通りの処理が出来るようになりました。 ありがとうございました。
補足
出来ました!ありがとうございます。 コードの修正できちんと処理されました。 しかも、処理にかかる時間もほんの一瞬ですね。 とりあえず処理したい文字列のパターンがすべて正規表現できるかやってみます。