Hallo folgendes Problem ich möchte über einen FileDialog mehrere Word-Dateien öffnen dann die gesamt Seitenanzahl auslesen und diese Ausgeben.
Also als Bsp.:
gewählte Dateien: 4
Seitenzahl gesamt: 32
mit meinem Code kann ich im Moment zwar mehrere Dateien auswählen aber es wird nur eine bearbeitet.
Option Explicit On
Imports System
Imports System.IO
Imports Microsoft.Office.Interop.Word
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button2.Click
Dim WordAppl As New Microsoft.Office.Interop.Word.Application
' Word-Application
Dim Dokument As New Microsoft.Office.Interop.Word.Document
' Word-Dokument
Dim file As Object
Dim Seiten As Integer
Dim NumSections As Integer
Dim zeichen
Dim datei
Dim openfiledialog1 As OpenFileDialog = New OpenFileDialog()
openfiledialog1.Multiselect = True
openfiledialog1.InitialDirectory = "c:\"
openfiledialog1.Filter = "Worddokumente (*.doc)|*.doc"
openfiledialog1.FilterIndex = 2
openfiledialog1.RestoreDirectory = True
Dim res As DialogResult = openfiledialog1.ShowDialog()
datei = openfiledialog1.FileName
Dokument = WordAppl.Documents.Add(openfiledialog1.FileName)
WordAppl.Application.Visible = False
zeichen = WordAppl.ActiveDocument.Characters.Count
NumSections = WordAppl.ActiveDocument.Sections.Count
For Each file In openfiledialog1.FileNames
Seiten = _
(WordAppl.ActiveDocument.ActiveWindow.Panes(1).Pages.Count)
Next
Label1.Text = ("Dokument: " & datei)
Label2.Text = ("Seiten gesamt: " & Seiten)
WordAppl.ActiveDocument.Close(0)
WordAppl.Quit(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
wer kann mir hilfestellung für die benögtigte schleife geben. Danke
Also als Bsp.:
gewählte Dateien: 4
Seitenzahl gesamt: 32
mit meinem Code kann ich im Moment zwar mehrere Dateien auswählen aber es wird nur eine bearbeitet.
Option Explicit On
Imports System
Imports System.IO
Imports Microsoft.Office.Interop.Word
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button2.Click
Dim WordAppl As New Microsoft.Office.Interop.Word.Application
' Word-Application
Dim Dokument As New Microsoft.Office.Interop.Word.Document
' Word-Dokument
Dim file As Object
Dim Seiten As Integer
Dim NumSections As Integer
Dim zeichen
Dim datei
Dim openfiledialog1 As OpenFileDialog = New OpenFileDialog()
openfiledialog1.Multiselect = True
openfiledialog1.InitialDirectory = "c:\"
openfiledialog1.Filter = "Worddokumente (*.doc)|*.doc"
openfiledialog1.FilterIndex = 2
openfiledialog1.RestoreDirectory = True
Dim res As DialogResult = openfiledialog1.ShowDialog()
datei = openfiledialog1.FileName
Dokument = WordAppl.Documents.Add(openfiledialog1.FileName)
WordAppl.Application.Visible = False
zeichen = WordAppl.ActiveDocument.Characters.Count
NumSections = WordAppl.ActiveDocument.Sections.Count
For Each file In openfiledialog1.FileNames
Seiten = _
(WordAppl.ActiveDocument.ActiveWindow.Panes(1).Pages.Count)
Next
Label1.Text = ("Dokument: " & datei)
Label2.Text = ("Seiten gesamt: " & Seiten)
WordAppl.ActiveDocument.Close(0)
WordAppl.Quit(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
wer kann mir hilfestellung für die benögtigte schleife geben. Danke
