Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

32 / 45 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【271】Re:全角、半角

ほし - 05/3/31(木) 23:32 -


	引用なし

	パスワード

ほんとだ！昔みたいに、一発で変換することができました！！ありがとうございます！あと、よくがあって申し訳ないんですが、Altキーを押さずにするようにはできないんですか？ほんとすいませんが、どうかお願いします。

・ツリー全体表示


	【270】Re:レイアウト枠の検索

名乗るほどのものでは - 05/3/31(木) 16:05 -


	引用なし

	パスワード

こんな感じかなぁ、と思ったけど、
私の環境では、失敗でした。

Sub test()

Dim setObject As Object
Dim tmpText As String

For Each myFrame In ActiveDocument.Frames
　　myFrame.Select
　　Set setObject = Selection
　　tmpText = setObject.Text
　　Selection.MoveUp
　　Selection.Text = tmpText
Next myFrame

End Sub

レイアウト枠の意味がまだよくわかっていないので、
また、思いついたら回答させて頂きます。

▼timtamlover さん：
>説明不足ですみませんでした。
>やりたい作業は、
>1. レイアウト枠を探す
>2. レイアウト枠がテキストボックスを含んでいるかチェックする
>3. テキストボックスがある場合、テキストボックス内の文字列を
>　レイアウト枠の外（枠のすぐ上）にコピー＆ペーストする
>ここまで終わったら、1.に戻って作業を繰り返す。
>ということなんです。
>
>2.や3.まで含めてマクロ化できれば、さらにうれしいのですが、
>今のところ1.のマクロも作成できずにつまづいている状況です。
>
>「レイアウト枠を次から次へと検索する」というのでは、
>伝わらないですよね。。。すみません。
>
>「カーソルのある位置以降にあるレイアウト枠を検索する」
>ということになるのでしょうか。
>
>よろしくお願いします。

・ツリー全体表示


	【269】Re:レイアウト枠の検索

timtamlover - 05/3/31(木) 9:12 -


	引用なし

	パスワード

説明不足ですみませんでした。
やりたい作業は、
1. レイアウト枠を探す
2. レイアウト枠がテキストボックスを含んでいるかチェックする
3. テキストボックスがある場合、テキストボックス内の文字列を
　レイアウト枠の外（枠のすぐ上）にコピー＆ペーストする
ここまで終わったら、1.に戻って作業を繰り返す。
ということなんです。

2.や3.まで含めてマクロ化できれば、さらにうれしいのですが、
今のところ1.のマクロも作成できずにつまづいている状況です。

「レイアウト枠を次から次へと検索する」というのでは、
伝わらないですよね。。。すみません。

「カーソルのある位置以降にあるレイアウト枠を検索する」
ということになるのでしょうか。

よろしくお願いします。

・ツリー全体表示


	【268】Re:レイアウト枠の検索

名乗るほどのものでは - 05/3/30(水) 16:39 -


	引用なし

	パスワード

Sub test()
For Each myFrame In ActiveDocument.Frames
　　myFrame.Select
Next myFrame
End Sub

こんな感じで次々には、選択はしていますが、
そもそもレイアウト枠は同時に複数選択できるのでしょうか？
やりたい作業をもう少し細かく言って頂ければ、
もう少しお力になれるかもしれません。

▼timtamlover さん：
>レイアウト枠を検索したくてVBEのヘルプを探したら、
>↓のようなものを見つけました。
>
>ですが、このままだとドキュメント内の一番最初の
>レイアウト枠しか探せないみたいなんです。
>次から次へと検索する方法をご存知でしたら、教えて
>いただけないでしょうか。よろしくお願いします。
>
>Sub Macro1()
>With ActiveDocument.Content.Find
>　　.Text = ""
>　　.Frame.TextWrap = False
>　　.Execute Forward:=True, Wrap:=wdFindContinue, Format:=True
>　　If .Found = True Then StatusBar = "レイアウト枠がありました。"
>　　.Parent.Select
>End With
>End Sub

