Question

我可以使用Excel或Word vba将数据从onenote导入剪贴板吗？ onenote的页面，该部分仅包含数百个照片文件我要做的就是将其导入剪贴板

在vba中给出以下命令时它成功了，但是根据工作站的性能有很多失败

Shell("""C:\Program Files (x86)\Microsoft Office\root\Office16\ONENOTE.EXE"" ""c:\test.one""", vbNormalFocus)

Application.Wait Now
Application.SendKeys ("^ a")
Application.Wait Now + TimeValue ("00:00:03")

Application.SendKeys ("^ c")

所以我想找到另一种方法。我正在为每个使用对象的语句写一个。

如果可能，我想一次导入一个文件的所有页面。

我可以寻求帮助吗？

在onenote上打开一个文件

 oneNote.OpenHierarchy bstrPath:="C:\.one", _
                  bstrRelativeToObjectID:="", _
                  pbstrObjectID:=OpenedFile

 oneNote.NavigateTo bstrHierarchyObjectID:=OpenedFile, _
                    bstrObjectID:="", _
                    fNewWindow:=False
  Application.Wait Now + TimeValue("00:00:05")
  Application.DisplayAlerts = False

我找到了有关如何发布（转换）的代码，但是我只想导入剪贴板而不进行转换。

创建发布文档

        oneNote.Publish bstrHierarchyID:=OpenedFile, _
        bstrTargetFilepath:="C:\.doc", _
        pfPublishFormat:=pfWord, _
        bstrCLSIDofExporter:=""

我可以使用Excel或Word vba将数据从onenote导入剪贴板吗？

0 个答案: