ファイルによってテキストボックスの書式が変わってしまう

Question

windows7 64bit professionalにてoffice2013 Home & Businessを利用しています。

社内で、Wordのヘッダー内に特定のテキストボックスを入力するマクロを使用しています。

ヘッダー右上に、所定サイズの長方形のテキストボックスを入力するマクロです。

より具体的には以下のような感じです。

    Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, 335, 13, 200, 14.25).Select

    Selection.ShapeRange.TextFrame.TextRange.Select

    Selection.ShapeRange.Line.Weight = 1.5

    Selection.ShapeRange.Line.Visible = msoTrue

    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)

    Selection.ShapeRange.LockAspectRatio = msoFalse

    Selection.ShapeRange.TextFrame.MarginLeft = 6.12

    Selection.ShapeRange.TextFrame.MarginRight = 6.12

    Selection.ShapeRange.TextFrame.MarginTop = 0.99

    Selection.ShapeRange.TextFrame.MarginBottom = 0.99

    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage

    Selection.TypeText Text:="開示範囲：○○○○○○本部＆△△△△△△△△部門"

    Selection.WholeStory

    Selection.Font.Size = 9

テキストボックスのサイズは、テキストがちょうど収まる大きさなのですが、

ページ設定等が異なるファイルで実行すると、テキストが収まらない場合があります。

しかし、テキストが収まるファイルと同様のフォント設定、ページ設定にしても、

テキストが収まりません。

同様に、テキストが収まるファイルをテキストが収まらないファイルと同様のフォント設定、ページ設定等にしても、

テキストは収まったままです。

テキストが収まるファイルからテキストボックスをコピー&ペーストすると、

テキストが収まらなくなります。逆も同様です。

いったい何が原因で、テキストが収まらなくなるのでしょうか。

また、どうすれば、マクロで全く同一のテキストボックスを挿入することが出来るのでしょうか。

Answer 1

返信ありがとうございます。

＞松本　七生 様

＞手動で作成して試されたのは新規作成した docx ファイルなのでしょうか?

新規作成したdoc,docxファイル,既存ファイルで試しました。

新規作成のdoc,docxファイルで、現象が起こる既存ファイルと同様のページ設定等にしても、

テキストボックスは文字が収まりました。

既存ファイルはdocファイルでしたが、docxファイルに変換してもテキストボックスに文字は収まりませんでした。

・ テキストボックスの種類について。

手動は「挿入」リボンのテキストボックスボタンから横書きテキストボックスを挿入しました。

マクロでも

 Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, 335, 13, 200, 14.25).Select

でテキストボックスを挿入しています。

現象の起こる既存ファイル(doc)をdocxに変換すると、[図形の編集] で [頂点の編集] などを行ったテキストボックスのメニューの状態になります。

・ テキストボックスのサイズ (テキストボックスを選択すると、描画ツールの書式タブ右側に出てきます) 

高さ固定5.03mm　幅固定70.56mm　倍率高さ幅共に100％

テキストボックスと文字列の間隔は　左右共に2.16mm　上下共に0.35mm

オプションは描画オブジェクト内で文字列を折り返すにチェック

・ テキストボックス内の文字のフォントの種類、サイズ、装飾 (太字など) について。

テキストは「開示範囲：知的財産本部＆出願権利化検討部門」

フォントの種類はMS明朝 9point 太字

＞善場　進 様

＞テキストボックスの左右上下の文字列の間隔が違っていることが無いか確認してみてください。

左右上下の文字列の間隔、垂直方向の配置、オプション等全て同一に設定していますが、

テキストボックスに文字が収まらない場合があります。

Answer 2

添付画像のテキストボックスですが、ハンドルが白抜きのほうが標準モード(docx) 、グレーのほうが互換モード(.doc) で、それぞれのモードで表示される右クリックのコンテキストメニューも図の内容になります。

それぞれのモードのテキストボックスが同じサイズで、収まる文字数が異なっているということでしたら、右クリックメニューの [図の書式設定] または [テキストボックスの書式設定] で、テキストボックスの左右上下の文字列の間隔が違っていることが無いか確認してみてください。

通常は標準モードのほうが値が大きくなっていますので、その分だけ1行に収まる文字数が違ってきます。

Answer 3

​（ 00）さん、こんにちは。

返信ありがとうございます。

手動でテキストボックスを作成した場合も、同様の状況になるのですね。

確認なのですが、手動で作成して試されたのは新規作成した docx ファイルなのでしょうか?

もし、既存のファイルで確認されていた場合は、新規作成の docx ファイルに手動でヘッダーにテキストボックスを入れてみて、試してみてくださいね。

また、投稿してくださった画像についてですが、上の方は [図形の編集] で [頂点の編集] などを行ったテキストボックスのメニューの状態で、下の方は特に手を加えていないテキストボックスのメニューのようですね。

よろしければ、状況を確認できるように以下の内容についても書き込んでみてくださいね。

・ テキストボックスの種類について。

・ テキストボックスのサイズ (テキストボックスを選択すると、描画ツールの書式タブ右側に出てきます)

・ テキストボックス内の文字のフォントの種類、サイズ、装飾 (太字など) について。

確認ばかりになってしまい、すみません。。

返信をお待ちしていますね。

Answer 4

ご返信ありがとうございます。

＞要因の切り分けのため、マクロを使わずに手動でヘッダー部分に入れたテキストボックスではどうなるのかを確認してみてはいかがでしょうか。

マクロで作成したテキストボックスと同様のテキストボックスを手動で作成したところ、やはり文字が収まりませんでした。

また、マクロとは異なるテキストボックスを手動でヘッダーに作成したところ、やはり同文字数を入力することが出来ませんでした。

セーフモード、アドインを無効にしてもやはり文字が収まりませんでした。

docとdocxの関係かとも確認しましたが、doc同士、docx同士でも同様の現象が起きます。

同マクロで挿入したにもかかわらず、右クリックで出てくるメニューが異なりますが

これが関係しているのでしょうか？

Answer 5

​（ 00）さん、こんにちは。

マイクロソフト コミュニティのご利用、ありがとうございます。

Word 2013 でページ設定などが異なるファイルでマクロを実行した場合、テキストボックスにテキストが収まらないのですね。

要因の切り分けのため、マクロを使わずに手動でヘッダー部分に入れたテキストボックスではどうなるのかを確認してみてはいかがでしょうか。

もし、マクロがない場合も同様の状況であれば、アドインやテンプレートなどの要因をさらに切り分けるために [Office セーフ モード] で Word を起動し、手動で入力するとどうか確認してみてくださいね。

※Office セーフ モードで現象が起きない場合は、アドインが要因であるかどうかの切り分けのため、Office を通常起動した状態でアドインを無効にしてみてください。

1. Word を開き、 [ファイル] > [オプション] > [アドイン] の順にクリックします。
2. 画面下部の [管理 (A) ] の項目が [COM アドイン] となっていることを確認し [設定 (G) ] をクリックします。
3. 表示される項目のチェックをオフにします。
4. [OK] をクリックし画面を閉じます。

手動で入力した場合は問題がなく、マクロで挿入したテキストボックスで起きる場合は、マクロの内容を変更するといった対処が必要になりますね。

その場合は、開発者の方々が多く利用されていて専用のカテゴリがある MSDN の VBA フォーラムに投稿してみるとアドバイスや情報が集りやすいと思います。

よろしければ、こちらを活用してみてください。

◆ MSDN フォーラム - Visual Basic for Application (VBA)

試した結果の返信、お待ちしております。