MS word2007の縦書き文書をpdfで保存するとMS明朝フォントが一部で@MS明朝になって90度回転してしまう。ローマ数字や罫線で困る。

Question

ローマ数字(ⅠⅡⅢなど)、罫線文字(┌┐ └┘)を含むms word ファイルを、「名前を付けて保存」→pdfで保存すると、それらの文字が90度回転してしまう。

元のフォントがMS 明朝だとすると、pdfでは、@MS 明朝になっている。ms wordの「名前を付けて保存」→pdfで保存するときに、この現象の回避策はわかりますでしょうか。

adobe distillerでは、この現象は発生しないのですが。

Answer 1

UserMS-2007 さん、こんにちは。

Answers をご利用いただきありがとうございます。

Word を縦書きにしてローマ数字や罫線文字を入力した文書ファイルを PDF 形式で保存すると文字が 90 度回転してしまうのですね。

こちらの手元の環境でも確認してみました。

Windows Vista + Word 2007 で確認

※ OS のバージョンは違います

確認してみた結果なのですが、罫線文字、ローマ数字を入力した文書を縦書きにし、 PDF で保存してみたところ同じような動作になり、90 度文字が反転し同じ動作になりました。

確認のため PDF を開くための Adobe Reader X (10.1.3) で一度削除してから再インストールをしてみたのですが、現象は変わりませんでした。。

Excel でローマ数字を入力して PDF で保存した場合も確認してみたのですが、こちらでは文字が反転することはありませんでした。

回避策として提案となるのですが、Word でローマ数字や罫線文字を入力する際にあらかじめ縦中横の機能を使って文字を反転させていただく方法はどうでしょうか。

※ 詳細は以下の画像を参考にしてみてください。

上記の方法で文字を反転させることができるので、反転した後に PDF に保存してみてはどうでしょうか。

※ 文字を選択して [すべて変更] ボタンを押してから閉じるで閉じます。

※ こちらの方法では PDF に変換した時にはそのままで表示ができました。

回避策も方法として参考になるか解らないのですが、罫線文字やローマ数字を使用するときには有効な方法かもしれません。

よろしければ参考にしてみてくださいね。

試してみた結果について返信をお待ちしています。

Answer 2

UserMS-2007　さん、再度の投稿ありがとうございます。

文字を回転させる方法としてマクロを作成して自動化されたのですね。

縦中横の機能だと選択されたものがすべて反転してしまうので、回転したい文字だけを選択して回転させる方法になるので、選択する場所によっては難しいのかなと思います。 (一文字ずつなら便利なのですが。。)

マクロの機能で自動で回転できる方法であれば代替え案ではありますが、書かれた方法で使用するのがよいかと思います。

また、書かれたコードも今後こちらのスレッドを見られた方にとっても有効な情報かと思います。

また質問や情報などがありましたら今後とも Answers をご利用くださいね。

Answer 3

> 1文字ずつ回転させる操作をまとめて行う方法があると助かるのですが。

  ローマ数字1文字について、1文字ずつ回転させるマクロを作ってみました。

Sub XrotateSymbols()

'

' rotateSymbols Macro

'

'

    Dim aaa1 As Integer

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "[ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩ]"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindAsk

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchByte = False

        .MatchAllWordForms = False

        .MatchSoundsLike = False

        .MatchFuzzy = False

        .MatchWildcards = True

    End With

    aaa1 = Selection.Find.Execute

    While aaa1 <> 0

        Selection.Range.HorizontalInVertical = wdHorizontalInVerticalFitInLine

        aaa1 = Selection.Find.Execute ' 今、回転した文字にマッチ

        aaa1 = Selection.Find.Execute ' 次のサーチ

    Wend

End Sub

Answer 4

大沢様

  回答ありがとうございます。

  1文字ずつ、縦中横で回転させることで、期待通りの表示となりました。

  複数の文字をまとめて選択すると、文字の回転については期待通りなのですが、選択した範囲全体が、横書きの行になってしまい、普通の縦書きの文書の見た目にならなくなります。

  1文字ずつ回転させる操作をまとめて行う方法があると助かるのですが。