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
我使用上面的代码创建一个包含表格的剪贴板文本的微软word文件。但它给了我错误。我认为这是因为“objApp.Selection.TypeText(My.Computer.Clipboard.GetText)”不接受表而只接受文本。我希望创建文件,因为它已经复制了包括表格。
请改用Selection.PasteAndFormat()
method。它允许您指定应以何种格式粘贴复制的内容。
通过指定WdRecoveryType.wdFormatOriginalFormatting
,它将保留粘贴内容的原始格式。
objApp.Selection.PasteAndFormat(Word.WdRecoveryType.wdFormatOriginalFormatting)