PasteSpecial()：wdPasteOLEObject 和 wdInLine 枚举

Question

我已经在 Excel VBA 中编写了代码，目前正尝试在 VS 2017 上将其转换为 vb.NET。

我想在 Excel 中复制一个表格，并将其粘贴到 Word 文档中，并在它们之间保持实时链接，以便 Excel 表格中的任何更改都将传输到粘贴在 Word 文档中的表格中。我在 Excel VBA 中管理了这个，但是 vb.NET 不识别 DataType:=wdPasteOLEObject 和 Placement:=wdInLine，说它们没有被声明。

以下是我的代码示例：

excelApp = New Excel.Application
excelWB = excelApp.Workbooks.Open(SurveyFormLoc)
excelApp.Visible = True

With excelApp
    .Sheets("Site Details").Select 
    .Range("B2:I11").Copy()
End With

wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdDoc = wdApp.Documents.Open(DesignReportLoc)

With wdDoc
    .Application.Selection.Find.Text = "INSERT FROM SURVEY FORM"
    .Application.Selection.Find.Execute()
    .Application.Selection.ParagraphFormat.Alignment = 0               
End With

wdApp.Selection.PasteSpecial(Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False)

有人知道 vb.NET 的等效项是什么吗？

Answer 1

将wdPasteOLEObject 替换为数字0。

将wdInLine也替换为数字0。

PasteDataType Enumeration

Placement Enumeration

如果你想保持可读性，你也可以自己定义Enumeration：

Enum WdOLEPlacement 
  wdFloatOverText = 1
  wdInLine = 0 
End Enum

Enum WdPasteDataType 
  wdPasteBitmap = 4 
  wdPasteDeviceIndependentBitmap = 5    
  wdPasteEnhancedMetafile = 9   
  wdPasteHTML = 10  
  wdPasteHyperlink = 7  
  wdPasteMetafilePicture = 3    
  wdPasteOLEObject = 0  
  wdPasteRTF = 1    
  wdPasteShape = 8  
  wdPasteText = 2   
End Enum

在您的代码中，引用如下：

DataType:=WdPasteDataType.wdPasteOLEObject 
Placement:=WdOLEPlacement.wdInLine 

如果你再次遇到未定义的Enumerations，你可以去谷歌并粘贴你想要查找的东西并包含单词Enum，它通常会是第一个结果。