一時的にWord文書を開いて範囲をコピーして貼り付けるにはどうすればいいですか？

Question

私はHTML形式にコピー＆ペーストしたいセルをフォーマットしました。

• Word文書に内容をコピーしてそこからhtml形式に貼り付けると動作します。
• スプレッドシートから直接HTML形式に内容をコピーすると、書式設定は失われます。
• 範囲がWord文書からコピーした後でクリップボードにある場合は、html形式に貼り付けることができます。

範囲をクリップボードにコピーし、書式設定を保持する方法が必要です。 Wordからは動作しているので、それは私が始めているところです...しかし、別の方法がある場合...

私は埋め込みワードファイルか隠れたファイルを考えています。

セルをコピーしてそこに貼り付け、すべてを選択してそこからコピーします。その後、閉じたり破棄したりします。

編集：いくつかのコードを得ることができた...しかし、それは働いていた、そして、あなたは何のアイデアなぜ...

Sub TempDoc() 

Dim WDApp As Word.Application 
Dim WDDoc As Word.Document 

    Application.ScreenUpdating = False 

Set WDObj = Sheets("Text2Form").OLEObjects("WDOC") 

WDObj.Activate 
WDObj.Object.Application.Visible = False 

Set WDApp = GetObject(, "Word.Application") 
Set WDDoc = WDApp.ActiveDocument 

    WDApp.Visible = False 

Worksheets("Text2Form").Cells(12, 4).Copy 
    WDApp.Selection.Goto What:=wdGoToLine, Which:=wdGoToLast 
    WDApp.Selection.PasteSpecial xlPasteValues 

WDApp.ActiveDocument.Content.InsertAfter vbNewLine 

Worksheets("Text2Form").Cells(14, 4).Copy 
    WDApp.Selection.Goto What:=wdGoToLine, Which:=wdGoToLast 
    WDApp.Selection.PasteSpecial xlPasteValues 

WDDoc.Content.Copy 
WDDoc.Content.Delete 

WDApp.Quit 
Application.ScreenUpdating = True 

End Sub 

Answer 1

はあなたがセル上で右クリックを試していない...再び働いた後、停止貼り付けをして、「ペーストする」をクリックしますか？