WindowsXP Pro Word2003
Symbolフォントを使用して±などの記号を使用していたのですが
TimesNewRomanに変更したいので、文書全体を選択後フォントをTimesNewRomanに
変更したところ、フォント名はTimesNewRomanに変更されましたが
フォント自体はSymbolのままのチグハグ状態になってしまいました。
1つ1つ見ていけば直せるのですが量が多く大変なのでマクロを組んで
検索できないものかと思い調べてみましたが見つかりませんでした。
Wordのフォント検索ではSymbolは見つかりませんでした。(フォント名がTimesになっているので)
If ActiveDocument.Range(文字の位置).Font.Name = "Symbol" then
でもひっかかりませんでした。
Selection.InsertSymbol CharacterNumber:=177, Font:="Symbol", Unicode:=False
これでSymbolフォントの文字挿入ができるので、逆に1文字ずつのCharacterNumberを
取得できればSymbolフォントかどうかを判断できるかなぁと思ったのですが、不可能でしょうか。
この様な状態でマクロでのSymbolフォントを検索できる方法はありませんでしょうか?
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
Symbolフォントでは、
Unicode:0x0020(基本ラテン) からと、
Unicode:0xF020(私用領域)からとに、
同じ絵文字が登録されているようです。
ここら辺の事情が何か悪さをしているのかもしれません。
No.3
- 回答日時:
Sub test2()
Dim i As Long
Dim n As Long
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
n = Len(Selection.Text)
Selection.HomeKey Unit:=wdLine
For i = 1 To n
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection
.Font.Name = "Symbol" '---(1)
'.Font.Name = "Times New Roman" '---(2)
.MoveRight Unit:=wdCharacter, Count:=1
End With
Next i
End Sub
SymbolとTimes New Romanが混在するところで
(2)の行をコメントアウトして上記マクロを試してみました。
Times New RomanのところがSymbolに変更されました。
フォントタブでもSymbolと表示されます。
次に、(1)の行をコメントアウトして上記マクロを試してみました。
Times New RomanがSymbolに変更された箇所のみTimes New Romanに変更されるようです。
しかし、何度か繰り返すと違った結果になります。難しいです。よく分かりません。
因みに、手動で行った場合は、両者とも変化がありません。
>↑文字コードで条件判断してみるとSymbolが見つかったのですが、
>Symbolだけでなく "(" もひっかかってきていまいちです。
文字コードで検索する場合は、フォントに係わらず検索にかかるのが正常だと思います。
文字コードが同じで、フォントによって表示される形が変えられているだけですから。
ご回答ありがとうございます。
Times から Symbol へのフォント変換は正常に行われるのですが、
逆の Symbol から Times へのフォント変換はできないようです。
これは手動でもマクロでも同様だと思います。
>文字コードで検索する場合は、フォントに係わらず検索にかかるのが正常だと思います。
>文字コードが同じで、フォントによって表示される形が変えられているだけですから。
おっしゃる通りなのですが、Symbolフォントのみ事情が違うようですね。
Symbol以外はフォントの変更が自由にできるのですが、
Symbolにフォントに変更するとフォントだけでなく文字コードまでも
変更されてしまっているようです。ですので元に戻そうとして、
Symbol から Times にフォントを変更しようとしても文字コードが
Symbol 用になってしまっているので正常な Times には戻らないのだと思います。
フォントや文字コード以外でSymbolを検索する方法があればよいのですが。
No.2
- 回答日時:
試しに「マクロの記録」でコードを得てマクロを組んでみました。
取りあえず、1行のみです。
Sub test1()
Dim i As Long
Dim n As Long
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
n = Len(Selection.Text)
Selection.HomeKey Unit:=wdLine
For i = 1 To n
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection
If .Font.Name = "Symbol" Then
.Font.Name = "Times New Roman"
End If
.MoveRight Unit:=wdCharacter, Count:=1
End With
Next i
End Sub
>フォント名はTimesNewRomanに変更されましたが
>フォント自体はSymbolのままのチグハグ状態
で使えるかどうかは分かりません。
ありがとうございます
質問でも書いたとおり、フォント自体はSymbolでも、Wordが認識しているフォント名はTimesに
なってしまっているので検索ではひっかかってきませんし、置換もできません。
ですのでご回答頂いたマクロでも同様に変換されません。
私の説明不足と思いますので再度状況を書かせていただきます。
(1)英文はTimesNewRomanで、±などの記号はSymbolフォントで文書作成
(記号の入力は[挿入]-[記号と特殊文字]でSymbolを選択)
(2)記号もTimesNewRomanにしたいので文書全体を選択[Ctrl+a]後、フォントをTimesに変更して保存
(この時点で問題発生、チグハグ状態、Wordのバグ?)
(3)Symbolフォントを置換したいが、検索してもひっかかってこない
Wordの文書を見る限り全ての文字がTimesになっていても
PDF化するとSymbolフォントが入っておりそこで気付きました。
理由はフォント名がTimesでも、±など記号自体の書体はSymbolでした。
フォントサイズを大きくすると違いがよくわかります。
If Str(Asc(ActiveDocument.Range(r_p, r_p + 1))) = 40 Then
↑文字コードで条件判断してみるとSymbolが見つかったのですが、
Symbolだけでなく "(" もひっかかってきていまいちです。
(本来は "(" が正常な 文字コード= 40 なのですが・・・)
No.1
- 回答日時:
ワードは書式の置換ができます。
置換タブの「オプション」をクリックすると、「書式」ボタンが出てきます。また、Symbolは英数字用のフォントですが、日本語用のフォントで探していないでしょうか。
ご回答ありがとうございます。
>ワードは書式の置換ができます。
質問でも書いたとおり、フォント自体はSymbolでも、Wordが認識しているフォント名はTimesになってしまっているので検索ではひっかかってきませんし、置換もできません。
>日本語用のフォントで探していないでしょうか。
英数字用のフォントで検索しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン Chromebookの文字フォント(デバイスの入力文字など)が直せないです 1 2022/06/21 14:56
- Word(ワード) ワードフォント 一括置換の方法 4 2022/12/31 00:27
- PDF acrobatでwordファイルをpdfに変換すると文字化けする 3 2023/02/10 09:31
- 政治 私の発明した「二階建て漢字」は使えるでしょうか? 3 2023/02/08 16:40
- その他(プログラミング・Web制作) Pythonで会員サイトの自動ログイン ID Nameがない 1 2022/12/16 02:09
- その他(インターネット接続・インフラ) Webサイトのフォント・級数変更について 1 2022/10/18 18:08
- Word(ワード) ワードでフォントを選ぶとき、一覧からではなく検索等できないでしょうか? 2 2022/10/22 17:52
- Illustrator(イラストレーター) 添付画像の帽子マーク~Tは、既成のフォントに類似フォントがありますでしょうか 1 2022/08/17 20:51
- HTML・CSS Web font 会社のホームページを作成についてですが、webフォントを使用することを検討しており 4 2022/11/04 10:36
- フリーソフト 文字のフォント特定して頂きたいです! 3 2023/05/15 09:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードで使用しているフォント...
-
英語フォントで中点の書き方
-
ワードフォントArial Unicode M...
-
ワードでフォントをMS明朝で入...
-
パワーポイントで、「ベータ」...
-
大学のレポートをWordで書くの...
-
ワードに特殊記号を入れたいんです
-
英文e-mailで記号を打つ方法
-
Excelで、日本語と英語のフォン...
-
印刷時、文字が太くなってしまう。
-
ワードで二乗を入力したいです
-
MS UI Gothicというフォントは...
-
記号について
-
印刷文字がきれいでない(ドッ...
-
スマホ版ワードで英数字のみを...
-
ワード2000で記号や数字が...
-
EXCELのフォント
-
Macでsans serifと同じフォント...
-
wordで半角数字がゴシック...
-
フォントで『づにのい』という...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードで使用しているフォント...
-
英語フォントで中点の書き方
-
ワードフォントArial Unicode M...
-
MS UI Gothicというフォントは...
-
MicrosoftWordで草書体を使用
-
PowerPoint でマイナス(-)記号
-
ワードでフォントをMS明朝で入...
-
wordで2桁の半角数字を1桁の全...
-
英文e-mailで記号を打つ方法
-
Excelで、日本語と英語のフォン...
-
Macでギリシャ文字
-
パワーポイントで、「ベータ」...
-
ワードに特殊記号を入れたいんです
-
Wordのフォント(半角数字)が細...
-
印刷時、文字が太くなってしまう。
-
ワード2000で記号や数字が...
-
EXCELのフォント
-
エクセルやワードで数字だけフ...
-
Word2013 均等割り付けをすると...
-
表をつくるのに最適なフォント...
おすすめ情報