如何臨時打開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

您是否嘗試過右鍵單擊要粘貼到的單元格，然后單擊“選擇性粘貼”？