WORD文書を開いてEXCELにコピーして利用する場合、WORD文書としては標準の文字数で行替えされている文章が、改行記号のある段落単位でEXCELの1セルに入力されてしまいます。

例えばWORD文書で1段落150字の文章が40字で行替えされていると4行になり、4行目に改行記号が入っているとします。これをコピーしてEXCEL文書に貼り付けると1セルに4行分のデータが入ってしまいます。セルを連結したりセル内で折り返しを使わずにWORD文書の見かけのレイアウトをそのまま保持したい。

EXCELにcopy&pasteしてWORD文書と同様のレイアウトを保持するには次の方法が良いと思いますが、方法が不明です。何方かわかる方教えてください。

・WORD文書の行末を全て自動的に改行した上でEXCELにcopy&pasteする

このQ&Aに関連する最新のQ&A

A 回答 (3件)

文字だけならテキストで保存すると付きます。



ファイル-名前を付けて保存-
テキスト+改行(*.txt)を選んで保存します。

見た目の折り返しで全行に改行が入ります。
ただ図や設定は・・。

一度閉じてから開き直すと
ワードでも結果を確認できます。
またテキストならエクセルでも直接開けます。
    • good
    • 1
この回答へのお礼

ご回答をありがとうございました。
この質問には一番ありがたい回答でした。
すぐためして思い通りの結果を得られましたので、お礼を申し上げます。
図や設定の問題はありますが、図は挿入で、設定は別途とします。

お礼日時:2002/02/21 09:48

>>WORD文書の行末を全て自動的に改行




 本当に、文書全体(数百行)に、「自動」で改行を入れるなら、VBA
マクロの編集(空行や文書末の処理)が必要ですが、十数行くらいでし
たら、この方が簡単ですし、確認しながら出来ます。


ツール>マクロ>新しいマクロの記録>(キーボードに割り当て)

1.行末へジャンプ [End]
2.改行の挿入   [Shift] + [Enter]

 この2つの動作をマクロに記録し、適当なキーに割り当てる。

 希望の段落の最初の行にカーソルを移動し、指定のマクロキーを、
希望回数押す。(但し、空行にも更に改行が挿入され、改行が二重
になってしまうので、そこは手動で飛ばし、次の段落へカーソルを
移動させる。)



実際のマクロの内容
─────────
Sub Macro1()
'
' Macro1 Macro
' 記録日 02/02/21 記録者 Microsoft Office ユーザー
'
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=Chr(11)

End Sub
─────────
 
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。
マクロの利用を丁寧に教えて頂きましたので、この方法でやってみます。
でも、もっと簡単な方法があるのではないかという思いで、質問をしてみたのですが・・・・・

お礼日時:2002/02/21 09:31

ようは、Word上の文章をExcelに貼り付けたい訳ですよね?


貼りつける際に、テキストボックス内に貼りつけるのはいかがですか?

また、貼り付ける際、挿入から、Wordオブジェクトとしても貼り付けることができたと思います。
(Word上にExcelの表を挿入するようなもの。)
いかがでしょう?
    • good
    • 0
この回答へのお礼

ご回答をありがとうございました。
ご指摘の方法は試行済です。(記載洩れで済みません)
この主題はWORD文書が長文の場合、規定の文字数で折り返しが行われ、行毎の改行記号が無い行について、自動的に行末に改行記号を入れたいので、簡単な方法がないかということなのですが・・・・

お礼日時:2002/02/21 09:23

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qワード 罫線の後に残る改行マークを消すには

ワード 罫線の下に残る改行マークを消すにはどうしたらいいですか。お願いします。

Aベストアンサー

Wordの表は、初期設定で[文字列の折り返し]が[なし]なので、表の下に
改行記号がくるのは仕様です。
[文字列の折り返し]を[する]にすれば、下に改行記号はつかないように
することはできますが、別の問題が起きることも考えられます。


ページの一番下に配置したい場合なら、[文字列の折り返し]を[する]に
しておいて、[位置]ボタンでページの下に配置するように[垂直方向]の
[位置]を[下]にします。
http://www.wanichan.com/pc/word/2010/04/13.html
http://www.konomiti.com/Wordhyo_02.html

これで本文の一番最後に改行記号が置かれ、表はページの一番下に配置
されます。
ただし、表の幅が余白までいっぱいの場合には、本文と表の間に空白の
段落を配置できるような隙間が必要になる場合もあります。

QWord2010で作成した文書をWord2013で開くとレイアウトが大きく崩れる

別のサイトで質問していたのですが進まなくなりました。

http://answers.microsoft.com/ja-jp/office/forum/office_2013_release-word/word2010/956ec93b-d152-4013-ba47-2041bdd07b46?auth=1

