12/11/23 14:58:31.57
おっ、本当だ！
これはいい勉強になった。
URLﾘﾝｸ(www.dotup.org)
555:名無しさん＠そうだ選挙にいこう
12/11/23 15:08:26.97
>>554
サンクス
まえいってた激安中古ソフトダウンロードマートさんかなり使えるね
556:名無しさん＠そうだ選挙にいこう
12/11/24 05:31:38.26
発展問題w
ぶら下げインデントで
aaaaa: ~~~~~~~~~~~~~~
~~~~~~~~~~.
bb: ~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~.
cccccccc: ~~~~~~~~~~~
~~~~~~~~~~~~~~~~~
~~~~~~~.
↑これは簡単にできるよね。
↓こっちはいちいちインデント量を変えていかなくちゃだめなの？
自動的にコロンの後ろのスペースのところにインデントがくるようにはできない？
（見かけがダサイとか言わない！）
aaaaa: ~~~~~~~~~~~~~~
~~~~~~~~~~~~~~
~~~~~~~~~~.
bb: ~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~.
cccccccc: ~~~~~~~~~~~
~~~~~~~~~~~
~~~~~~~.
557:名無しさん＠そうだ選挙にいこう
12/11/24 05:34:08.70
え？ ２ちゃんねるでは行頭半角スペースは無視されるの？ ごめん、全角にしとけばよかった。
558:名無しさん＠そうだ選挙にいこう
12/11/24 12:09:06.21
発展問題ｗ って
誰に対しての問題？
ここは問題出し合うところじゃないんだからさｗ
559:名無しさん＠そうだ選挙にいこう
12/11/24 12:17:52.75
自分
560:名無しさん＠そうだ選挙にいこう
12/11/24 16:44:16.70
段組や表を使うより、インデントとタブでやる方が自分はいいと思う。
561:名無しさん＠そうだ選挙にいこう
12/11/25 20:57:21.29
>>556
コロンの後にタブを入れることでぶら下げインデントの位置を揃える
aaaaa:→～～～～
～～～～
bb:→ →～～～～
～～～～
→はタブ
コロンの後にスペースが空くのが嫌なら
項目ごとにぶら下げインデントを設定しないとダメだね
562:名無しさん＠そうだ選挙にいこう
12/11/25 21:04:48.30
-を3回入力してEnter押すと横線が登場しますが、この横線の正体はなんですか？
図形の直線でもなさそうだし、段落に適応される段落罫線でもなさそうだし。
あとページ間にこの横線がくるとそれを消すのに非常に手間取るのですが、どうすればすぐ消せますか？
(この質問を理解できるのはかなりWordに精通してる人のみだと思いますが)
563:名無しさん＠そうだ選挙にいこう
12/11/26 06:16:00.37
オートコレクト
564:562
12/11/26 08:43:50.90
>>563
ほんとう？
よく調べたらやっぱり段落罫線っぽいけど。
565:名無しさん＠そうだ選挙にいこう
12/11/26 09:08:08.67
>>562
>>562
段落罫線
段落罫線消すには、段落記号選択した状態でDeleteもしくは、Ctrl＋Q
566:名無しさん＠そうだ選挙にいこう
12/11/26 09:22:05.64
>>561
>コロンの後にスペースが空くのが嫌なら
>項目ごとにぶら下げインデントを設定しないとダメだね
右揃えタブでやればいいじゃん
567:562
12/11/26 09:35:14.73
>>565
それどちらの方法でも消えませんよ
568:名無しさん＠そうだ選挙にいこう
12/11/26 12:23:35.62
>>562
そもそもそういうことにならんのだが……
569:名無しさん＠そうだ選挙にいこう
12/11/26 12:41:25.82
>>568
オートコレクト⇒入力オートフォーマット
罫線にチェック入ってれば
--- 3つ入力しEnterキー押すと段落罫線が作成される
570:名無しさん＠そうだ選挙にいこう
12/11/26 13:07:31.26
>>567
Wordのバージョンをまず、示しなさい。
こちらは、Word2003、2007、2010で確認したけど、
Deleteだと段落が消える
Ctlr+Qだと段落罫線のみ消える
ちゃんと段落記号選択してるか？
571:名無しさん＠そうだ選挙にいこう
12/11/26 14:31:28.28
>>566
Wordなんて自分のやりかたそれぞれあるんだから
こうだと思ったらそうやればいいんじゃない？
私はコロンの後にタブ入れて、ぶら下げインデントをまとめて設定するけど
>>567
‐‐‐を入力して―になってしまうけど
その後にオートコレクトのオプションのミニツールが表示される
それの元に戻すで‐‐‐に戻る
572:571
12/11/26 14:51:27.18
>>567
すまん、付け足し
オートコレクトで‐‐‐が段落罫線に変更されているだけ
これをすばやく消去するには―の段落を選択して
ホームタブの段落グループ、罫線の枠なしをクリックすればいい
(Word2010の場合)
573:名無しさん＠そうだ選挙にいこう
12/11/26 14:52:36.62
背景を黒にして印刷したいのですが真っ白で印刷されます。
ページ設定印刷オプションの同時に印刷→
背景とイメージのチェックボックスはチェックされています。
他に変更しないといけない設定があるのでしょうか。
バージョンは2003です。
574:名無しさん＠そうだ選挙にいこう
12/11/26 21:38:03.47
WORD2003とで使用してます
図形の二等辺三角形を挿入して文字入力すると半分から下あたりしか文字がはいりません。
したいことは二等辺三角形のなかに数字を書き込みをしようとしてます。
表の挿入だと台形なので正方形の表だとうまいことおさまらないので
上から数字を入力して線をひいてカレンダー的にしたいのですが、どうすればいいのかいきづまってます
575:名無しさん＠そうだ選挙にいこう
12/11/28 00:50:06.82
>>574
ゴメン。
何が何だかさっぱり分からんです。
576:名無しさん＠そうだ選挙にいこう
12/11/28 06:50:13.35
当方、Word2010での返答で申し訳ないんだけど
>>573
ファイルタブのWordのオプション、表示タブの印刷オプションにある
背景の色とイメージを印刷するにチェックでいけた。
印刷のプレビューで確認してみて。
>>574
図形の中に直接文字を打ち込まず
図形の塗りつぶしなし、図形の枠線なしのテキストボックスの中に
文字を入れて図形に重ねればいい。
577:名無しさん＠そうだ選挙にいこう
12/11/28 06:59:23.01
バージョンが異なっているのは別にしても、図形のことは全然わからんのだが。
スマートアートで、例えば「25」と入力する、それに△を重ねる、
そうすると「25」が△の中心点よりやや下がった位置にある、
それをもちっと持ち上げたい、という（ような意味の）ことなんだろうか。
△を別の図形として作って重ねる（できるん？）くらいしか思い付かない。
578:名無しさん＠そうだ選挙にいこう
12/11/28 07:00:31.25
首を捻りながら書いている間に答えが出てるんだね。
書き込む前にリロードすべきだった。ソマソ
579:576
12/11/28 12:56:29.30
>>578
いやいや、答えは1つだけだとは思ってないので
色々なやり方を提案してくれると勉強になるよ
580:名無しさん＠そうだ選挙にいこう
12/11/28 19:23:00.11
ひょっとして、こういうものを作ろうとしてるの？
１
２３４
５６７８９
581:574
12/11/28 20:25:38.06
すいません文章力がなくて。
町内会のイベントでクリスマスツリーの形をしてそのなかにカレンダー的に日付をいれて
そのひに来店した人の人数を書き込む的なことをしたかったんですが、
＞＞576さんが書き込みしてくれた通りに枠なしで文字を入れたら形になりました。
読解力がない書き込みのなかいろいろアドバイスいただきありがとうございました。
582:名無しさん＠そうだ選挙にいこう
12/11/28 20:26:52.28
読解力じゃなくて文章力のなさですね。重ねてすいません。
583:名無しさん＠そうだ選挙にいこう
12/11/29 03:35:48.13
文章力、な
584:名無しさん＠そうだ選挙にいこう
12/11/29 06:39:17.26
スマートアート初めて使ってみたんだが、これ面白いな。Wordなかなかやるじゃん
585:名無しさん＠そうだ選挙にいこう
12/11/30 12:26:51.55
word2003で文字を上下に潰したような平体ってできるんでしょうか？
ぐぐっていくつかみても拡大縮小がヒットしましたが
これは上下左右にフォントの大きさが変わるだけですよね？
586:546
12/11/30 15:31:24.02
>>585
ワードアートを使えば簡単に出来るよ
587:名無しさん＠そうだ選挙にいこう
12/11/30 18:25:02.24
>>585
フォントの大きさは変わらないよ。字幅が変わるだけだよ。
588:名無しさん＠そうだ選挙にいこう
12/12/04 19:15:05.56
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
昔から使ってる罫紙みたいな様式で文章を作らなきゃならなくなったんだけど
罫線枠から次罫線枠への自動改行ってできるんでしょうか？
記述部分は入力行、罫線、入力行、罫線・・・となっていて、入力を続けていって一行に収まりきらない文字は
次の罫線枠へ二行目、三行目・・・と改行していかなくてはならないため、入力効率が異常に悪いのです
40文字なら40文字でで改行していくため、間違えを見つけた場合何行にもわたって修正が必要となってしまって最悪です
入力を続けていって一行で収まりきらない文字は、次の罫線行、その次の罫線行という具合に
入っていくように出来ないもんでしょうか
例えば適当にメモ帳なんかにテキストで下書きして貼り付けたらあら出来ましたみたいな感じで
出来なきゃできないで諦めるので どなたかわかる方よろしくお願いします。
（ちなみにネット検索の結果見つけた一太郎への質問の改変です…失礼）
589:名無しさん＠そうだ選挙にいこう
12/12/04 21:35:24.62
>>588
URLﾘﾝｸ(support.microsoft.com)
590:名無しさん＠そうだ選挙にいこう
12/12/05 09:42:12.75
>>589
ありがとう やっぱしあるもの活用じゃなくいちから作ります
591:名無しさん＠そうだ選挙にいこう
12/12/05 17:32:42.51
>>588
もう間に合わないかなー
表示→グリッド線にチェックを入れる
挿入→図形→直線を選ぶ
グリッド線に合わせてShift + ドラッグで直線を引く
(図形[直線]の色や太さを設定する)
Shift+Ctrl+ドラッグで下にコピーする
(大変だけど繰り返す)
表示→グリッド線のチェックを外す
文字打ち込む→改行できて幸せ→印刷も出来る
592:591
12/12/05 17:37:01.01
よく見たら>>589と同じことだった
すまんかった
593:名無しさん＠そうだ選挙にいこう
12/12/06 03:52:12.89
アンダーラインで出来るといいなあ
594:名無しさん＠そうだ選挙にいこう
12/12/17 15:51:49.51
ワードアートで文字変形や３D変形をすると文字が表示されなくなってしまいます。
最近現象が発生したようで、昔作ったファイルを開いてもワードアートの部分だけ表示されません。
同じような状況が出た人いますか？原因がわかれば教えてください。
バージョン:2007 OS:7 Pro
595:名無しさん＠そうだ選挙にいこう
12/12/19 15:14:45.45
594ですが追加です。
フォントがOTFのときのみ、消えてしまうようです。
TTFであれば問題は起きません。
ExcelやPowerpointでも同じになるので、ワードアート自体の問題のようです。
596:名無しさん＠そうだ選挙にいこう
12/12/19 15:29:38.92
金払ってないとか
597:名無しさん＠そうだ選挙にいこう
12/12/19 19:35:01.06
OTF使うのに何かライセンスがいるんですか？
フォント自体はフリーのものです。
598:名無しさん＠そうだ選挙にいこう
12/12/19 23:31:59.18
【Word 2007】
初心的な質問ですがお願いします
この度業務手順書を作り、目次作成の段階なのですが
スタイルに見出し1がありませんorz
見出し2以下ならあるのですが見出し1がない理由を教えてください
会社から配布される個人用PCなので設定を変えたこともないです
お願いします
599:名無しさん＠そうだ選挙にいこう
12/12/20 04:21:46.43
>>597
モリサワかと思った。すまん
600:名無しさん＠そうだ選挙にいこう
12/12/20 18:15:39.51
Word2003をwindow7pro-64bitで使用しています。
ページ設定で、縦115mm、横95mmの小さな文書を、Ａ4の用紙にそれぞれ同じ大きさで4分割配列で印刷したいのです。
プリンタはエプソンのPM-D800で印刷のレイアウト設定で「分割」はあるのですが
4分割に設定するとＡ4の用紙の4分の1の領域に縮小された元のファイルが4枚印刷されてしまいます。
Wodの印刷設定で、ファイル→印刷→印刷範囲のページ設定には、「1,1,1,1」と入力しています。
要はＡ4用紙1枚にＡ4の4分の1の大きさのファイルを2×2で印刷したいのですが・・・。
601:名無しさん＠そうだ選挙にいこう
12/12/20 20:32:54.34
>>600 自分の環境とだいぶ違うけど試してみました。
自分のは WinXP Word2003 EpsonPX-V700です。
用紙設定はＡ５縦長、１ページの途中まで適当に文書を作り、プリンタのプロパティは、
基本設定：印刷プレビューあり、用紙設定：Ａ４縦長、レイアウト：割付－４ページ
Wordの印刷ダイアログの印刷範囲を 1,1,1,1 で試すと、左上の１ページ分しか出力されません。
そこで２ページ分の文書を作ってみたらバッチリ同じ内容のものが４つプレビューに表示されました。
最終的には、１ページ分の文書の最後に改ページを入れるだけでいけました。
602:600
12/12/24 17:42:44.52
>>601サンキュー。色々といじって出来ました。多謝
603:名無しさん＠そうだ選挙にいこう
12/12/24 22:50:45.01
Windows7、word2010です。
変更履歴の見える状態で保存されたファイルをエクスプローラで右クリックして印刷すると、
変更履歴つきの状態で印刷されてしまうのですが、
変更履歴なしの状態で印刷するいい方法はないでしょうか？
作成者が履歴残したり残さなかったりで、印刷するたびに残念な気持ちになります。
604:名無しさん＠そうだ選挙にいこう
12/12/25 15:18:13.93
>>603
校閲タブ、変更履歴グループの変更履歴とコメントの表示から
校閲者、すべての校閲者のチェックを外せばおｋ
605:名無しさん＠そうだ選挙にいこう
12/12/25 17:14:47.31
>>594 ですが、いつのまにか直ってました。
いったいなんだったんだろう・・・
606:名無しさん＠そうだ選挙にいこう
12/12/28 10:24:52.25
>>605
不具合が発生したことはよくありました
マイクロソフトの無料バージョンアップ後に多いかった
他のソフト（画像処理）でも無料バージョンアップ後データが消えたことがあります
607:名無しさん＠そうだ選挙にいこう
12/12/28 11:40:59.93
不思議なことが起きたときプラグを引き抜いてみるのもまたよし、と
608:名無しさん＠そうだ選挙にいこう
12/12/30 14:16:35.57
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
文字認識で作ったファイルがたくさんあります。
たくさんの間違った文字列を置換で直していましたが
毎回毎回間違った文字列をたくさん手入力するのに疲れてしまいました。
どのファイルも同じ文字列の間違いなので
たとえば間違った文字列を何かに登録しておくと
別のファイルを直すときもその設定を使ってまとめて置換するとか
クリックで確認して選択肢から正しい文字列をえらぶとかそういう
少しでも楽になれる機能があったら教えてください。
609:名無しさん＠そうだ選挙にいこう
12/12/30 16:18:50.52
ヘルプで「マクロ」の使い方を見て
610:名無しさん＠そうだ選挙にいこう
12/12/30 16:40:51.40
>>609
ありがとうございます！
これで繰り返し出来そうです！！
助かりました！！！！
611:名無しさん＠そうだ選挙にいこう
12/12/30 16:53:45.60
すいませんいきなり行き詰りました。
検索・置換する文字が多すぎて
コピペで増やしていくと何が何やら分からなくなるんですがどうしたらいいですか？
Sub kensaku()
'
' kensaku Macro
' 検索・置換用
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "("
.Replacement.Text = "（"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
612:名無しさん＠そうだ選挙にいこう
12/12/30 17:44:39.27
検索・置換する文字が増えると、↓のブロックが繰り返されるだけ。
今は、長くなっても、気にしなくて良いと思う。
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
613:名無しさん＠そうだ選挙にいこう
12/12/30 17:52:45.89
ありがとうございます。
気にせずがんがんコピペしていって
早く作業から開放されるようになります！！！
614:名無しさん＠そうだ選挙にいこう
13/01/02 15:13:12.38
誘導されてこちらに来ました
よろしくお願いします！
見開き設定の正しいやり方がわかりません
下記のような設定にしてみたのですが、実際にプリントアウトしてみると
裏表の余白の位置が違うのです
表は17ミリなのに、裏が20ミリくらいになっています
印刷プレビューで見てみてもやはり裏の方が余白が大きくなっているのです
※縦書き2段組 新書サイズで右で閉じることを想定
上 10ミリ
下 17ミリ
内側 10ミリ
外側 17ミリ
とじしろ 0ミリ
色々調べてみたのですが、同様の事例を見つけられませんでした
（大体内側と外側の数値を設定するだけでOKという記述が多い）
試しにとじしろ部分を２ミリほどとってみたら大体合わせられたのですが
それでも裏表ぴったりにはなりません
何か考え違いをしているのか、どういう設定をしたらいいのか
ご教授お願いします
615:名無しさん＠そうだ選挙にいこう
13/01/02 15:49:01.86
URLﾘﾝｸ(office-qa.com)
616:名無しさん＠そうだ選挙にいこう
13/01/03 08:22:44.15
Webの表をWordの先頭に貼り付けてしまったあと
その表の前に文章を追加したいとき
どうやって入力するの？
表の中に文字が入ってしまって、実にうざいです。
617:名無しさん＠そうだ選挙にいこう
13/01/03 09:34:20.56
URLﾘﾝｸ(www.nbcom.co.jp)
618:名無しさん＠そうだ選挙にいこう
13/01/03 09:42:15.86
URLﾘﾝｸ(www.rabbithouse.co.jp)
619:新入り
13/01/04 01:08:54.75
初めてこのスレにお邪魔します。社会人になって2年ですがワードエクセルと初心者です。よろしくお願いします。
620:名無しさん＠そうだ選挙にいこう
13/01/04 06:45:32.87
頑張って下さい。
621:608
13/01/04 20:42:44.25
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
608です。マクロを記録して文字列置換をしてるんですが
『まi」』というような文字列が多く、『ま！」』に置換したいのです
条件としては
『ま』のぶぶんが「・」「。」とかの記号以外の文字の場合に
iを！にする感じなんですが「・」とかを除くので
ワイルドカードが使えないんですがどうすればいいんでしょうか？
With Selection.Find
.Text = "まi」"
.Replacement.Text = "ま！」"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
622:608
13/01/04 21:25:15.94
マクロを記録するので
マクロじゃなくても
普通のワードの検索・置換でどういう風に設定すれば置換できるかで
教えてくださっても
もちろOKです。
623:名無しさん＠そうだ選挙にいこう
13/01/04 22:21:45.88
>>622
違うかな？
検索する文字 ： ([!.。i])i
置換後文字 ：\1!
624:名無しさん＠そうだ選挙にいこう
13/01/04 22:31:32.30
↑は、ワイルドカードを使用するにチェック入れてね
625:名無しさん＠そうだ選挙にいこう
13/01/04 22:46:55.85
「.」と「・」間違えた
あと、２回続けて実施したらまずかったので訂正
検索する文字 ：([・。i\!])i
626:名無しさん＠そうだ選挙にいこう
13/01/04 23:02:10.06
ごめんなさ～い。
大事な「!」までけしちゃった。
今度こそ。
検索する文字 ：([!・。i\!])i
627:名無しさん＠そうだ選挙にいこう
13/01/04 23:19:04.42
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word２０１０
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
会社のワードです。
ときどき保存したはずなのに保存されないことがあります。
時々なので、再現が困難なため、
会社のシステム・サポートもまともに相手してくれません。
URLﾘﾝｸ(xwin2.typepad.jp)
が多少関係ありそうなのですけれど、よくわからないです。
長い文章を書いて、保存して、閉じるときにも何も言われなくて
次に開けた時にその変更が一切反映されてなくて
とてもがっくり来てしまいます。
残業を減らすためにもどなたかヘルプ！
628:608
13/01/04 23:49:00.92
>>626
ありがとうございます
検索文字列：([!・。i\!])i」
置換後：\1！」
で変換できたんですが
アルファベットも引っかかってしまって
aaai」
なときも
aaa!」
に変わってしまいます
教えてもらったものを参考に
しらべて全角文字
（英数字以外。ひらがな／カタカナ／漢字／記号）の『 、-鶴』を
付け足して
変換前を([、-鶴 !・。i\!])i」にしてみたら
検索文字列に指定したパターン マッチングが正しくありません
というエラーが出てしまいました
どうすればいいんでしょうか？
629:608
13/01/05 03:20:28.59
自己解決です
数字と英数のほうをよける方法にしてみました。
おさわがせすいません
([!\!-~０-ｚ・。i\!])・・i」
630:名無しさん＠そうだ選挙にいこう
13/01/06 15:59:31.84
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
「」のセリフで
改行して無い状態で次の行に行った場合
一文字目を一個空ける設定にして
かつ、紙の行数や文字数がかわっても自動でなおしてくれるように
する方法を教えてくれませんか？
↓こんな感じを
A子
「お正月の宴会続きのせいで（改行無し）
とっても太っちゃったわ、どうし（改行無し）
よう・・・」
↓こんな感じにしたいです
A子
「お正月の宴会続きのせいで（改行無し）
とっても太っちゃったわ、どうし（改行無し）
よう・・・」
631:名無しさん＠そうだ選挙にいこう
13/01/06 16:47:29.57
行頭に開きカッコのある行に、インデントを設定した段落スタイルを適用する、
とうのが置換でもできそうな気がする。
632:630
13/01/06 17:24:02.42
段落スタイルを検索してみて
ワード2010の「ホーム」の「スタイルの変更」の左の「あア亜リスト段落」してみたんですが
A子
「おはよう、きょうはい（改行無し）
い天気ね」
となってしまいました
ページレイアウト→インデント→左１文字
もやってみたんですが
結果は同じでした
なにか手順が違うのでしょうか？
633:名無しさん＠そうだ選挙にいこう
13/01/06 19:05:05.72
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
一行の文章が３文字以内だったら
文頭に☆をつけず
３文字以上だったら文頭に☆をつけるにはどうしたらいいですか？
634:名無しさん＠そうだ選挙にいこう
13/01/06 19:30:48.63
>>630
上のルーラーの操作で多少の修正できるんじゃね？
一行目のインデントをちょこっと左にずらすのとか。
635:名無しさん＠そうだ選挙にいこう
13/01/06 20:06:02.38
>>633
Sub test()
Dim s As Range
For Each s In ActiveDocument.Sentences
If s.Characters.Count >= 4 Then
s.Characters(1) = "☆" & s.Characters(1)
End If
Next
End Sub
636:名無しさん＠そうだ選挙にいこう
13/01/06 20:19:42.77
>>630
> かつ、紙の行数や文字数がかわっても自動でなおしてくれるように
の意味がよくわかりませんが、>>634のいうインデントの設定だけでいいのなら、
Sub test()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.LeftIndent = p.LeftIndent + p.FirstLineIndent + p.Range.Characters(1).Font.Size
p.FirstLineIndent = -p.Range.Characters(1).Font.Size
End If
Next
End Sub
637:名無しさん＠そうだ選挙にいこう
13/01/06 20:46:28.56
>>635
ありがとうございます
助かりました！
638:名無しさん＠そうだ選挙にいこう
13/01/06 21:09:18.12
>>636
ありがとうございます
「紙の行数や文字数がかわっても自動で」
というのはまだどんな紙にどんな風に印刷するのか考えてなくて
どうしようか悩んでいるので
文字のサイズや一行の文字の数を変えたりしても
おかしくなってしまわないようにしたいのです。
639:633
13/01/06 21:43:36.40
>>635
すいません
行中にスペースや。があるとなぜかそこの次に星がついてしまうんですけど
どう治したらいいんでしょうか？
640:名無しさん＠そうだ選挙にいこう
13/01/06 21:48:08.57
>>638
ならば、これでどうかな
Sub test2()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent + p.CharacterUnitFirstLineIndent + 1
p.CharacterUnitFirstLineIndent = -1
End If
Next
End Sub
641:名無しさん＠そうだ選挙にいこう
13/01/06 22:07:30.18
>>639
一行とか文頭の定義がよくわかっていませんが、こういうことでしょうか
Sub test2()
Dim p As Paragraph
Dim s As Range
Dim cnt As Long
For Each p In ActiveDocument.Paragraphs
For Each s In p.Range.Sentences
cnt = cnt + s.Characters.Count
Next
If cnt >= 4 Then
p.Range.Characters(1).InsertBefore "☆"
cnt = 0
End If
Next
End Sub
642:名無しさん＠そうだ選挙にいこう
13/01/06 22:32:06.89
>>640
本当に助かりました！！！！！
ありがとうございます
643:名無しさん＠そうだ選挙にいこう
13/01/07 00:02:53.60
>>639
>>641はうまくいかなかったので、書き直しました。
Sub tset3()
Dim n As Long
Dim i As Long
Selection.MoveStart Unit:=wdStory
n = Selection.Information(wdFirstCharacterLineNumber)
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
For i = 1 To n
If Selection.EndKey(Unit:=wdLine, Extend:=wdMove) >= 4 Then
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.InsertBefore "☆"
End If
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.MoveDown Unit:=wdLine, Extend:=wdMove
Next
End Su
644:名無しさん＠そうだ選挙にいこう
13/01/07 04:12:51.35
>>634
そう、それを新規段落スタイルとして登録して他の行にも適用すれば良いだけ、と思える。
645:名無しさん＠そうだ選挙にいこう
13/01/09 20:47:46.70
Word文書でつくったものをカラー印刷するのに最も安いのはなんですか？
PDFにしてコンビニで印刷してるんだけど
PDFに変換したときだと思うんだけど画質が悪くなって困ります。
細かい地図が多く含まれているので画質が最重要です。
家にプリンターはないしインク代が高すぎるので買うつもりもありません。
646:名無しさん＠そうだ選挙にいこう
13/01/09 23:04:08.20
>>645
高精細であることを第一に求めるのであれば印刷屋へどうぞ
更に安いところというのであれば印刷屋へ何社もまわってみればいいんじゃないかな
どのみちスレチな質問だな
>>1の質問テンプレ使わないから環境も判らないしおおざっぱな解答しかでない
647:名無しさん＠そうだ選挙にいこう
13/01/10 10:30:03.87
★★★チベットの独立は日本の核心的利益である★★★
URLﾘﾝｸ(jbbs.livedoor.jp)
￥￥￥￥￥￥￥『万有サロン』書き込み大賞・総額100万円￥￥￥￥￥￥￥￥￥￥￥￥
この掲示板に優秀な書き込みをして、総額100万円の賞金をゲットしよう！(*^^)v
万有サロン
URLﾘﾝｸ(jbbs.livedoor.jp)
書き込み大賞の詳細
URLﾘﾝｸ(jbbs.livedoor.jp)
書き込み大賞の詳細(資料倉庫内)
URLﾘﾝｸ(www2.tba.t-com.ne.jp)
また、あらゆる疑問に関する質問を、携帯電話やメールでも受け付けています。
電話番号 080-4437-4187
メール aaa-zzz@tba.t-com.ne.jp
￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥
648:名無しさん＠そうだ選挙にいこう
13/01/11 23:04:19.47
あの・・・ワード2010
なんですけどぶら下げインデントの調整を
定規のやじるしの下の部分をいじってやっているんですが
上の行の文字の文字半分ずれてしまって
なぜが上の行の文字と同じ位置づづずれてくれないのですが
どうしたらいいのでしょうか？
649:名無しさん＠そうだ選挙にいこう
13/01/12 10:38:07.19
Altを押しながらやるよろし
650:名無しさん＠そうだ選挙にいこう
13/01/13 14:50:51.15
>>649
ありがとうございます！！！
651:名無しさん＠そうだ選挙にいこう
13/01/18 19:48:15.37
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ダブルクォーテーションの扱いがうまくできません
"を全角”にしたいのですがどうしたらいいのでしょうか？
”はワード内で勝手に”が（オーバーにいうと
６６私９９というような形に変換されるあの文字のほう）でいいのですが
どうしたらいいのでしょうか？？？
以下自分の書いたものです
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = ChrW(8221)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
652:名無しさん＠そうだ選挙にいこう
13/01/19 14:19:26.79
違うかもしれませんが、試してみて。
Sub test()
Dim myRng As Range
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.ClearFormatting
.Text = """"
Do While .Execute
myRng.Text = StrConv(myRng.Text, vbWide)
myRng.Collapse wdCollapseEnd
Loop
End With
End Sub
653:651
13/01/19 16:35:19.82
やってみましたが＂になって”にはならなかったです・・・
654:名無しさん＠そうだ選挙にいこう
13/01/19 17:16:13.71
じゃ、これを最初に追加
ActiveDocument.Range.AutoFormat
655:名無しさん＠そうだ選挙にいこう
13/01/20 01:30:26.00
>>654
なんか・・・それを付け加えたら
ほかの行のインデントがすごく大きくなってしまいます。
656:名無しさん＠そうだ選挙にいこう
13/01/20 08:43:32.70
まるでわからないけど、直観として
.Text = """"
この行があやしいような。なんか足りないか余ってる気がする。
657:名無しさん＠そうだ選挙にいこう
13/01/20 11:32:00.10
Sub test2()
Dim myOpt(1 To 16) As Boolean
With Options
myOpt(1) = .AutoFormatApplyHeadings
myOpt(2) = .AutoFormatApplyLists
myOpt(3) = .AutoFormatApplyBulletedLists
myOpt(4) = .AutoFormatApplyOtherParas
myOpt(5) = .AutoFormatReplaceQuotes
myOpt(6) = .AutoFormatReplaceSymbols
myOpt(7) = .AutoFormatReplaceOrdinals
myOpt(8) = .AutoFormatReplaceFractions
myOpt(9) = .AutoFormatReplacePlainTextEmphasis
658:名無しさん＠そうだ選挙にいこう
13/01/20 11:37:54.92
myOpt(11) = .AutoFormatPreserveStyles
myOpt(12) = .AutoFormatPlainTextWordMail
myOpt(13) = .AutoFormatApplyFirstIndents
myOpt(14) = .AutoFormatMatchParentheses
myOpt(15) = .AutoFormatDeleteAutoSpaces
myOpt(16) = .AutoFormatReplaceFarEastDashes
.AutoFormatApplyHeadings = False
.AutoFormatApplyLists = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyOtherParas = False
659:名無しさん＠そうだ選挙にいこう
13/01/20 11:44:54.02
.AutoFormatReplaceQuotes = True
.AutoFormatReplaceSymbols = False
.AutoFormatReplaceOrdinals = False
.AutoFormatReplaceFractions = False
.AutoFormatReplacePlainTextEmphasis = False
.AutoFormatReplaceHyperlinks = False
.AutoFormatPreserveStyles = False
.AutoFormatPlainTextWordMail = False
.AutoFormatApplyFirstIndents = False
.AutoFormatMatchParentheses = False
.AutoFormatDeleteAutoSpaces = False
660:名無しさん＠そうだ選挙にいこう
13/01/20 11:47:48.09
.AutoFormatReplaceFarEastDashes = False
End With
Dim myRng As Range
ActiveDocument.Range.AutoFormat
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.ClearFormatting
.Text = """"
Do While .Execute
myRng.Text = StrConv(myRng.Text, vbWide)
661:名無しさん＠そうだ選挙にいこう
13/01/20 11:59:33.09
myRng.Collapse wdCollapseEnd
Loop
End With
With Options
.AutoFormatApplyHeadings = myOpt(1)
.AutoFormatApplyLists = myOpt(2)
中略
.AutoFormatDeleteAutoSpaces = myOpt(15)
.AutoFormatReplaceFarEastDashes = myOpt(16)
End With
End Sub
662:名無しさん＠そうだ選挙にいこう
13/01/20 12:23:13.51
>>657
一行抜けてしまった
myOpt(10) = .AutoFormatReplaceHyperlinks
663:名無しさん＠そうだ選挙にいこう
13/01/20 22:48:13.79
ありがとうございます
"が”に変換できるようになりましたが
変換後勝手に”が６６文字９９になると思いきや
６６の形になりませんでした
これはいったい何をどうしたらなるんでしょう？？？
664:名無しさん＠そうだ選挙にいこう
13/01/20 23:32:47.71
すっごいくだらない質問で申し訳ないんですが
文章のレイアウトをどうすればいいか教えてもらえませんか？
（もし専用のスレがあるなら誘導してもらってもかまわないです）
内容は主人公の一人称の文章なんですが
セリフにはすべて登場人物の名前が台本のようについています
縦書きにしたいのですが
普通の台本形式だと主人公の一人称の部分がすごくよみづらくて
困ってしまいます
（↓通常の台本だと場面の説明になっています）
URLﾘﾝｸ(script.novelgakuen.com)
どういうレイアウトがいいんでしょうか？
実際に演劇をしたりするわけではなく読んで楽しむためのレイアウトにしたいのです
↓こんな感じです
私はPCを起動しワードを立ち上げた
主人公「昨日の続きからね、頑張ろう」
データを次々に入力してだんだん調子が出てきたその時・・・
弟「姉さん～、ちょっときてよー！」
主人公（もう、せっかくいい感じになってたのに・・・）
一体なんなのかしら・・・私は弟の部屋へ向かうことにした
665:名無しさん＠そうだ選挙にいこう
13/01/21 04:52:47.49
好きにすれば？
666:名無しさん＠そうだ選挙にいこう
13/01/21 05:13:31.33
>>663
使ってるWordにマクロ機能がない（2008 for Mac）のでわからないけど
" があって、
" 以外のものが幾つかあって " があったら、
１つめを “ に２つめを ” にする、
というのを
ワイルドカードを使って一括置換するんじゃ駄目なの？
667:名無しさん＠そうだ選挙にいこう
13/01/21 12:03:44.38
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
今日は。
文書A、文書B、文書C
という三つの文書があります。
文書Aで短文をつくり
文書Bと文書Cの脚注に
コピペをしています。
そのさい、
文書Bは、脚注番号のフォントも、コピペされた短文のフォントも、
文書Aのそれとと同じですが、
文書Cでは、変わってしまいます。
理由がわかりません。
現状では、変わってしまった部分を、
いちいち修正しなくてはなりません。
文書Cでも文書Aのそれと同じようにしたいのですが、
どうすればいいでしょうか？
宜しくお願いします。
668:名無しさん＠そうだ選挙にいこう
13/01/21 12:41:26.59
test2を実行したあと、test3を実行。
Sub test3()
Dim flg As Boolean
Dim myRng As Range
Options.AutoFormatAsYouTypeReplaceQuotes = False
With ActiveDocument.Range(0, 0).Find
.ClearFormatting
.Text = ChrW(&H201C)
.Replacement.ClearFormatting
.Replacement.Text = ChrW(&H201D)
.Execute Replace:=wdReplaceAll
End With
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
669:名無しさん＠そうだ選挙にいこう
13/01/21 12:43:27.37
.Text = ChrW(&H201D)
.Replacement.Text = ChrW(&H201C)
Do While .Execute
flg = Not flg
myRng.Select
If flg Then
myRng.Collapse wdCollapseStart
.Execute Replace:=wdReplaceOne
End If
myRng.Collapse wdCollapseEnd
Loop
End With
Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub
670:名無しさん＠そうだ選挙にいこう
13/01/21 12:44:51.78
マクロでもなんでもいいのですが
いまある文書のフォントをすべて1ランク下げるにはどうすればいいですか？
例えば
フォント30 → フォント27
フォント12 → フォント10
フォント10.5 → フォント9
フォント8 → フォント7
のように一律に変更したいのです。
フォント(=本当)に困っています(笑)。
671:名無しさん＠そうだ選挙にいこう
13/01/21 13:32:59.53
>>666
そうか、これだけでよいのか
Sub test4()
Dim flg As Boolean
Dim myRng As Range
Options.AutoFormatAsYouTypeReplaceQuotes = False
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = """"
Do While .Execute
flg = Not flg
myRng.Select
myRng.Collapse wdCollapseStart
If flg Then
.Replacement.Text = ChrW(&H201C)
672:名無しさん＠そうだ選挙にいこう
13/01/21 13:35:14.28
Else
.Replacement.Text = ChrW(&H201D)
End If
.Execute Replace:=wdReplaceOne
myRng.Text = StrConv(myRng.Text, vbWide)
myRng.Collapse wdCollapseEnd
Loop
End With
Options.AutoFormatAsYouTypeReplaceQuotes = True
End sub
673:名無しさん＠そうだ選挙にいこう
13/01/21 13:56:44.84
670さん
activedocument.range.font.shrink
674:670
13/01/21 14:38:46.57
>>673
すばらしい。
まさかフォントにできるとは思いませんでした。
フォントにありがとうございました。
675:名無しさん＠そうだ選挙にいこう
13/01/21 14:44:18.41
しかしこのshrinkって、どういう規則で縮むのだろうか。
試しにやったらこうなった。左のフォント数から右のフォント数に変わる。75％の整数化(INT関数)でもなさそうだし。
10---9
36---28
12---11
7---6
24---22
10.5---10
64---48
676:名無しさん＠そうだ選挙にいこう
13/01/21 14:57:32.03
マクロでもなんでもいいのですが
いまある文書の「画像の大きさ」をすべて1ランク下げるにはどうすればいいですか？
フォント(=本当)に困っています(笑)。
677:名無しさん＠そうだ選挙にいこう
13/01/21 18:01:18.25
WordのVBAのしくみってどうなってますか？
Excelのような標準モジュールがないですし。
Excelの個人用マクロブックとかも存在して同じように使える仕様になってますか？
678:名無しさん＠そうだ選挙にいこう
13/01/21 18:16:22.14
>>677
URLﾘﾝｸ(www.hi-ho.ne.jp)
標準モジュールありますよ
679:名無しさん＠そうだ選挙にいこう
13/01/21 19:52:13.41
>>676
「1ランク」の意味が曖昧ですね
680:名無しさん＠そうだ選挙にいこう
13/01/21 21:28:01.86
>>679
normal⇒small って意味でしょ
681:667
13/01/21 22:44:19.60
ご存知の方がいないようなので、
他のスレで質問してみます。
有難うございました。
682:名無しさん＠そうだ選挙にいこう
13/01/22 03:53:50.54
>>681
せっかちだなあ。「スタイル」とか「形式を指定してペースト」とか、見てみた？
683:名無しさん＠そうだ選挙にいこう
13/01/22 16:11:13.16
>>671
いろいろすいません
.Replacement.Text = ChrW(&H201C)
の＆のところでコンパイルエラーが起きます。
＆を削除してみると
次は；の部分でコンパイルエラーが起きます
684:名無しさん＠そうだ選挙にいこう
13/01/22 19:32:10.53
テスト
&H201C
amp;
685:名無しさん＠そうだ選挙にいこう
13/01/22 19:38:36.25
>>683
&H201C
と
&H201D
から
amp;を削除して
686:名無しさん＠そうだ選挙にいこう
13/01/22 21:56:26.31
>>685
ありがとうございます！
できるようになりました！！！！！
すごいです！！！
すごく助かりました！！！！
687:名無しさん＠そうだ選挙にいこう
13/01/23 01:49:31.26
初めまして。
今まで Word2003 を使って最近 Word2010 にしました。よろしくお願いします。
A5サイズ2ページをA4袋とじで印刷するとうまくA4ページ収まりますが
PDFで出力するとA5 2ページになってしまいます。
A4サイズで袋とじの PDF出力はできないのでしょうか？
688:名無しさん＠そうだ選挙にいこう
13/01/23 15:47:54.99
【1 OSの種類 .】 Windows 7
【2 Wordのバージョン 】 Word 2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
報告書を作成の際に、参考資料としてそれまでに資料で配布したペーパーを図で貼り込む必要があり悩んでいます
ペーパーはA3ほどの大きな両面１枚モノで、これの片面分を全選択して「図で貼り付け」を選ぶと切れた図になってしまいます
確か昔にも似たような事で調べた際に、A4寸を超えるデータは切れてしまう仕様だったような記憶があります
画面に縮小表示でキャプチャ…では読めない荒さですし、なんとか拡張メタで貼り込む方法はないでしょうか
689:名無しさん＠そうだ選挙にいこう
13/01/23 21:05:02.77
>>687
WordのPDF変換機能じゃなくて、PDF reDirectとかPrimoPDFで印刷すればできるようですが、それじゃ駄目かな。
690:名無しさん＠そうだ選挙にいこう
13/01/23 21:08:32.46
>>688
こちらでは、切れた図にならないんだけど、何か違うのかな？？
691:名無しさん＠そうだ選挙にいこう
13/01/26 10:07:08.13
【1 OSの種類 .】 WindowsXP SP3
【2 Wordのバージョン 】 Word2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
次のページにある、上のほうのテンプレートです。
URLﾘﾝｸ(www.template.usefulful.net)
金額の行に引かれている二重線を一重の線に変更したいので、
やり方を教えてください。
ヘルプやネットで「罫線」で検索してやってみましたが、ダメでした。
692:名無しさん＠そうだ選挙にいこう
13/01/26 10:43:23.78
テキストボックスを選択し、グループ化を解除すれば、編集できる
693:名無しさん＠そうだ選挙にいこう
13/01/26 11:02:18.04
WordのVBAを
Excelの個人ファイルみたいなところに保存して
どのWordファイルに対しても実行できるようにしておきたいんですが
Normalに書いたコードが保存できません。
どうすればいいですか？
694:名無しさん＠そうだ選挙にいこう
13/01/26 11:20:55.23
>>693
URLﾘﾝｸ(www.hi-ho.ne.jp)
695:691
13/01/26 11:52:59.80
>>692
できました。
二重線は罫線ではなく、オートシェイプでした。
グループ化というのは、編集ロックとしても機能するんですね。
素早いレス、ありがとうございました。
696:693
13/01/26 14:52:32.95
わたしもできましたわ
>>694ありがとう
ところでこのWordのコードにショートカットを割り当てるにはどうしましょ？
Excelと違ってできないのですかな？
697:名無しさん＠そうだ選挙にいこう
13/01/26 15:28:29.88
2010の場合
オプションーリボンのユーザー設定
698:名無しさん＠そうだ選挙にいこう
13/01/27 00:58:10.53
Microsoft 数式3.0を用いて定積分の式を入力しようと思っていますができません
∫の上と下に来る範囲を表すところで文字飾りの下付きを使うことができません
どうやったらできますか？
699:名無しさん＠そうだ選挙にいこう
13/01/27 01:20:28.50
解決しました
700:名無しさん＠そうだ選挙にいこう
13/01/27 02:28:46.27
まあそうだろうな
701:名無しさん＠そうだ選挙にいこう
13/01/27 16:42:59.93
製品 '{}'、機能 'ProductFiles'、コンポーネント '{}' の検出に失敗しました。
リソース 'C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL'
がありません。
702:名無しさん＠そうだ選挙にいこう
13/01/28 20:32:57.78
「言ってダメなら叩け」は指導力忍耐力創意工夫コミュ能力の低い教育素人の自己正当化。体罰虐待虐めDVテロは脳委縮による「自己肯定感共感力問題解決力に乏しい粗暴な人格」を作る。即ち世界中の体罰容認者軍拡主義者もまた素人教育の犠牲者／感情自己責任論
703:名無しさん＠そうだ選挙にいこう
13/01/28 21:17:00.74
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
「」と（）内の文章をぶら下げインデントして
インデントレベルを同じにそろえたい行がすごくたくさん散らばってるのですが
どうすればいいんでしょうか？
↓こんな感じにしたいです
「おはよう（インデントなし）
いい天気ね（ぶら下げインデント１文字）
さわやかだわ」（ぶら下げインデント１文字）
以前教えてもらったものでは「」内に改行があるとインデントされないし
同じマクロを繰り返し使うとどんどんインデントが増えていってしまいます
704:703
13/01/28 21:17:50.14
以前教えてもらったものはこれです
Sub インデント()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent + p.CharacterUnitFirstLineIndent
p.CharacterUnitFirstLineIndent = -1
End If
Next
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "（" Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent + p.CharacterUnitFirstLineIndent
p.CharacterUnitFirstLineIndent = -1
End If
Next
End Sub
705:名無しさん＠そうだ選挙にいこう
13/01/29 05:08:39.18
会話文の中の改行をreturnでなくshift+returnで入力する。
え？ すでにテキストが出来上がってる？
なら、会話文スタイル中の中間の段落（行末が」でない）は任意の行区切りにする。
どう書くか？ 知らない、ごめん。
706:名無しさん＠そうだ選挙にいこう
13/01/29 05:21:46.69
>>704を見ても判らんのだが、ひょっとして>>705と同じことが書いてあるの？
そうじゃなかったら、行頭に「を見つけたら、行末に」の行があるまでの行に
会話文のスタイルを付ける。その後で>>705にする。と二段構えにするのはどうかな。
707:名無しさん＠そうだ選挙にいこう
13/01/29 18:56:53.37
アドバイスありがとうございます
とにかくまずはスタイルを設定してみたのですが
新規のファイルとスタイルを設定したファイルには作った新しいスタイルが
画面の上のほうのスタイルの上の「標準」とか「行間詰め」のあたりにでてくるのに
今までたくさん作ったファイルを開くと
作ったスタイルが出てきません
どうやったら出てくるようになりますか？
708:名無しさん＠そうだ選挙にいこう
13/01/29 18:57:33.28
>>707=>>703です
すいません
709:707
13/01/29 20:12:01.35
>>707
すいません、インポート/エクスポートでできました
710:707
13/01/29 21:13:22.17
すいません
ググってなんとかコピペからからの
インデント「と（の行はインデントはできたんですが
やっぱり）と」までの間がうまく設定できないです・・・OTL
Sub Macro1()
Dim myText As String
Dim i As Integer
For i = 1 To ActiveDocument.Characters.Count
myText = Selection.Text
Select Case myText
Case Is = "（"
Selection.Style = ActiveDocument.Styles("セリフ")
Case Is = "「"
Selection.Style = ActiveDocument.Styles("セリフ")
End Select
Selection.MoveRight
Next i
End Sub
結局”「”から”」”までのあいだだけ
インデントを設定させるにはどうすればいいですか？
711:707
13/01/30 03:12:00.01
改行を適当な記号にしといて
で｢のある行にぶら下がりインデントを設定して
また記号を改行にするというような感じにすれば
行けそうなきがしてきました
お騒がせしてすいませんでした
712:名無しさん＠そうだ選挙にいこう
13/01/30 04:23:11.46
頑張る人って好きだよ。
713:名無しさん＠そうだ選挙にいこう
13/01/30 08:54:32.44
Sub test()
Dim myRng As Range
Dim myS As Long, myE As Long
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = "縲
Do While .Execute
myS = myRng.Start
myRng.Collapse wdCollapseEnd
myE = getEnd(myS)
CR_henkan myS, myE
Loop
End With
setIndent
End Sub
714:名無しさん＠そうだ選挙にいこう
13/01/30 09:03:13.18
Private Function getEnd(startPos As Long) As Long
With ActiveDocument.Range(startPos).Find
.Text = "縲
If .Execute Then getEnd = .Parent.End
End With
End Function
715:名無しさん＠そうだ選挙にいこう
13/01/30 10:13:35.19
Private Sub CR_henkan(startPos As Long, endPos As Long)
With ActiveDocument.Range(startPos, endPos).Find
.Text = Chr(13)
.Replacement.Text = Chr(11)
.Execute Replace:=wdReplaceAll
End With
End Sub
716:名無しさん＠そうだ選挙にいこう
13/01/30 10:16:32.32
Private Sub setIndent()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "縲 Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent +
p.CharacterUnitFirstLineIndent = -1
End If
Next
End Sub
717:名無しさん＠そうだ選挙にいこう
13/01/30 12:13:50.23
ありゃ、また文字化けしてる。ごめん。
testとsetIndentのは"「"、鍵カッコ（始）
getEndのは、"」"、鍵カッコ（終）のつもりです。
718:名無しさん＠そうだ選挙にいこう
13/01/30 12:51:07.48
エンコーディングの問題？ 後ろの引用符を巻き込んで化けてる？
719:名無しさん＠そうだ選挙にいこう
13/01/30 18:28:02.61
>>716修正
Private Sub setIndent()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent +
p.CharacterUnitFirstLineIndent + 1
p.CharacterUnitFirstLineIndent = -1
End If
Next
End Sub
720:名無しさん＠そうだ選挙にいこう
13/01/30 18:41:31.33
>>719
スタイルを使ったことないのでうまくいくかわからない。
これでもよさそうだけど自信なし。
Private Sub setIndent()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.Style = ActiveDocument.Styles("セリフ")
End If
Next
End Sub
721:707
13/01/31 01:14:44.20
どうもいろいろありがとうございます
>>719
これだと
一回実行すると
「あいうえお（改行）
かきくけこ（改行）
（二文字ぶんのぶら下げインデント）さしすせそ」
になり
２回目実行すると
（一文字）「あいうえお（改行）
（二文字）かきくけこ（改行）
（二文字）さしすせそ」
になってしまいます
>>720
うまくいきました
ありがとうございます！！！！
722:707
13/01/31 01:41:08.35
ひょっとして
>>710
の場合ｃａｓｅ Is のあとの文字が文字列の場合はうまく動かないんでしょうか？？
任意の文字列の場合のインデントだけインデント設定なしに変更しようとしたら
うまく動かなくなったのですが・・・？？？
723:名無しさん＠そうだ選挙にいこう
13/02/02 23:12:18.12
【1 OSの種類 .】 Windows XP
【2 Wordのバージョン 】 Word 2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
Enterを押すと、普通は次の行にカーソルが行くはずですが、
あるファイルではカーソルが次の行に行かずに少し右に行き
文字を入力すると、次の次の行に文字が入力されます。
これは何の書式が入っているのでしょうか？
724:名無しさん＠そうだ選挙にいこう
13/02/04 10:41:01.59
>>723
書式ではなく設定
エンターを押したら次のマスに進む設定がなされている
725:名無しさん＠そうだ選挙にいこう
13/02/04 22:00:20.79
>>724
どの設定ですか？ 変えたつもりはないんですが、コピーペーストをよくするので
その影響でしょうか？
726:名無しさん＠そうだ選挙にいこう
13/02/05 03:36:14.26
「次の次の行」というのは、間に空白行が入るのですか、１行空きに見えるだけですか。
727:名無しさん＠そうだ選挙にいこう
13/02/08 14:41:24.89
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
ワードの文章内に張り付けている画像の
レイアウトの書式設定を全部同じに設定したいのですが
どうしたらて画像だけ全部選択できるのでしょうか？
一枚二枚ならクリックしてまとめて設定できるんですが
文章が長いのでどうやって画像だけ選択したらいいのか分からないです
728:727
13/02/08 15:20:24.23
すいません
調べてみたところ
ホーム→選択→オブジェクトの選択
でまとめてできるかと思ったんですけど
選択範囲の点線も出てこなくて
どうしたらできるようになるんでしょうか？
729:名無しさん＠そうだ選挙にいこう
13/02/08 15:46:36.81
すいません、自己解決しました
word2010だと図の「オブジェクトの選択」は
描画キャンバスに図をのせとかないと
選択範囲で選択できないという超仕様となっていたようです・・・
ぜんぶ手動でやり直してきますOTL
730:名無しさん＠そうだ選挙にいこう
13/02/08 20:14:53.10
>>729
だめもとでどうぞお試し下さい
Sub test()
ActiveDocument.Shapes.SelectAll
End Sub
731:名無しさん＠そうだ選挙にいこう
13/02/08 22:28:25.06
URLﾘﾝｸ(www.amazon.co.jp)
Microsoft
Office
2010
並行輸入品（＝正規品≠海賊版）
インストールはレビュー 参照
732:名無しさん＠そうだ選挙にいこう
13/02/09 00:42:47.61
>>730
ふおおおおおぉぉぉぉぉおおお
すごい！！！
描画キャンバスに乗ってないものでも
すべて選択できました！
ありがとうございます！！！！！！！
733:名無しさん＠そうだ選挙にいこう
13/02/10 00:02:29.12
すいません
文章と文章の間を模様になっている線みたいなので
飾りたいのですが
テンプレートを探す時みたいに
どこかで無料でダウンロードできたりするんでしょうか？
最初からインストールされてる飾り枠の使い方は
検索で出てくるんですが
そういうのが見つからないのです
734:名無しさん＠そうだ選挙にいこう
13/02/10 18:06:26.77
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
質問です
！？マークはどうやったら出せるのでしょうか？
MS明朝で！？マークがシフトＪＩＳ×0213（一面）の
1-8-77にあったんですが幅が小さいのか
全角文字に合いません
しかも縦書きなのになぜかそれだけ！？マークだけ左詰めになって
フォントを大きくしても行間が大きくなってしまいます
どうすればいいですか？
735:名無しさん＠そうだ選挙にいこう
13/02/10 18:13:53.39
うわああすいません
自己解決です
ホームのAの文字の上に矢印が付いているところに
縦中横っていうのがあって
それやってみたら
好きな文字列を縦ガキ中に横にできました
ごめんなさい・・・
736:名無しさん＠そうだ選挙にいこう
13/02/12 17:14:47.66
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
リンク貼り付け(元の書式を保持)をするんだが
ファイルの場所がだーっと貼り付けられて
うまく出来ない…
普通の貼り付けなら出来るんだがorz
どうしたらいいか分かる方教えてくれorz
737:名無しさん＠そうだ選挙にいこう
13/02/13 01:01:50.05
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
図の位置を調整しようとして
図を移動させるんですが
図同士が近づいたりすると
せっかく位置を直したほかの図がどっかに飛んで行ってしまいます
どうしたらj固定できるんでしょうか？
738:名無しさん＠そうだ選挙にいこう
13/02/13 18:57:04.86
>>737
文字列の折り返し？
739:737
13/02/14 00:57:56.97
>>738
文字列の折り返しは「四角」に設定しています。
何かこの図が勝手に移動してしまうのと関係があるのでしょうか？？？
740:名無しさん＠そうだ選挙にいこう
13/02/14 19:54:24.56
例えば、以下のような文字列
aaaa 2012-08-01 02:51:36
aaaa 2012-08-02 21:58:10
を一括して削除するにはどうすればいいですか？
aaaa 2012-08
までは固定された文字列なのですが、その後の日付と時間はばらばらです。
741:名無しさん＠そうだ選挙にいこう
13/02/15 19:22:43.41
>>740
ワイルドカードを使って置換すればいいんじゃないかな
置換前文字列
aaaa 2012-08-?? ??:??:??
↓解説ページ
URLﾘﾝｸ(office-qa.com)
742:名無しさん＠そうだ選挙にいこう
13/02/15 22:58:12.26
>>741
ありがとう！
自分で調べていてもワイルドカードに辿り着いたんですけど、うまくできなくて。
>aaaa 2012-08-?? ??:??:??
でも、これでうまくできました！
あと、「ワイルドカードを使用」にチェック入れなきゃならなかったんですね。
743:名無しさん＠そうだ選挙にいこう
13/02/16 16:39:28.43
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
隠し文字について質問です。
隠し文字を設定してある部分を印刷すると隠し文字がある部分が詰めて印刷されます。
隠し文字が設定してある文字数分の空間が空いた状態で印刷したいのですが、何か方法あるでしょうか？
例）「東京」が隠し文字
日本の首都は、（東京）である。
印刷すると
日本の首都は、（）である。
になってしまうが、
日本の首都は、（ ）である。
としたい。
744:名無しさん＠そうだ選挙にいこう
13/02/16 18:44:26.72
>>743
隠し文字の部分を紙色（白）にする。文字スタイルを付けておくとなお良し。
人呼んで「闇夜の烏作戦」
745:名無しさん＠そうだ選挙にいこう
13/02/17 09:02:08.01
>>744をマクロで
Sub test()
Options.PrintHiddenText = True
With ActiveDocument.Content.Find
.Font.Hidden = True
.Replacement.Font.Color = wdColorWhite
.Execute Replace:=wdReplaceAll
ActiveDocument.PrintOut
.Replacement.Font.Color = wdColorAutomatic
.Execute Replace:=wdReplaceAll
End With
Options.PrintHiddenText = False
End Sub
746:名無しさん＠そうだ選挙にいこう
13/02/17 21:11:18.92
初めまして
今回新たにPCを購入しました
今使っているのはワード・エクセルは2003です
今回購入したPCにはワード・エクセルは2010です
2003で作った文章やデータは2010に入れられますか？
また、文章類はフラッシュメモリーかSDカードに入れて移植を考えてます
申し訳ありませんがお願いします
747:名無しさん＠そうだ選挙にいこう
13/02/17 21:59:24.51
>>746
出来ますよ
748:名無しさん＠そうだ選挙にいこう
13/02/18 13:07:09.37
>>744
>>745
ありがとうございます。
参考になりました。
749:名無しさん＠そうだ選挙にいこう
13/02/18 14:27:34.38
【1 OSの種類 .】 Windows７
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
行頭の禁則文字に！や？を設定しているのですが
！と？を縦中横に設定したら
！？が行頭に来てしまいます。
これはどうやったら回避できますか？
750:749
13/02/20 23:23:42.50
とりあえず
行頭に!?が来てしまう場合は
！？ではなくて縦中横をやめてほかの行頭禁則文字にしておいて
その文字を白色にしてその上に
！？が書いてあるテキストボックスを乗っけることにしました。
どうもお騒がせしました
751:名無しさん＠そうだ選挙にいこう
13/02/21 09:50:12.26
2003バージョンをつかっております。
どうして箇条書きモードにすると、
勝手にページの真ん中（横方向の意味で真ん中）に
近いところにカーソルが飛んでしまうのでしょうか？
いちいち左端までもどしてから入力するのが
手間に感じるのですが、
初期設定で帰ることができるのでしょうか？
752:名無しさん＠そうだ選挙にいこう
13/02/25 21:30:20.71
Word2007をネットで買いたいのですが、
黄色いパッケージとシルバーのがありますが、違いはなんなのでしょうか？
753:名無しさん＠そうだ選挙にいこう
13/02/25 21:45:54.99
>>752
おおまかな話、
黄色・・・製品版
シルバー・・・DSP/OEM版
でしょう。
754:名無しさん＠そうだ選挙にいこう
13/02/26 12:15:47.77
いまだにWord2002を使ってるわ
755:名無しさん＠そうだ選挙にいこう
13/02/26 13:59:40.31
新機能を見て欲しいと思わなければ、いいんじゃない？
756:７５２
13/02/26 21:15:26.54
>>753 ありがとうございます。
その２つは具体的にどのような違いがあるのでしょう？
同じなら安く買えるほうにしようと思います。
あまりパソコンに詳しくないので、よろしくお願いします。
757:名無しさん＠そうだ選挙にいこう
13/02/27 05:50:00.28
>>756
パソコンに詳しくなくても、「DSP/OEM版」を検索することくらいできるだろ？
758:名無しさん＠そうだ選挙にいこう
13/02/27 11:26:34.93
製品版 DSP/OEM版 違い
で検索したらいっぱい出てきた
グーグル先生がすごいんじゃない、記事を書いた人が偉いんだ
759:名無しさん＠そうだ選挙にいこう
13/03/02 15:47:55.59
>>731
え…むちゃくちゃ安いよねこれ…
760:名無しさん＠そうだ選挙にいこう
13/03/03 03:11:07.00
オーストラリアではAdobe製品をアメリカまで買いに行くそうだ。
飛行機代を払ってもおつりがくるとか。
761:名無しさん＠そうだ選挙にいこう
13/03/04 10:37:58.45
>>759
レビュー見ると分かるけど、なんともビミョーｗ
762:名無しさん＠そうだ選挙にいこう
13/03/04 12:09:35.70
ていうかこんな面倒なことをするくらいなら
正規品を買う
763:名無しさん＠そうだ選挙にいこう
13/03/05 13:59:01.53
すみません、初めてワードで文書作った者です
文字が半角ずれまくってみっともなくなってしまいました
検索したのですが直し方はどこにものってません
というかよくわからないのです
もう一度やり直すのではなく、今作った文書を修正したいのですが
良い方法はありますか？
764:名無しさん＠そうだ選挙にいこう
13/03/05 14:13:10.24
ちなみに英語文書です
765:名無しさん＠そうだ選挙にいこう
13/03/05 14:23:18.72
まず服を脱ぎます
766:名無しさん＠そうだ選挙にいこう
13/03/05 15:27:23.43
>>763
半角左にずらせばいいんじゃない？
767:名無しさん＠そうだ選挙にいこう
13/03/05 17:24:26.67
>>763
英語も日本語も関係ないし、もう一度入力し直すなんてことにはならないから頑張れ。
とりあえず、
ずれるのは改行した次の行が下がってしまうということ？
そうだとして、
リターンキーを押して改行したときと、成り行きで改行になってしまったときに違いはある？
768:名無しさん＠そうだ選挙にいこう
13/03/05 23:21:17.33
>>763
元の文書を開き Ctrl＋A
コピー Ctrl＋C
新しい文書を開く Ctrl＋N
形式を選択して貼り付け Alt＋E →S
テキストを選択し
769:名無しさん＠そうだ選挙にいこう
13/03/05 23:27:43.07
>>763
または、文書を全選択 Ctrl＋A
上のリボンのホームを選択
段落と書いてある左斜め上あたりにあるアイコンをクリックする
↓
≡
段落
ってのはどう？
770:名無しさん＠そうだ選挙にいこう
13/03/05 23:31:59.91
あ、あと
同様に全選択し、上にある定規の細っちい体温計のメーターみたいな
やつのどこかに超ミニな砂時計っぽいやつがあるからそれをドラッグして意味わかるまで
イロイロやてみるとか
771:名無しさん＠そうだ選挙にいこう
13/03/06 04:44:34.74
行頭だと思い込んでインデント関係を問題にしているんだけど、
他に初めての人に「ずれる」と見えることはないかなあ。
「文書」であって「文章」ではないから、タブ揃えも考えに入れた方がいいのか。
いや、たぶん文章なんだろうなあ。
772:名無しさん＠そうだ選挙にいこう
13/03/06 17:57:04.56
>>767～>>771
いろいろ考えてくれてありがとう
とりあえず罫線引いて表みたいなの作ってその中に入れることでズレを解消しました
ただいつも表作るわけにもいかないので、教わったやり方試してみます
ちなみに英文の証明書のテンプレみたいのをワードにコピーして、ところどころ修正した文書です
行によって半角ずれたりずれなかったりで、シフトスペースでも直りませんでした
773:名無しさん＠そうだ選挙にいこう
13/03/06 18:01:05.77
あと、改行もやっぱり変な感じです
行によっては左半分が存在しない行とかがあります
削除してると行の真ん中らあたりで改行してしまいます
774:名無しさん＠そうだ選挙にいこう
13/03/06 18:03:34.34
ちなみに左揃えはちゃんとできています
その後ろに続く文字がずれるかんじです
775:名無しさん＠そうだ選挙にいこう
13/03/07 00:36:09.34
ワードラップか・・
>>774 参照よろ
URLﾘﾝｸ(okwave.jp)
776:名無しさん＠そうだ選挙にいこう
13/03/07 06:35:14.01
>>763っていやらしくね？
777:名無しさん＠そうだ選挙にいこう
13/03/11 20:51:22.86
ア りんごはおいしい。
イ オレンジもおいしい、
けどぶどうはおいしくない。
↑この項目のアやイ１文字だけを前に出す方法がわかりません。
インデントを触ると段落ごと動くのでアやイ一文字だけを限定して動かせません。
どなたかどうか教えてください。
778:名無しさん＠そうだ選挙にいこう
13/03/11 20:55:45.31
段落番号であっさり解決しました。
ありがとうございました。
779:名無しさん＠そうだ選挙にいこう
13/03/12 05:09:25.42
お疲れｻﾏﾝｻ
780:名無しさん＠そうだ選挙にいこう
13/03/16 05:52:06.60
100ページある文書で、30ページ目から40ページ目までをきれいさっぱり削除するにはどうすれば効率いいですか？
781:名無しさん＠そうだ選挙にいこう
13/03/16 06:55:55.64
［プリント］でいけるかと思ったけどPDFにしか書き出せないんだね。却下。
［ズーム］で10％くらいの表示にして削除するかなあ。
ページを間違えるといけないから、事前に30ページと40ページにでっかく×でも描いておくとか。
いま思い付いただけだから、すぐにやらないで詳しい人が来るのを待ってね。
782:名無しさん＠そうだ選挙にいこう
13/03/17 04:22:46.99
茂木健一郎 @kenichiromogi
Word for Macって、本当にクズみたいなソフトだなあ。
「変更履歴の反映」というボタンが確かあったはずだと探してもない。
１０分くらい検索して、「校閲」の一部分にそのボタンが隠れているのをようやく見つけた。
なんでこんなインターフェイスにするかね
ユーザーインターフェイスに関しては、MicrosoftのDNAは最悪だとしかいいようがない。
使っている時間に比例していらいらするし、余計なこといろいろやりやがって。
Windows 8だろうがなんだろうが、興味ないよ。track recordが悪すぎるんだよ、君たち
もうさ、一切ソフトつくらなくていいよ。ひどすぎ。
783:名無しさん＠そうだ選挙にいこう
13/03/19 12:32:07.68
リボンになって判りづらくなったというのは、確かによく耳にする
784:名無しさん＠そうだ選挙にいこう
13/03/19 12:38:27.42
やっとリボンに慣れたのに
また近年に新しいシステムに移行するんだろうな。
糞だよ。
785:名無しさん＠そうだ選挙にいこう
13/03/19 13:40:10.62
Word2002なんだけど
今Office同梱のWindows8を買うと、どのバージョンになるの？
786:名無しさん＠そうだ選挙にいこう
13/03/19 13:45:07.44
>>785
糞バージョンになります。
787:名無しさん＠そうだ選挙にいこう
13/03/19 18:22:42.93
ﾜﾛﾀw
788:名無しさん＠そうだ選挙にいこう
13/03/20 22:54:12.32
質問しにきたらもうすでに同じ質問してる方が。
自分も>>323さんと同じことを聞きたいです。
まだどなたも回答されてないようなので。
よろしくお願いします
789:名無しさん＠そうだ選挙にいこう
13/03/21 03:44:18.95
よくわからんけど、版面（ミリ）と行送り（ポイント）の数字の計算に誤差が出てるのかもしれん。
790:名無しさん＠そうだ選挙にいこう
13/03/21 14:09:10.96
【1 OSの種類 .】 Windows 7 Tnterprise
【2 Wordのバージョン 】 Word 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
相互参照「段落番号（内容含む）」を挿入した際に、アウトラインレベル1の部分が必ず1になってしまいます。
アウトラインレベル1のスタイル設定が誤っているのでは？と思っていますが、直し方が分かりません。
ココを直せば良いよ！みたいなアドバイスがあれば、ご教授頂きたく。
＜スクリーンショット＞
URLﾘﾝｸ(iup.2ch-library.com)
＜アウトラインレベル１で設定している、スタイル情報＞
フォント : (英) ＭＳ Ｐゴシック, 12 pt, 太字, (なし), インデント :
左 : 0 mm
ぶら下げインデント : 3.97 字, 左揃え, 間隔
段落後 : 0.5 行, 次の段落と分離しない, レベル 1
タブ位置: 1.99 字, リスト タブ, アウトライン番号 + レベル : 1 + 番号のスタイル : 1, 2, 3, … + 開始 : 1 + 配置 : 左 + 整列 : 0 mm + タブ : 7 mm + インデント : 7 mm, スタイル: リンク, クイック スタイル
基準: 標準
次のスタイル: 本文（共通）
791:名無しさん＠そうだ選挙にいこう
13/03/21 19:31:10.55
ネットでwordが使えないｗｗとか言う奴らいるけどさ。季語とか結語が簡単にでてくるし
郵便番号打つだけで住所出てくる
ビジネス面じゃめちゃくちゃ使えるだろ
Excelで縦書きなんて面倒臭くてかなわねーよ
792:名無しさん＠そうだ選挙にいこう
13/03/21 23:04:41.01
>>791
＞Excelで縦書きなんて面倒臭くてかなわねーよ
いや、面倒くさい以前に「しんでください」。表計算ソフトだぜ。
793:名無しさん＠そうだ選挙にいこう
13/03/22 10:03:19.51
>>791
word糞とか言ってる奴にじゃぁ何が馴染むワードプロセッサか聞いてみれば分かるよｗ
794: 忍法帖【Lv=4,xxxP】(1+0：8)
13/03/23 16:46:14.48
Word2013のダウンロード版をかったんだが、ダウンロード出来ません
サポートに電話待たされること１時間なんだが、ココのサポートってこんなひどいのけ？
俺が休みなのでいくらでも待つんだがｗｗｗ
795:名無しさん＠そうだ選挙にいこう
13/03/24 10:11:14.69
一生待ってろ
796:名無しさん＠そうだ選挙にいこう
13/03/26 04:00:19.87
【1 OSの種類 .】 Windows 7
【2 Wordのバージョン 】 Word 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
いわるゆ組織図を作りたいのですが、枠の数が多すぎて上手くまとめることが出来ません。
↓の画像の様に同じ階層で段をずらして設置できれば嬉しいです。
URLﾘﾝｸ(i.imgur.com)
2の階層は16個、そのうちの一つから更に階層が下がって3段目の階層に8個の枠を作りたいです。
どの様に操作をすれば画像の2段目の階層の様にできますか？
もし不可能で有れば違うやり方でこの枠数の組織図を綺麗に纏められる方法があれば教えて下さい。
サイズはA4で横いっぱい(余白狭い、12.7mm)で、縦は1/3程度の大きさに収めたいです。
宜しくお願い致します。
797:796
13/03/26 13:05:59.62
あげさせてもらいます
798:名無しさん＠そうだ選挙にいこう
13/03/26 22:32:37.07
エクセルの方が速くね？
799:名無しさん＠そうだ選挙にいこう
13/03/26 23:12:44.78
・縦階層を横にする
・下層がある場合は分散する
・全て表したいのならexcelで
800:名無しさん＠そうだ選挙にいこう
13/03/27 00:41:32.01
word2010でwebページを作ると中央揃えにした画像がIE10で表示した時に
左寄りにずれてしまいます。IE9やgoogle chromeでは正確に表示されますが
IE10でも正しく表示する方法はあるのでしょうか？
ご存知の方が居られましたら宜しくお願い致します。
自分が行った作成手順は
webレイアウトの白紙に画像を張る→ホーム（段落）から中央揃えを選択→
名前を付けてwebページとして保存→保存したファイルをIE10で開く
上記の手順で行いました。
801:796
13/03/27 03:09:13.01
>>798-799
回答ありがとうございます。
エクセル、殆ど使ったことないですが、調べてやってみようと思います。
ダメなら画像を作って貼り付けるしかないかな…。
802:名無しさん＠そうだ選挙にいこう
13/03/28 10:37:36.89
【1 OSの種類 .】 Windows8
【2 Wordのバージョン 】 2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
注番号が行の頭に来ないようにするのはどのようにしたらいいのでしょうか。
とりあえずctrl+shift+スペースで誤魔化しているのですが、もっといい方法は
ないでしょうかね。行頭禁則文字に登録できたらいいのですが・・・。
803:名無しさん＠そうだ選挙にいこう
13/03/29 02:09:13.38
【1 OSの種類 】 Windows7
【2 Wordのバージョン 】 Word2007
VBAの意味が分からないので省かせてもらいました。
以前は2010を使っていたのですが、今日までに原稿を仕上げなければいけないのに
2010が使用できなくなったので2007を使用しています。
１ 縦書き設定なのですが、どこを押せば行数と文字数を設定できるのか
２ 行ごとに表示される矢印みたいなマークを非表示にするにはどうすれば良いのか
３ 文章の右側に表示される緑の波線を非表示にするにはどうすれば良いのか
４ word2007のデータを最新のwordを使っている相手に送る場合、設定したままうまく相手に読ませる為に何か設定をいじる必要はあるのか
この4つの質問に答えていただければ助かります
よろしくお願いします
804:名無しさん＠そうだ選挙にいこう
13/03/29 04:08:29.04
レイアウトに関することは口頭で説明。文字入力だけで丸投げしてOK。
805:名無しさん＠そうだ選挙にいこう
13/04/01 18:50:01.15
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 不可
職務経歴書を加筆したいです。
表を組んでおり、会社名、職種などを右側に一行ずつ罫線付きで設置し、
それらの左に結合したセルで就業期間を入力しているのですが、
今までの職歴は1ページぴったりでした。新しい職歴を入れるために改ページして
表を複製して貼りつけたら、一番左のセルにカーソルが飛びません
色々な場所から色々な方向にカーソルを動かしてみたのですが、どうにもなりませんでした
どうすればいいでしょうか？
806: 忍法帖【Lv=40,xxxPT】(1+0：8)
13/04/03 23:11:42.89
【1 OSの種類 .】 Windows vist
【2 Wordのバージョン 】 20０７
【3 VBAが使えるか .】 エクセルなら多少。ワードは初めて
【4 VBAでの回答の可否】 可
文書内の「任意の改行」（ページ区切りで挿入するやつ）を
全てセクション区切り（次のページから）にしたいのですが
やりかたがわかりません。だいたい700ページ*20文書くらいなので
さすがに手動でやるには時間がかかりすぎるので
検索と置換でやろうとしてもセクション区切り^bは置換できないみたいです
一応、こんなのを組んで見ましたが失敗します。エクセルならマクロやったことありますが
ワードは初めてなので、エクセルなら各ｂｒｅａｋオブジェクトに直接deleteメソッドなどを
実行できるようなきがしますがワードではできないみたいです。
Sub ページ区切りをセクション区切りに()
Dim mypage As Page, mybreak As Break
ActiveWindow.View.Type = wdPrintView
For Each mypage In ThisDocument.Windows(1).Panes(1).Pages
For Each mybreak In mypage.Breaks
mybreak.Range.Select '←ここが違う気がします。rangeになにか引数が必要？
Selection.Delete
Selection.InsertBreak Type:=wdSectionBreakNextPage
Next
Next
End Sub
807: 忍法帖【Lv=40,xxxPT】(1+0：8)
13/04/04 18:17:27.62
>>806
自己レス
いろいろ調べたら次のマクロでできました。
ありがとうございました。
Sub ページ区切りをセクション区切りに()
Dim myfind As Boolean, myrange As Range
Do
Set myrange = ActiveDocument.Content
myfind = myrange.Find.Execute(findtext:="^m", MatchSoundsLike:=False)
If myfind Then
myrange.Select
Selection.Delete
Selection.InsertBreak Type:=wdSectionBreakNextPage
End If
Loop Until myfind = False
End Sub
808:名無しさん＠そうだ選挙にいこう
13/04/05 14:33:32.94
お疲れサマンサ
809:名無しさん＠そうだ選挙にいこう
13/04/05 22:49:13.37
奥様は魔女
810:名無しさん＠そうだ選挙にいこう
13/04/06 13:48:01.24
>>807
かんかウソくさい質問だな。
wordマクロやったことないやつがこんなコードいきなり組めるもんなのか？
811:名無しさん＠そうだ選挙にいこう
13/04/06 22:28:16.79
エクセルで経験あれば、すぐできると思いますよ。ただ私ならこんな感じにしたかな。
Sub test()
Dim myRng As Range
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = "^m"
Do While .Execute
myRng.Delete
myRng.InsertBreak Type:=wdSectionBreakNextPage
Loop
End With
End Sub
812:名無しさん＠そうだ選挙にいこう
13/04/06 22:38:44.98
ちなみにマクロ使わなくても置換でもできるみたい。
URLﾘﾝｸ(support.microsoft.com)
813:名無しさん＠そうだ選挙にいこう
13/04/07 03:28:32.13
それをマクロに記述させればいい、と
814:名無しさん＠そうだ選挙にいこう
13/04/08 17:33:51.48
【1 OSの種類 .】 Windows 7
【2 Wordのバージョン 】 Word 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 いいえ
元々OASYS→WIN版OASYS 使いでした。現役引退してワープロソフトを使う
必要がほとんどなくなったのでWIN７で動くOASYSは持っていません。
ところがある作業の写真主体の手順書を作る必要が生じ、手持ちのWordで
次の体裁の文書を作ろうとしました。
□ □ □ □
－ － － －
□ □ □ □
－ － － －
～～～～
□ □ □ □
－ － － －
□は写真
－は説明
写真は上下左右等間隔。
続きます。
815:名無しさん＠そうだ選挙にいこう
13/04/08 17:34:38.88
続きです。
ところが写真の位置決めの基準点の決め方がどうしても分かりません。
OASYSですと罫線は文字扱いなので罫線で写真の入る枠を作ってそこに
写真を配置して終わりですがWordの罫線は違うみたいでその手法は使え
ません。グーグル先生に聞いてみたりしていろいろやってみましたが写真を
ぴったり等間隔にすることは出来ずギブアップ。
結局Wordでの作成は諦めて手慣れたExcelでトライしたところ目的の手順書
が簡単に出来てしまいました。
とはいうものの本来はWordで作れる筈ですね。超初心者なのでどこから攻
めていいのが五里霧中です。何かヒントを頂ければありがたいのですが。
816:805
13/04/08 22:11:32.14
あのお・・・私の質問はエスパーじゃないと答えられないものでしょうか
817:名無しさん＠そうだ選挙にいこう
13/04/09 13:16:49.39
>>816
一番左のセルなんか無かった
俺ならそうする
具体的には1列追加して一番左削除するわ
818:805
13/04/09 14:29:33.32
>>817
すいません。間違えました
一列追加して左から2番目を削除してしまいました
しかしうまくいきました
どうなってるのかさっぱりわかりません
819:名無しさん＠そうだ選挙にいこう
13/04/10 19:40:57.30
>>814
表を一行・一列作成
上が写真用で大き目、下が文字入力用で小さ目の表、写真の右にスペース用の列
プロパティで高さ・幅が指定できる
あとは下段に行の追加、右横に列の追加を繰り返す
基準は用紙の余白で決まる
他にも方法はある（テキストボックスでブロック編集）
820:名無しさん＠そうだ選挙にいこう
13/04/11 16:48:23.81
>>819
頂いたヒントをいまいち理解できないままいろいろやってみました。
1.表を一行・一列作成。
2.表のプロパティで大きさを上下左右一杯に設定。
3.セル分割で列3列5行に分割(写真を3×5枚表示)。
4.前回作成途中で放置しておいた文書から写真を張り付ける。
この写真はキャプションをグループ化してあったのでキャプションごと張り付け。
5.図ツールの配置機能の左右中央揃えと上揃えで整列。
6.という手順でまだ完成していませんが目処はつきました。
表を使わないでキャプションをグループ化しておいた写真をそこそこきれいに並べて
おいて上記5の機能で整列させる方法もトライしてみます。
821:名無しさん＠そうだ選挙にいこう
13/04/14 13:33:48.17
▼━質問テンプレ (出来れば使ってね) ━━━━━━
【1 OSの種類 .】 Windows8
【2 Wordのバージョン 】 Word2007
以前は、「2013」と打ち込むだけで、「2013/04/14」(今日の日付)が出て来ましたが、
あれこれいじくっているうちにでなくなりました。また出したいので方法を教えて下さい。
やったこと
ググりましたが、出さなくする方法や、それ以前の2003までのツールから入る方法などしか書かれてなく
できませんでした。
お願いします。
822:名無しさん＠そうだ選挙にいこう
13/04/14 13:50:09.80
>>821
2010での回答なので若干違う所があるかもしれませんが、
ファイル→オプション→文章校正→オートコレクトのオプション→
入力中に自動で書式設定する項目→「日付スタイル」にチェック
とすると出てくるとおもいます
823:名無しさん＠そうだ選挙にいこう
13/04/14 13:55:53.87
>>822
ありがとうございます。
ファイルがなかったので、
Officeボタン→Wordのオプション→文書校正→オートコレクトのオプション→
入力中に自動で書式設定する項目→「日付スタイル」を見ると既に入っていました。
一度外してOKボタンを押して、また開いて設定しなおしましたが、やっぱり出ません。
なぜだろう？他の設定がオカシイのだろうか？
ご教授有難う御座いました。
824:名無しさん＠そうだ選挙にいこう
13/04/14 14:18:52.85
この辺参考になるかも
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
825:名無しさん＠そうだ選挙にいこう
13/04/14 14:37:17.11
>>824
これちょっとやってみます。
有難う御座いました。
826:名無しさん＠そうだ選挙にいこう
13/04/15 12:20:39.30
ワード２００３で
フォント書式を解除するショートカットキーはCtrl＋スペースキー ですが
これをF11などひとつのボタンで操作できるようにしたいです
よい方法があれば教えてください
827:名無しさん＠そうだ選挙にいこう
13/04/28 14:45:27.71
2013で、ダブルクォーテーション（"）を“”にしない方法を教えてください。
古いバージョンなら明示的に“”を使う設定があったようですが…
過去のレスは自決してしまったみたいでわかりません
828:名無しさん＠そうだ選挙にいこう
13/04/28 17:12:36.41
>>827
2013は知りませんが、2010だと
「ファイル」-「オプション」-「文章校正」-「オートコレクトのオプション」-「入力オートフォマット」
829:名無しさん＠そうだ選挙にいこう
13/04/28 17:29:08.90
>>828
その中の「左右の区別のない引用符を、区別がある引用符に変更する」のチェックを外したらうまくいきました！ありがとうございます
830:名無しさん＠そうだ選挙にいこう
13/05/01 12:52:15.65
【1 OSの種類 .】 Windows XP SP3
【2 Wordのバージョン 】 Word2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
以下のようなフォーマットのワードデータがあります。
文字列の特定部分を取り除く作業はVBAで行えるでしょうか。
とうきょう 東京 1,3,5
かながわ 神奈川 10,15,20
さいたま 埼玉 101,111,121
要するに索引を作っているわけですが、頭にソート用の読みがなが付いてます。
ソート後、この部分は不要なので、読みがな＋全角スペースを取り除きたいのです。
読みがなと本体の間には必ず全角スペースが入っています。
831:名無しさん＠そうだ選挙にいこう
13/05/01 14:33:56.65
ひらがなだけがいくつかあって全角スペースがある場合、それを何もないもので置換する、と考える。
検索ウィンドウでワイルドカードにチェックを入れ
検索：[あ-ん]*□ #□は全角スペース
置換： #何も入れない
せっかく読みがながあるんだから、このままExcelにでも保存しておいて、
（Excelに読み込むときに、列の区切りに全角スペースを指定する）
A列：ふりがな Ｂ列：項目 C列：数値
B列とC列を選択して使うのがいいかな、と思うのは私の勝手。
832:名無しさん＠そうだ選挙にいこう
13/05/01 14:36:47.28
>>830
エクセルがあればそこへコピペして「区切り位置」という機能でスペース区切りまたは任意の位置での区切りを行い
読み仮名を切り離してそれ以降の文字をワードへ戻せばよいかと
833:名無しさん＠そうだ選挙にいこう
13/05/01 17:25:22.86
>>831
やってみましたが、それだと
ひらかな ひらがな 1,2
のようなひらがなの項目があると必要な部分まで消えてしまいます。
>>832
エクセルの区切り位置機能を試してみましたが、
長さがまちまちなのでうまく区切れないのと、
区切ったら太字やイタリックの指定が消えてしまいます。
VBAで作れないものでしょうか。
BASIC言語は昔のN88-BASICの知識しかないのですが、
CurrentLine$ に現在の行が入っているとして、
Output$ = Right$( CurrentLine$, Len(CurrentLine$)-InStr(1, CurrentLine$, " ") )
でOutput$に目的の部分が入ってきそうな気がしますが・・・
これってフォントやイタリック指定とかも無視されずにきちんと処理されるのでしょうか。
834:名無しさん＠そうだ選挙にいこう
13/05/01 19:10:07.52
>>831
ああ、やっぱりね、２列目にひらかなだけのものがあるとまずいな、とは想ったんだ。
Wordの検索でワイルドカードを使うと「段落」を検索できなくなるから、
行頭のという条件がつけられないんだよね。
全角スペースをタブに変換して、罫線→変換で表組みにして
左の１列を削除するってのもアリかな。
（BVAは、動かないバージョンを使ってるんで勉強してない）
文字属性が心配なら、
ワイルドカードを使わない置換で前後にマーク記号（本文に出現しないものに限る）を
付けておけばいいかな、という気がする。
835:名無しさん＠そうだ選挙にいこう
13/05/01 19:34:13.21
>>834
そのままVBAにしてみた
Sub sample()
Dim myRng As Range
Set myRng = ActiveDocument.Range(0, 0)
With myRng.Find
.Text = " "
.Replacement.Text = "^t"
.Execute Replace:=wdReplaceAll
End With
ActiveDocument.Content.ConvertToTable
ActiveDocument.Tables(1).Columns(1).Delete
ActiveDocument.Tables(1).ConvertToText
End Sub
836:830
13/05/02 08:58:11.98
>>835
試してみました。
うまく行ったように見えますが、変なところに - （ハイフン）が
いくつも並んだりしておかしな結果になってしまいます。
837:名無しさん＠そうだ選挙にいこう
13/05/02 09:54:23.31
今回だけできればいいだけなら、上で出てるスペースをタブ化して、
２列目以降の頭位置を揃えてしまってから矩形選択でひらがな部分だけ切り飛ばせば？
838:名無しさん＠そうだ選挙にいこう
13/05/02 10:24:49.13
>>836
変換したい範囲を選択してから実行
Sub sample2()
Dim myRng As Range
Set myRng = Selection.Range
With myRng.Find
.Text = " "
.Replacement.Text = "^t"
.Execute Replace:=wdReplaceAll
End With
Selection.Range.ConvertToTable
ActiveDocument.Tables(1).Columns(1).Delete
ActiveDocument.Tables(1).ConvertToText Separator:=" "
End Sub
839:名無しさん＠そうだ選挙にいこう
13/05/02 11:00:47.05
表にするときも、空白をタブに変換する必要なかったか
Sub sample3()
Selection.Range.ConvertToTable Separator:=" "
ActiveDocument.Tables(1).Columns(1).Delete
ActiveDocument.Tables(1).ConvertToText Separator:=" "
End Sub
840:830
13/05/02 19:27:07.31
原始的だけど簡単確実なのは>>837の方法かな・・・
まだ時間はあるんでもう少し検討してみます。
841:名無しさん＠そうだ選挙にいこう
13/05/03 00:48:38.59
>>831をちょっと変更して以下のようにすれば消せた
検索する文字列: [ぁ-ゖ]{1,} (*^013)←[]内は小さい「あ」と小さい「け」ね
置換後の文字列: \1
842:名無しさん＠そうだ選挙にいこう
13/05/03 03:19:45.48
うん、拗促音と音引きを忘れてたね。ごめん。
843:832
13/05/03 18:08:56.51
>>833
>区切り位置機能を試してみましたが～うまく区切れない
置換を使って区切りが出来る程度全角スペースを増やし区切った後逆に複数あるスペースを1個へ戻す
>区切ったら～指定が消えて（ry
書式のみコピペで対応可
844:名無しさん＠そうだ選挙にいこう
13/05/03 22:08:18.68
>>840
> 原始的だけど簡単確実
それでも、まだ満足できないってこと？
845:830
13/05/07 14:01:41.38
>>837の方法で無事終わりました。
ありがとうございました。
846:名無しさん＠そうだ選挙にいこう
13/05/08 03:11:23.85
【1 OSの種類 .】 Windows7
【2 Wordのバージョン 】 Word2010
【3 VBAが使えるか .】 VBAが分かりません。ごめんなさい。
【4 VBAでの回答の可否】 質問３の答えと同じです。
wordで文書を作成していた際、文書が消えました。
バージョンの管理で保存されていない文書の回復を試してみましたが、文書の３分の２しか回復されませんでした。
この場合、全部回復する方法はありますでしょうか。
ちなみに今朝が期日の重要な文書です。
よろしくお願いします。
847:名無しさん＠そうだ選挙にいこう
13/05/21 20:04:15.96
文書内で「★」みたいな特定の文字を含む行(Word界では「段落」)をすべて選択するにはどうしたらいいですか？
このあとそれらにスタイルを適用したいのです。
848:名無しさん＠そうだ選挙にいこう
13/05/22 03:28:10.54
検索使ったことがないの？
849:947
13/05/22 07:23:39.67
数百ページ以上の文書扱ったことないの？
850:名無しさん＠そうだ選挙にいこう
13/05/22 09:10:45.93
あるよ。だから検索で一括置換しろと言ってる。
851:847
13/05/22 10:19:18.60
置換はしないのよ。
スタイルを適用するの。
852:名無しさん＠そうだ選挙にいこう
13/05/22 10:58:56.96
それも一つの置換だと思う。
853:名無しさん＠そうだ選挙にいこう
13/05/22 11:07:55.56
でもスタイル適用しようと思ったら
すべての行を選択しないといけないと思うの。
854:853=847
13/05/22 23:15:37.05
そう思うのですよ。
855:名無しさん＠そうだ選挙にいこう
13/05/22 23:53:36.05
置換ダイアログボックスの下方に
「書式」があるから、そこから「スタイル」を選びなされ。
検索文字列は「★」
置き換える文字列は「空白」+任意のスタイル
で置き換えればよろし。
856:847
13/05/23 07:39:45.73
>>855
ありがとうございます
857:名無しさん＠そうだ選挙にいこう
13/06/23 13:16:24.14
【1 OSの種類 .】 Windows**
【2 Wordのバージョン 】 Word**
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
箇条書きをスタイルとして保存したいのに、単純にみえて
以外にうまくいかないので、ご教授をお願いいたします。
保存したい点は下記3点です。
①番号とそのあとの文字のスペースをなくしたい(←この行の最初みたいに)
②SHIFT+ENTERの次の行では1行目と文字をそろえたい
③不完全なスタイルが保存できたが、なぜか番号が4から始まる
余裕のある方、ご教授をお願いいたします。
858:名無しさん＠そうだ選挙にいこう
13/06/30 01:33:17.93
【1 OSの種類】 MacOSX 10．8.3
【2 Wordのバージョン 】 Word for mac2011
質問です。
下記の文章ですが、
第１ 事実関係
１ 序
本件公訴事実は、当公判廷において取り調べられた関係各証拠により証明十
分であるが、被告人及び弁護人は、被告人の殺意を否認しているので、以下詳
論する。
というような文章を
第１ 事実関係
１ 序
本件公訴事実は、当公判廷において取り調べられた関係各証拠により証明十分であるが、
被告人及び弁護人は、被告人の殺意を否認しているので、以下詳論する。
という風にしたいのですが、可能でしょうか？
どこで詰まるのかというと、「本件公訴事実～」というフレーズを「序」の下まで
スペースキーでもってくることはできるのですが、その下の「被告人および弁護人は」
というのフレーズをスペースでずらして整えるようとしてもできません…
ちょっと、伝わりにくいとおもいますがよろしくお願いします。