・ツリー全体表示


	【267】Re:全角、半角

名乗るほどのものでは - 05/3/30(水) 16:24 -


	引用なし

	パスワード

altを押しながら押してみてください。
いくつかのケースが考えられるので、答えにならないかもしれませんが。

▼ほしさん：
>エスケープキーの横の半角、全角キーで昔は、ひらがな、英語入力の変換ができていたのに、今そこを押すと、‘というのが出てくるんですが、どうやったらもどりますか？

・ツリー全体表示


	【266】全角、半角

ほし - 05/3/29(火) 16:30 -


	引用なし

	パスワード

エスケープキーの横の半角、全角キーで昔は、ひらがな、英語入力の変換ができていたのに、今そこを押すと、‘というのが出てくるんですが、どうやったらもどりますか？

・ツリー全体表示


	【265】レイアウト枠の検索

timtamlover - 05/3/25(金) 9:39 -


	引用なし

	パスワード

レイアウト枠を検索したくてVBEのヘルプを探したら、
↓のようなものを見つけました。

ですが、このままだとドキュメント内の一番最初の
レイアウト枠しか探せないみたいなんです。
次から次へと検索する方法をご存知でしたら、教えて
いただけないでしょうか。よろしくお願いします。

Sub Macro1()
With ActiveDocument.Content.Find
　　.Text = ""
　　.Frame.TextWrap = False
　　.Execute Forward:=True, Wrap:=wdFindContinue, Format:=True
　　If .Found = True Then StatusBar = "レイアウト枠がありました。"
　　.Parent.Select
End With
End Sub

・ツリー全体表示


	【264】Re:スタイルと文字列の取得

ABR - 05/3/16(水) 17:19 -


	引用なし

	パスワード

すみません、自己解決しました。

・ツリー全体表示


	【263】スタイルと文字列の取得

ABR - 05/3/16(水) 13:21 -


	引用なし

	パスワード

WORD文書内で特定のスタイルが設定された部分（文字列）を
取得する方法があると聞いたのですがご存知の方はいらっしゃいますでしょうか。

StylesプロパティやStyleプロパティの配下には
それらしきものは見当たらなかったのですが。

よろしくお願い致します。

・ツリー全体表示


	【262】Re:Word文書の自動印刷

spider - 05/3/15(火) 11:13 -


	引用なし

	パスワード

りゅうしさん

どうもありがとうございました！
222番に気がつかなかったです・・・。

いまいち「？」ですが、まずは
やってみます!!!!!

・ツリー全体表示


	【261】Re:改行キーの削除

ルーキー - 05/3/13(日) 16:41 -


	引用なし

	パスワード

早々にありがとうございました。
無事に解決しました。
検索・置換でできるはずとは思っていたのですが、こんな所にキーがあるとはわかりませんでした。

・ツリー全体表示


	【260】Re:改行キーの削除

名乗るほどのものでは - 05/3/13(日) 13:59 -


	引用なし

	パスワード

VBAでやるなら、

Sub tekitou()
　　With Selection.Find
　　 .Text = Chr(13)
　　 .Replacement.Text = ""
　　 .Execute Replace:=wdReplaceAll
　　End With
End Sub

こんなところでは?

Wordの検索で普通にやるなら、
検索と置換から、あいまい検索のチェックを外して、
一番下の真ん中の特殊文字ボタンをクリック、
そこの中から段落記号を選んで、
それを検索対象に、置換後の文字列には何も入力せずに、
全て置換を実行。

こんなところでしょうか。

▼ルーキーさん：
>初めて投稿します。ここ（VBA質問箱）で適当なのかわかりませんが、ご指導願います。
>
>メールやテキストファイルの文章をワードにコピーしたとき、中途半端に改行されてしまいます。
>とりあえずすべての改行キーを削除してしまいたいのです。
>
>よろしくお願いします。

・ツリー全体表示


	【259】改行キーの削除

ルーキー - 05/3/13(日) 7:54 -


	引用なし

	パスワード

初めて投稿します。ここ（VBA質問箱）で適当なのかわかりませんが、ご指導願います。

メールやテキストファイルの文章をワードにコピーしたとき、中途半端に改行されてしまいます。
とりあえずすべての改行キーを削除してしまいたいのです。

よろしくお願いします。

・ツリー全体表示


	【258】Re:Word文書の自動印刷

りゅうし - 05/3/12(土) 15:10 -


	引用なし

	パスワード

222番の内容ではダメですか？
多分、同じ質問かな、と思いますが。

▼spider さん：
>Wordの文書を、毎日定時刻に
>自動的に印刷させたいのですが、
>できますか？
>たしかExcelではできたような気がするのですが・・・。
>
>バージョンは97、OSはXPです。
>
>ほぼ初心者ですので、よろしくお願いいたします。

・ツリー全体表示


	【257】Re:Wordで地図作成

りゅうし - 05/3/12(土) 15:03 -


	引用なし

	パスワード

こんなページもあります。
http://jjmsk.hp.infoseek.co.jp/word/tirasi_01.html

ワードアートで作りたいということですかね？
VBAでやることではないような気がしますが。。。
ある程度を自動化したいということでしょうか？
図形描画ツールバーを開いて試してみてください。

▼さくらさん：
>お世話になります。
>以前、Wirdで簡単な地図を作成できると、どこかで見たのですが可能ですか？
>よろしければ、地図の作成を教えてください。
>結婚式のプロフィールの作成の初心者です。
>マンガチックなものでかまいません。
>どうぞ、よろしくお願いいたします。

・ツリー全体表示


	【256】Word文書の自動印刷

spider - 05/3/9(水) 16:59 -


	引用なし

	パスワード

Wordの文書を、毎日定時刻に
自動的に印刷させたいのですが、
できますか？
たしかExcelではできたような気がするのですが・・・。

バージョンは97、OSはXPです。

ほぼ初心者ですので、よろしくお願いいたします。

・ツリー全体表示


	【255】Wordで地図作成

さくら - 05/3/7(月) 21:26 -


	引用なし

	パスワード

お世話になります。
以前、Wirdで簡単な地図を作成できると、どこかで見たのですが可能ですか？
よろしければ、地図の作成を教えてください。
結婚式のプロフィールの作成の初心者です。
マンガチックなものでかまいません。
どうぞ、よろしくお願いいたします。

・ツリー全体表示


	【254】Re:違うヘッダーを２つつけたい

fuji.mt - 05/3/7(月) 16:36 -


	引用なし

	パスワード

回答でなくてすみません。
ヘッダーに限らず、文中、表中などにそのページの番号を利用した数値を使いたい例はたくさんあります。是非お教えください。
たとえば、
　文中の図表は、表－１，２，３に対し、頁は２，３，４
の場合、図表には数式で（ページ番号－２）等と使いたいのです。

▼Menturm さん：
>例えば、他の人からもらったWORDのヘッダーに連番ページ番号（１０ページとします）がついています。こちらとしては、そのページ番号がついたまま、途中の５ページから、そのヘッダーの横に１番から番号を振りたいのですが、どうもうまく行きません。手書きで書くと前のページも同じヘッダーになってしまいます。手書きでも良いのですが、固有のページを挿入するにはどうすれば良いのでしょうか？

・ツリー全体表示


	【253】Re:WORDでスペースをうつと

phoo - 05/2/26(土) 21:57 -


	引用なし

	パスワード

「ツール」→「オプション」→表示タブの編集記号の表示で”スペース”からチェックを外すといいですよ。

・ツリー全体表示


	【252】WORDでスペースをうつと

すみません - 05/2/22(火) 15:35 -


	引用なし

	パスワード

ＷＯＲＤでスペースを打つと、“□”が出てきてうっとうしいです。どうやったら消せますか？教えてください。お願いします。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

32 / 45 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free