そこでこちらにお願いしたいのですが、問題をまとめると次のようです。

●Word2010で作成した文書をWord2013で開くとレイアウトが大きく崩れる

●発生するのはハングル文字だけ

●発生するのは私のパソコンだけでなく、他の環境でも同じようになるようだ

解決策、知識、またはヒントをお持ちの方がいらっしゃったらぜひご連絡ください。
そもそも私は問題を解決するためにどのようにアクションしたらよいでしょう?

Aベストアンサー

No.1の回答者です。

> 『フォントの設定ポップアップ』
[フォント]ダイアログですね。
http://www4.synapse.ne.jp/yone/word2010/word2010_font_settei.html

[フォント]ダイアログボックスの[フォント]タブにある[プレビュー]の下側に
「このフォントはインストールされていません。~~~。」と表示されたの
ですね。
そうなると、指定のフォントがWindows10に無いことによる置き換わった
トラブルみたいですね。

どのフォントに置き換わったのかを確認する方法ですが、以下の手順
で確認できると思います。
リボンの[ファイル]→[オプション]→[ Word のオプション]で[詳細設定]→
[構成内容の表示]グループにある[フォントの置換]ボタンを押します。
http://support.diamic.jp/archives/3860
http://www.cherrypieweb.com/weblog/technical/20101126230422.php
[使用できないフォント]と[代替フォント]が表示されます。ここでは確認が
できるだけでなく、[フォントの入れ替え]ボタンにて置き換えたフォント名
でリボン上のフォント欄でも確認できるようになります。
[代替フォント]がMalgun Gothicなら、他の韓国語フォントにしてみて。
https://ja.wikipedia.org/wiki/%E3%83%8F%E3%83%B3%E3%82%B0%E3%83%AB%E3%81%AE%E6%9B%B8%E4%BD%93

BatangがWindows10のほうに入っていないのが気になりますね。
私はWindows8からの変更なので、同じフォントは残っています。
最初からWindows10だと、Batang入っていないのでしょうか?
https://support.microsoft.com/ja-jp/kb/3083806

No.1の回答者です。

> 『フォントの設定ポップアップ』
[フォント]ダイアログですね。
http://www4.synapse.ne.jp/yone/word2010/word2010_font_settei.html

[フォント]ダイアログボックスの[フォント]タブにある[プレビュー]の下側に
「このフォントはインストールされていません。~~~。」と表示されたの
ですね。
そうなると、指定のフォントがWindows10に無いことによる置き換わった
トラブルみたいですね。

どのフォントに置き換わったのかを確認する方法ですが、以下の手順
で確認できると思います。
...続きを読む

QWordのページの上下に罫線みたいなのが入ってしまい、消すことができません。

お世話になります。

Wordの文章を書き上げてみて、印刷してみたら、
上下にページの端から端までに、細い点線が印刷されてしましました。

印刷レイアウトで表示させてみると、
確かにその点線は、あります。

でも、選択しようにも、できません。

ヘッダーとフッターを配置しているからなのでしょうか?

長いレポートをやっとまとめたのですが、
この罫線みたいなものを消せなくて、とても困っています。

どうぞ教えてください。よろしくお願いいたします。

Aベストアンサー

ページ罫線の可能性もあると思いますので、チェックしてみてください。
メニューバーの『罫線』→『線種とページ罫線と網掛けの設定』→『ページ罫線』タブのところでプレビューに
罫線が表示されていましたら、種類「罫線なし」、設定対象「文書全体」にしてOKで閉じてみてください。

Qwordの段落を保持したままテキスト変換

wordで作成した文書を、段落の見た目を保持したままテキストに変換する方法はないでしょうか?
段落がスペースに変換されるといいのですが、
コピー&ペーストですと行頭がそろってしまいます。

やりたいこと
word文書
1.aaaaa
 (1)bbbbb
  ア.ccccc
  イ.ddddd
 (2)ddddd
  ア.ccccc
  イ.ddddd



テキスト文書
1.aaaaa
 (1)bbbbb
  ア.ccccc
  イ.ddddd
 (2)ddddd
  ア.ccccc
  イ.ddddd

コピー&ペーストの場合
word文書
1.aaaaa
 (1)bbbbb
  ア.ccccc
  イ.ddddd
 (2)ddddd
  ア.ccccc
  イ.ddddd



テキスト文書
1.aaaaa
(1)bbbbb
ア.ccccc
イ.ddddd
(2)ddddd
ア.ccccc
イ.ddddd

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

Aベストアンサー

こんばんは。

私は、EmEditor のような高級なエディタは、フリー版を昔使ったことがあるだけですが、

正規表現の使い方は、以下に出ています。
http://jp.emeditor.com/help/howto/search/search_regexp.htm

