Question

Dim objApp As Word.Application
        Dim objDoc As Word.Document
        objApp = New Word.Application()
        objDoc = objApp.Documents.Open("C:\Users\bn\Desktop\DCIM\lol.docx")
        objDoc.Activate()
        objApp.Selection.TypeText(My.Computer.Clipboard.GetText)
            objDoc.SaveAs("C:\Users\bn\Desktop\DCIM\lol2.docx")
        objDoc.Close()
        objApp.Quit()
        objDoc = Nothing
        objApp = Nothing

我使用上面的代码创建了一个包含表格的剪贴板文本的Microsoft Word文件。但它给了我错误。我认为这是因为“objApp.Selection.TypeText（My.Computer.Clipboard.GetText）”不接受表而只接受文本。我希望创建文件，因为我复制了包括表格。

Answer 1

请改用Selection.PasteAndFormat() method。它允许您指定应粘贴复制内容的格式。

通过指定WdRecoveryType.wdFormatOriginalFormatting，它将保留粘贴内容的原始格式。

objApp.Selection.PasteAndFormat(Word.WdRecoveryType.wdFormatOriginalFormatting)

将包含表格的剪贴板文本复制到Microsoft Word（.docx）文件

1 个答案: