Как выбрать конкретную c страницу и преобразовать текст в строки в vb. net? - PullRequest
Новая
       65

Как выбрать конкретную c страницу и преобразовать текст в строки в vb. net?

0 голосов
/ 06 февраля 2020

Я пытаюсь выбрать конкретную c страницу из текстового документа и преобразовать текст этой указанной c страницы в строку, которую позже можно поместить в RichTextBox. Мне удалось поместить весь текстовый документ в строку, но я не могу выбрать для этого только определенную c страницу.

Вот мой код 

Imports Microsoft.Office.Interop.Word
Imports System.IO

Public Class Form1

    Dim docfilepath As String = "C:\games\MANUSCRIPT1.1.docx"
    Dim doctext As String = getDocText(docfilepath)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If doctext IsNot Nothing Then MsgBox(doctext)
        Me.Close()
    End Sub

    Private Function getDocText(ByVal filepath As String) As String
        If File.Exists(filepath) AndAlso Path.GetExtension(filepath).ToUpper.Equals(".DOCX") Then
            Dim app As Application = New Application
            Dim doc As Document = app.Documents.Open(filepath)
            Dim doctxt As String = doc.Content.Text

            ''Test
            Dim docpage = doc.Content.GoTo(2, 2)
            Dim doctxtpage As String = docpage.Text

            app.Quit()
            Return doctxtpage
        Else
            Return Nothing
        End If
    End Function

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        RichTextBox1.Text = getDocText(docfilepath)
        RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedVertical
    End Sub
End Class
...