それに従うと、

検索内容に
^(\(\d+\))
置換後の文言に
× $1     ---> \1

したがって、
^([ア-ン]) ->   \1 (全角スペース2個)

となります。
ダメだったら、またおっしゃってください。

Qワードで文章を作成する時、スペースに□が表示されます。これを消す方法を教えてください。

ワードで文章を作成する時、スペースに□が表示されます。
これを消す方法を教えてください。
ちなみにMicrosoft Office Word2003を使用しています。

Aベストアンサー

最近この質問が相次ぐが、FAQで、ワードの操作1つで解決する簡単な基本的な事項だ。
ツールーオプションー表示ー編集記号の表示ーvの入っている記号は
それぞれの特別の記号で置き換わって表示される。

Qwordの設定について。 word2016の原稿用紙設定で文章を作成しています。 行末に句読点がき

wordの設定について。

word2016の原稿用紙設定で文章を作成しています。
行末に句読点がきたとき、行末の文字と同じマスに入らず、最後のマスの下にきてしまいます。

文字と同じマスに句読点を入れることはできるのでしょうか?

2016では、調べても設定の仕方が出てきませんでした。

教えていただけると助かります。
よろしくお願いします。

Aベストアンサー

不可能です。

Qワードで2枚目を消す方法

ワードで文章を打って、一枚でまとめたいのに、二枚目に移ることがあります。
ページ設定などで一枚にまとめるのですが、二枚目が白紙で残ります。

Word 2003ではDeleiteで消せたのですが、VISTAのワード(友人のパソコン)ではDeleiteでは消せません。
印刷するたびに2枚でてくるので、印刷設定で1枚に設定しているのですが、
白紙を消す方法はどうすればよいでしょうか?
よろしくお願いします。

Aベストアンサー

表示
 印刷レイアウトにします。

エンターが表示される状態にします。
 ツール
  オプション
   編集記号の表示
    全てにする

これで2枚目になるときには
 ファイルページ設定
  文字数と行数 タブで
   行数の数字を多くします。
  余白 タブで
   上下左右を狭くします。

Qword2013で問題を作成しているのですが、段落や改行がずれてしまいます。

画像の問1や(1)をそろえるには、具体的にどうすればいいでしょうか?

Aベストアンサー

具体的に・・・?
添付画像を参照していただきます。
① まず最初に問1から問2までの全文書を選択しておきます。
② 横ルーラーの適当な場所に左揃えタブを二つ設定します。
一つ目のタブは、(1)、(2)、の場所を合わせるための設定ですので、添付画像では「4」のあたりに一つ目のタブを設定します。
二つ目のタブは、1+1=、2+2=などの計算式の頭の部分をそろえる為の設定をしますので添付画像では、「次の数値を求めよ。」「次の計算をせよ。」「次の問いに答えよ。」のそれぞれの分党に計算式の分党が合うように設定しています。

※ タブを細かく設定したい場合は、適当な場所にタブを設定した後、設定したタブをクリックしたまま(マウスの左ボタンを押したままの状態)左右に移動すると細かい設定ができます。

で、タブた二つ設定出来たら、「(1)」の「(」の左側をクリックし、キーボードの「Tab」キーを一回押すと一つ目のタブの位置に移動します。
「1+1=」の計算式の部分は、「Tab」キーを二回押すことで二つ目のタブ位置に移動します。

添付画像では、一つ目のタブ位置と二つ目のタブ位置の部分を青線と赤線で分かり易く確認できるようにしていますのでよく見ながらタブの設定を行って下さい。

☆ ルーラーの出し方は、「表示」タブから「表示」グループ内の「表示」にチェックを入れると出ます。

MS Office Word 2013 での回答になります。

具体的に・・・?
添付画像を参照していただきます。
① まず最初に問1から問2までの全文書を選択しておきます。
② 横ルーラーの適当な場所に左揃えタブを二つ設定します。
一つ目のタブは、(1)、(2)、の場所を合わせるための設定ですので、添付画像では「4」のあたりに一つ目のタブを設定します。
二つ目のタブは、1+1=、2+2=などの計算式の頭の部分をそろえる為の設定をしますので添付画像では、「次の数値を求めよ。」「次の計算をせよ。」「次の問いに答えよ。」のそれぞれの分党に計算式の分党が合...続きを読む

Qワードのテキストボックスの枠を印刷時に消すには

表題のとおりです。
ms-wordとWINともに2000です。
どうぞよろしくご教示ください。

Aベストアンサー

こんばんは!
当方使用のWord2003での場合になりますが・・・

↓の画像で説明させていただくと
テキストボックスを選択し、
図形描画のアイコンの中に筆があると思います。
そこをクリックすれば、線を好きな色に変更できますし、
線なしを選択すれば線が消えると思います。

Word2000の場合は詳しくは判りませんが、
同様の操作はできると思います。

一応参考になりそうなURLを載せておきます。

http://www.wanichan.com/pc/word/2000/word14.htm#a

もし、アイコンが出ていなければ
メニュー → 表示 → ツールバー → 図形描画 にチェックを入れればOKかと思います。

以上、参考になれば幸いです。m(__)m

QExcel VBAでWord文書とText文書の中身の一括置換

 いつも勉強させていただいております。
質問させていただきます。どうぞよろしくお願いいたします。

 ため込んだ(結構量ありますorz)ファイル(*.doc、*.txt)の中身の、
ある文字をすべて別の文字にVBAで検索→置換したく、今日ずっと
調べておりました。*.xlsについてはやり方が見つかったのですべて
うまく置換できたのですが、Word文書とText文書についてのやり方が
分かりませんでした。
 多分Filesystemobject(?)を使うのだと思うのですが、
もし参考になりそうなページやコード等ございましたら、
ぜひお教えいただけませんでしょうか。
 もしお詳しい方がいらっしゃいましたら、どうぞよろしくお願いいたします。

Aベストアンサー

テキストファイルを正規表現を用いて置換するコード例を挙げておきます。
Replace関数による方法(簡単)もありますが、私の勉強のためもあって、やってみました。
(1)エキストファイルの読み書きのコード
(2)正規表現置換関係のコード
(2)はhttp://codezine.jp/article/detail/1655?p=1を参考にした。(1)と組み合わせての処理だが、(2)でははっきりしない点があって、それを試行錯誤で何とか下記になった。
下記では具体的文字列→具体的文字列で単純だが、正規表現の機能を
生かすと、VBAの関数などでは出来ないことが出来る。大文字を小文字にするとか。
ーーー
Sub test01()
Dim re As RegExp
Dim mc As MatchCollection
Dim m As Match
Dim i As Integer
MsgBox CurDir
'f = """" & CurDir & "\ccc.txt" & """"
'MsgBox f
Open "IEno.txt" For Input As #1
Open "IEnoB.txt" For Output As #2
While Not EOF(1)
Line Input #1, x
'---
Set re = New RegExp
re.Pattern = "検索" 'アルファベット(大文字)の連続を表す正規表現
re.Global = True '複数マッチを有効にする
Set mc = re.Execute(x)
If mc.Count <> 0 Then
'MsgBox "x=" & x
'MsgBox "mc.Count = " & mc.Count
For i = 0 To mc.Count - 1
re.Global = True

Set m = mc.Item(i)
'MsgBox "FirstIndex = " & m.FirstIndex & " Length = " _
& m.Length & " Value = " & m.Value
y = re.Replace(x, "置換")
'MsgBox "y=" & y
Print #2, y
Next i

End If
Wend
Close #1
Close #2
End Sub

テストは、「検索」という言葉を数箇所含んだ、複数行の文章のテキストファイルを作る。名前は、上記のままで動くよう、IEno.txtにする。
実行してIEnoB.txtをメモ帳で開くと、「検索」という語ー>置換に置換された文章が見える。なおテキストファイルは変更したものは、別ファイルに作らなければならないことを覚えておくこと。
ーー
テキストファイルを読んでxという変数で文章を捉えて
Sub test02()
a = "Happy Day"
b = "Day"
C = "BirthDay"
x = Replace(a, b, C)
MsgBox x
End Sub
のような関数の追加たでやる方法もある。
上の例では
y=Replace(x,"検索","置換")
でyを書き出せば、コードは簡単だが、今後応用のきく、正規表現の方を上記に挙げた。
ーー
ワードは>「Excel VBA」でではなく、ワードVBAで、置換操作のマクロの記録をとって、あれこれ修正箇所を考えるのが良いと思う。
ワードVBAは情報が少ないが。
ーーー
こんなの質問者にとって背伸びしすぎではないか。丸投げにしないと出来ないのではないか。テキストエディタは多種あって、置換機能の付いているものは多い。メモ帳にもある。
ワードやテキストエディタでの置換で辛抱すべきではないか。

テキストファイルを正規表現を用いて置換するコード例を挙げておきます。
Replace関数による方法(簡単)もありますが、私の勉強のためもあって、やってみました。
(1)エキストファイルの読み書きのコード
(2)正規表現置換関係のコード
(2)はhttp://codezine.jp/article/detail/1655?p=1を参考にした。(1)と組み合わせての処理だが、(2)でははっきりしない点があって、それを試行錯誤で何とか下記になった。
下記では具体的文字列→具体的文字列で単純だが、正規表現の機能を
生かすと、VBAの...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング