Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nochmals Zusammenspiel Word-Excel

nochmals Zusammenspiel Word-Excel
29.02.2004 11: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
Anzeige
AW: nochmals Zusammenspiel Word-Excel
29.02.2004 12: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

Anzeige
AW: nochmals Zusammenspiel Word-Excel
29.02.2004 22:59:13
Ichy
Das sieht gut aus :-)
vielen Dank für den Tipp - ich werde die Sache mal für meine Entwicklung prüfen!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige