Question

我已经格式化了我希望复制并粘贴到html表单中的单元格。

如果我将内容复制到Word文档并将其从那里粘贴到html表单，则可以正常工作。
如果我将内容直接从电子表格复制到html表单中，则格式化将丢失。
如果从Word文档复制后范围在剪贴板中，我可以将其粘贴到html表单。

我需要一种方法将范围复制到剪贴板并保留格式。因为从Word开始，这就是我开始的地方......但如果还有另一种方式......

我正在考虑嵌入的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

您是否尝试右键单击要粘贴的单元格，然后单击＆＃34;选择粘贴＆＃34;？

如何临时打开Word文档并使用它来复制粘贴范围？

1 个答案: