Winword-OLE Search&Replace

[Sherlock]

Wir hatten bewußt auf die Eigenkreationen verzichtet, weil die immer wieder mal zerschossen werden könnten. Textmarken muß man hingegen sehr bewußt... kaputtieren. Außerdem können Textmarken von Word besser gesucht werden, weil sie als eigene Objekte geführt sind. Aber wenn die Kiste schon steht, will ich da nicht mehr rein reden

Sherlock

[p80286]

ich hab da ein Makro ausgegraben, daß mir ein wenig die Struktur eines Worddokumentes analysiert:

Code:

Sub Makro2()
'
' Dokument Inhalt
'
'
With ActiveDocument
  MsgBox ("im Dokument enthaltene Shapes:" + Str(.Shapes.Count))
  For a = 1 To .Shapes.Count
   MsgBox (a + .Shapes(a).Name)
  Next
  
  MsgBox ("im Dokument enthaltene InlineShapes:" + Str(.InlineShapes.Count))
  
  
  MsgBox ("im Dokument enthaltene Sections:" + Str(.Sections.Count))
  For a = 1 To .Sections.Count
    MsgBox ("Anzahl Header" + Str(.Sections(a).Headers.Count) + " in Section" + Str(a) + Chr(13) + Chr(10) + _
            "Anzahl Footer" + Str(.Sections(a).Footers.Count) + " in Section" + Str(a))
    For b = 1 To .Sections(a).Headers.Count
      MsgBox ("Header " + Str(b) + " Anzahl Shapes " + Str(.Sections(a).Headers(b).Shapes.Count))
    Next
     
  Next
  MsgBox ("im Dokument enthaltene bookmarks: " + Str(.Bookmarks.Count))
    For a = 1 To .Bookmarks.Count
      MsgBox (Str(a) + "Bookmark Name:" + .Bookmarks(a).Name + Chr(13) + Chr(10) + _
                "Bookmark Länge:" + Str(.Bookmarks(a).Range.StoryLength))
                
                
  Next
  
 ' MsgBox ("im Dokument enthaltene FooterHeader:" + Str(.Shapes.Count))
End With 'ActiveDocument
End Sub

vielleicht hilft Dir das weiter

Gruß
K-H

da stimmt was nicht mit den codeTags??

Pardon, da war noch eine Macke drin.

Sub Makro2()
'
' Dokument Inhalt
'
'
With ActiveDocument
MsgBox ("im Dokument enthaltene Shapes:" + Str(.Shapes.Count))
For a = 1 To .Shapes.Count
MsgBox (Str(a) + .Shapes(a).Name)
Next

MsgBox ("im Dokument enthaltene InlineShapes:" + Str(.InlineShapes.Count))

MsgBox ("im Dokument enthaltene Sections:" + Str(.Sections.Count))
For a = 1 To .Sections.Count
MsgBox ("Anzahl Header" + Str(.Sections(a).Headers.Count) + " in Section" + Str(a) + Chr(13) + Chr(10) + _
"Anzahl Footer" + Str(.Sections(a).Footers.Count) + " in Section" + Str(a))
For b = 1 To .Sections(a).Headers.Count
MsgBox ("Header " + Str(b) + " Anzahl Shapes " + Str(.Sections(a).Headers(b).Shapes.Count))
Next

Next

MsgBox ("im Dokument enthaltene bookmarks: " + Str(.Bookmarks.Count))

For a = 1 To .Bookmarks.Count
MsgBox (Str(a) + "Bookmark Name:" + .Bookmarks(a).Name + Chr(13) + Chr(10) + _
"Bookmark Länge:" + Str(.Bookmarks(a).Range.StoryLength))
Next


' MsgBox ("im Dokument enthaltene FooterHeader:" + Str(.Shapes.Count))
End With 'ActiveDocument
End Sub

[Sherlock]

Ist das lossy zipped?

Die Forensoftware scheint Word-Macros auszublenden

Ah, so geht es wohl besser.

Sherlock

[p80286]

Zitat von Sherlock:

Die Forensoftware scheint Word-Macros auszublenden

Verdenken kann ich es Ihr nicht. Mir graust es jedesmal wenn ich solche Konstrukte sehe, aber wenn's geht *schulterzuck*

Gruß
K-H

[hoika]

Hallo,
danke schön.