nochmals Zusammenspiel Word-Excel

Forumthread: nochmals Zusammenspiel Word-Excel
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: nochmals Zusammenspiel Word-Excel

29.02.2004 12:27:25

Ichy

Hallo,
mit meinem Excel-Makro möchte ich folgendes erreichen:
Ich möchte wissen wieviele Zeilen in einem Word-Doc mit einer bestimmten Anzahl von Zeichen "verbraucht" wurden (x Zeilen bei 100 Zeichen)
Hat jmd. einen Tipp wie ich sowas lösen kann...?
Grüße Ichy

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nochmals Zusammenspiel Word-Excel

29.02.2004 13:01:53

Alex K.
AW: nochmals Zusammenspiel Word-Excel

29.02.2004 23:59:13

Ichy

AW: nochmals Zusammenspiel Word-Excel

29.02.2004 13:01:53

Alex K.

Hallo Ichy,
probiere es mal damit:


Public Sub ZeichenZaehlen()
Dim stPos       As Integer
Dim fullName    As String
Dim wordObj     As Word.Document
Dim wordApp     As Word.Application
On Error Resume Next
fullName = "c:\eigene dateien\forum aufbereitung\testdoc.doc"
Set wordObj = GetObject(fullName)
If Err.Number <> 0 Then
Err.Clear
Set wordApp = CreateObject("Word.Application")
Set wordObj = wordApp.Application.Documents.Open(fullName)
End If
On Error GoTo 0
With wordObj
MsgBox .BuiltinDocumentProperties("number of characters").Value & " Zeichen in " & _
.BuiltinDocumentProperties("number of lines").Value & " Zeilen."
End With
Set wordObj = Nothing
If Not wordApp Is Nothing Then
wordApp.Quit
Set wordApp = Nothing
End If
End Sub