VBS调用Word PasteSpecial粘贴Bitmap无效，手动操作正常求故障原因

你遇到的问题核心在于VBS与VBA的参数传递语法差异，导致你的代码没有正确指定DataType参数，具体原因和解决方式如下：

• VBS不支持命名参数语法
  在VBA中，你可以使用PasteSpecial DataType:=wdPasteBitmap这种命名参数的方式来指定特定参数，但VBS完全不支持这种写法。Word的PasteSpecial方法参数是按固定顺序定义的：Link → Placement → DisplayAsIcon → DataType → ... 你写的objWdApp.Selection.PasteSpecial DataType=4，VBS会把DataType=4这个表达式的结果（也就是4）当作第一个参数Link的值，而真正的DataType参数会使用默认值，自然无法粘贴位图格式。

• 正确的VBS代码写法
  要正确指定DataType为4（对应Word的wdPasteBitmap常量），你需要按参数顺序为前面的可选参数占位，写法如下：

  ' 用逗号占位跳过前面的可选参数
  objWdApp.Selection.PasteSpecial , , , 4
  

  或者更清晰地用Empty明确占位：

  objWdApp.Selection.PasteSpecial Empty, Empty, Empty, 4
  

  这样第四个参数才会被正确识别为DataType，从而触发位图格式的粘贴。

• 可选优化：定义常量提升可读性
  为了避免记错数值，你可以在VBS开头先定义对应的Word常量，再使用：

  Const wdPasteBitmap = 4
  objWdApp.Selection.PasteSpecial , , , wdPasteBitmap
  

内容的提问来源于stack exchange，提问作者Cap