[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルからワードへの貼り付け(文章)』(ゆうくん)
エクセルで作った文章をワードに貼り付けたいです。1つのセルに一行分が入力されている状態です。単にコピペをすれば、ワードにもセル?罫線?も一緒に張り付いてしまいます。純粋に文字だけを貼り付けることは機能上可能でしょうか?不可能であれば、一行ずつコピーして貼り付けるしかないと思っています。大量にあるので、どうにかして手間が省ける方法を探しています。あるいはフリーソフトでそのようなものがあれば、そちらを検討すべきでしょうか。
アドバイスをお願いします。
< 使用 Excel:Excel2010、使用 OS:Windows10 >
改行って必要なんですか?
>手作業でスペースや、改行を編集して行くことになるという理解で間違いありませんでしょうか?
文章の形態が一定規則でスペース入れるのなら エクセルでもワードでも変換機能で スペース入れるとか
文面形式が同じならば エクセル上でデーターの区切り位置を使用して
セルを分割して改行するとか
編集は基本文字数とか決まった形式文章なら出来る可能性があるかもしれませんが
基本手作業と考えたほうが良いと思います
(++) 2017/12/04(月) 19:35
1.行末へジャンプ [End]
2.改行の挿入 [Shift] + [Enter]
この2つの動作をマクロに記録し、適当なキーに割り当てる。
希望の段落の最初の行にカーソルを移動し、指定のマクロキーを、
希望回数押す。(但し、空行にも更に改行が挿入され、改行が二重
になってしまうので、そこは手動で飛ばし、次の段落へカーソルを
移動させる。)
Sub test()
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=Chr(11)
End Sub
(++) 2017/12/04(月) 19:44
改行は置換でとれますので、そちらの方が手っ取り早いかと。
https://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=012404
(コナミ) 2017/12/05(火) 10:38
Sub test() Dim WORD As Object Dim DOC As Object Dim R As Range Dim i As Long
Set WORD = CreateObject("Word.Application") WORD.Visible = True
For i = 1 To Sheets.Count Set DOC = WORD.documents.Add With WORD.Selection For Each R In Sheets(i).Cells.SpecialCells(xlCellTypeConstants) .ParagraphFormat.Alignment = 0 .TypeText Text:=R.Text .TypeParagraph Next R DOC.SaveAs ThisWorkbook.Path & "\" & Sheets(i).Name & ".docx" DOC.Close False End With Next i
WORD.Quit Set DOC = Nothing Set WORD = Nothing End Sub (???) 2017/12/05(火) 11:12
これって、Wordに貼り付けたあと、改行を挿入したいという意味ではなく
必要ない改行を削除したいのですよね?
(マナ) 2017/12/05(火) 21:07
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.