データをExcelからテキストにエクスポートする方法VBA

Question

私はこのウェブサイトから次のコードを見つけました。これは、Word文書のフォームに日付をエクスポートする点を除いて、ほとんど動作します。代わりに、元のフォント、サイズ、色を維持しながら、段落を持たせたいと思います。誰でも助けてくれますか？非常に高く評価！

Sub Export_Excel_To_Word() 

Dim wdApp As Object 
Dim wd As Object 

On Error Resume Next 
Set wdApp = GetObject(, "Word.Application") 
If Err.Number <> 0 Then 
    Set wdApp = CreateObject("Word.Application") 
End If 
On Error GoTo 0 

Set wd = wdApp.Documents.Add 

wdApp.Visible = True 



Sheets("sheet1").Activate 
Set Rng = ThisWorkbook.ActiveSheet.Range("A2:F21") 

Rng.Copy 

    With wd.Range 
     .Collapse Direction:=wdCollapseStart     'Slutet av dokumentet 
     .InsertParagraphAfter         'Lagg till rad 
     .Collapse Direction:=wdCollapseStart     'Slutet av dokumentet 
     .PasteSpecial xlPasteFormats, False, False   'Paste with format 

    End With 

End Sub 

Answer 1

これはかなり簡単ですが、間違ったパラメータでpasteSpecialメソッドを使用しています。それは最初は間違っていました。

.PasteSpecial DataType:=1 ' wdPasteDataType.wdPasteRtf 

ペーストした後、単一のスペースとタブを交換するには、

.PasteSpecial DataType:=2 ' wdPasteDataType.wdPasteText 

やフォントのフォーマットを維持する：

With wd.Range 
    .Collapse Direction:=wdCollapseStart 
    .InsertParagraphAfter 
    .Collapse Direction:=wdCollapseStart 
    .PasteSpecial DataType:=2 
    With .Find 
     .ClearFormatting 
     .Text = vbTab 
     .Replacement.ClearFormatting 
     .Replacement.Text = " " 
     .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue 
    End With 
End With 

Answer 2

最も簡単な、これは純粋な未フォーマットのテキストを貼り付けよう私が考えることができる代替案は、Excel Rangeを貼り付けて、テーブルをテキストに変換することです。

ThisWorkbook.Sheets("sheet1").Range("A2:F21").Copy 

wdApp.Selection.Paste 

wdApp.DefaultTableSeparator = " " 

wdApp.Selection.Previous(15).Rows.ConvertToText