Word Dokument seitenweise in Array

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Don_Batisto.

    Word Dokument seitenweise in Array

    Mit folgendem Code lade ich mir ein PDF Dokument in das Array newImage(x,0)

    VB.NET-Quellcode

    1. mPDFDoc = New PDFLibNet.PDFWrapper("")
    2. mPDFDoc.LoadPDF(dat_path)
    4. For a = 0 To mPDFDoc.PageCount
    5. dc_pg += 1
    6. Next
    8. If dc_pg > 40 Then
    9. ProgressBar1.Maximum = 40
    10. Else
    11. ProgressBar1.Maximum = dc_pg
    12. End If
    14. ProgressBar1.Visible = True
    16. If mPDFDoc.PageCount - 1 > 40 Then
    17. MsgBox("Das PDF-Dokument hat mehr als 40 Seiten?!")
    18. End If
    20. ReDim newImagePos(mPDFDoc.PageCount - 1)
    22. For x = 0 To mPDFDoc.PageCount - 1
    23. If x < 40 Then
    24. newImagePos(x) = 0
    25. newImage(x, 0) = AFPDFLibUtil.GetImageFromPDF(mPDFDoc, x + 1)
    26. ProgressBar1.Value += 1
    27. PictureBox1.Image = newImage(x, 0)
    28. End If
    29. Next
    31. ProgressBar1.Visible = False
    33. With PictureBox1
    34. .Cursor = Cursors.Cross
    35. .Width = 628
    36. .Height = 880
    37. .Visible = True
    38. .Image = newImage(0, 0)
    39. .SizeMode = PictureBoxSizeMode.StretchImage
    40. .BorderStyle = BorderStyle.Fixed3D
    41. End With
    43. PictureBox1.Invalidate()
    45. Label1.Text = "Seite: " & dc_pg_s
    47. Me.Width = 670
    48. Me.Height = 955
    50. Button1.Enabled = True
    51. Button2.Enabled = True
    53. RadiergummiToolStripMenuItem.Enabled = True
    54. StempelToolStripMenuItem.Enabled = True
    55. StiftToolStripMenuItem.Enabled = True

    Dann ist das X in newImage(x, 0) die jeweilige Seitenzahl.

    Nun möchte ich das ganze auch mit Word Dokumenten machen.
    Sie also Seite für Seite in das Array laden.
    Eig. müsste es ja so ähnlich gehen wie oben, leider fehlt mir da aber die passende Library für...


    Hat jemand eine Library für mich oder wenn nicht einen Hinweis, wie ich das sonst erledigen kann?

    So aus dem Kopf heraus (wenn ich das richtig verstanden habe);
    Imports Microsoft.Office.Word sollte doch gehen...

    Und dann irgendwie mit
    Dim m_objApplication As Word.Application
    Dim m_objDocument As Word.Document
    m_objApplication = CreateObject("Word.Application")
    evtl. m_objApplication = New Word.Application

    m_objDocument = m_objApplication.Documents.Open (oder Load)

    Konnte das unterwegs auf dem iPhone relativ schlecht testen ;)