[[20171204174117]] 『エクセルからワードへの貼り付け(文章)』(ゆうくん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『エクセルからワードへの貼り付け(文章)』(ゆうくん)

エクセルで作った文章をワードに貼り付けたいです。1つのセルに一行分が入力されている状態です。単にコピペをすれば、ワードにもセル?罫線?も一緒に張り付いてしまいます。純粋に文字だけを貼り付けることは機能上可能でしょうか?不可能であれば、一行ずつコピーして貼り付けるしかないと思っています。大量にあるので、どうにかして手間が省ける方法を探しています。あるいはフリーソフトでそのようなものがあれば、そちらを検討すべきでしょうか。
アドバイスをお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows10 >


貼り付け条件 A テキストだけを選択すればいいと思います
(++) 2017/12/04(月) 18:01

早速ありがとうございます。助かります。
テキストを条件に貼り付けた後は、手作業でスペースや、改行を編集して行くことになるという理解で間違いありませんでしょうか?
もし、そのほかの方法もありましたら、参考にさせていただきたいのですが、いかがでしょうか?
(ゆうくん) 2017/12/04(月) 19:20

>1つのセルに一行分が入力されている状態です。

改行って必要なんですか?

>手作業でスペースや、改行を編集して行くことになるという理解で間違いありませんでしょうか?

文章の形態が一定規則でスペース入れるのなら エクセルでもワードでも変換機能で スペース入れるとか

文面形式が同じならば エクセル上でデーターの区切り位置を使用して
セルを分割して改行するとか

編集は基本文字数とか決まった形式文章なら出来る可能性があるかもしれませんが
基本手作業と考えたほうが良いと思います
(++) 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


貼り付けと言っていますが、貼りつけ先のdocファイルは予め用意されているのか、それとも新規docファイルをどんどん作っていけば良いのか、具体的な内容が判らないのですが、とりあえず、各シート名をdocファイル名として、1シート内の文字列を1セル1行として新規docに出力するマクロ例なぞ。 標準モジュールに貼りつけて動かしてみてください。

 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.