提取Word InlinShapes中各种类型数据

妈的,研究了一个晚上,终于搞定了。


代码如下:


'开始别忘了导入这两个东东

'导入Word类库
Imports Microsoft.Office.Core
Imports Word


Public Class Form1

    '提取过程
    Sub FuckWord()

        '定义Word程序
        Dim oWordApplic As Word.Application = New Word.Application

        '定义文档
        Dim oDocument As Word.Document

        '定义区域
        'Dim oRange As Word.Range

        '定义文件路径
        Dim WordFilePath As String = "D:\客观题.doc"

        '默认的参数
        Dim isReadOnly As Boolean = False '只读
        Dim isVisible As Boolean = True '程序是否可见
        Dim missing = System.Reflection.Missing.Value

        '打开Word文档

        oDocument = oWordApplic.Documents.Open(WordFilePath, missing, isReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible, missing, missing, missing, missing)
        '激活程序
        oDocument.Activate()

        '此处我选择特定的表格列,起始编号不是0,而是1
        oDocument.Tables(1).Cell(6, 2).Select()

        '这句是把边框去掉,方法就是少选一个最后的回车符。
        oDocument.Range(oWordApplic.Selection.Range.Start, oWordApplic.Selection.Range.End - 1).Select()

        '复制选择内容
        oWordApplic.Selection.Copy()

        '粘贴内容
        Me.RichTextBox1.Paste()


        '遍历每个InlineShapes
        For Each Il As InlineShape In oRange.InlineShapes
            If Il.Type = WdInlineShapeType.wdInlineShapePicture Then '判断类型(共11种类型 类型说明见后)
                Il.Select() '先选择(很重要,必须的步骤)
                oWordApplic.Selection.CopyAsPicture() '选择拷贝至剪贴板
                Me.PictureBox1.Image = My.Computer.Clipboard.GetImage '从剪贴板获取
            End If
        Next

        '关闭当前文档
        oDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
        '关闭所有文档
        'oWordApplic.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)

        '退出程序
        oWordApplic.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oWordApplic)
        oWordApplic = Nothing

        'wdInlineShapeEmbeddedOLEObject 嵌入式OLE对象
        'wdInlineShapeHorizontalLine 水平线
        'wdInlineShapeLinkedOLEObject 链接式OLE对象
        'wdInlineShapeLinkedPicture 链接式图片
        'wdInlineShapeLinkedPictureHorizontalLine(不知道什么鬼玩意) 
        'wdInlineShapeOLEControlObject OLE控制对象
        'wdInlineShapeOWSAnchor OWS锚点
        'wdInlineShapePicture 嵌入式图片
        'wdInlineShapePictureBullet 图片占位符
        'wdInlineShapePictureHorizontalLine    (不知道什么鬼玩意) 
        'wdInlineShapeScriptAnchor          (不知道什么鬼玩意) 




    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call FuckWord()
    End Sub



评论 2 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

林慈盛

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值