OneNote - Time Stamps each hand written object

Hallo Sepp,



Probiers mal so (Den Pfad musst du noch anpassen):

Sub DateiInfos()

Dim objFSO As Object

Dim objOrdner As Object

Dim objDatei As Object

Dim objSubOrdner As Object

Dim i As Integer

Const Pfad = "D:\MeineDateien\MeineMidiDateien\"

i = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objOrdner = objFSO.GetFolder(Pfad)

With ActiveSheet

.Cells.ClearContents

.Range("A1") = "Name"



On Error Resume Next



For Each objDatei In objOrdner.Files

.Cells(i, 1) = Left(objDatei.Name, Len(objDatei.Name) - 4)

i = i + 1

Next



For Each objSubOrdner In objOrdner.SubFolders

For Each objDatei In objSubOrdner.Files

.Cells(i, 1) = Left(objDatei.Name, Len(objDatei.Name) - 4)

i = i + 1

Next

Next

End With

End Sub

Me too... This is what I have at the moment but it doesn't work..

Sub test()Dim oField As FieldDim oSection As SectionDim oHeader As HeaderFooterDim oFooter As HeaderFooter

For Each oSection In ActiveDocument.Sections

 For Each oHeader In oSection.Headers If oHeader.Exists Then For Each oField In oHeader.Range.Fields  If oField = wdFieldDate Then oField.Result.Text = "{ TIME \@ 'dd.MM.yyyy' } " oField.Unlink Else End If  Next oField End If Next oHeader

 For Each oFooter In oSection.Footers If oFooter.Exists = True Then For Each oField In oFooter.Range.Fields  If IsDate(oField) = True Then oField.Result.Text = "{ TIME \@ 'dd.MM.yyyy' } " oField.Unlink Else End If  Next oField End If Next oFooter

Next oSectionEnd Sub

Mach eine neue Datei
Füge eine Userform hinzu
In diese ein Steuerelement
Code unten laufen lassen
Andreas.
Sub Test()
Dim Item As Object
For Each Item In ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls
Debug.Print Item
Next
End Sub

Hallo Werner

wenn Du mit WMI arbeitest, ist die Kernfunktion:

Dim colPrintJobs As Object, objJob As ObjectConst wbemFlagReturnImmediately = &H10

Const wbemFlagForwardOnly = &H20

  Set colPrintJobs = objWMIService.ExecQuery _

      ("Select * from Win32_PrintJob", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

  For Each objJob In colPrintJobs

    Debug.Print  objJob.JobID, objJob.DriverName, objJob.Document

  Next objJob

Im Direktfenster bekommst Du dann das aktuelle Dokument angezeigt (Job-ID, Drucker, Dokumentname):

1 HP LaserJet 4200/4300 PCL6 Microsoft Word - WMIPrinterQueue.docm

wenn du das mit einem Timer versiehst, kannst du die Queue auf ein bestimmtes Dokument prüfen.

Da das hier bestimmt zu weit geht, kann ich dir per Mail ein Beispiel zukommen lassen. Schreib mir dazu über die Kontakt-Mail in meinem Profil.

Dim Item

Von welchem Datentyp ist denn die Variable "Item"?

Wenn keine Deklaration folgt ist es in VB immer Variant.

FOR EACH Schleifen funktionieren generell nur mit Variant oder Object

Die ParamArray-Variable kannst Du wie ein normales Array handhaben, sprich auch via

dim i as Long

for i = LBound(aGueltigeWerte) to UBound(aGueltigeWerte)

Debug.Print aGueltigeWerte(i)

next

durchlaufen, FOR EACH ist halt komfortabler und schneller (wobei schnell hier kein Thema ist bei den wenigen Daten).

Andreas.