OpenOffice.info

   Sub Makro1()
   Application.DisplayAlerts = wdAlertsNone
    Selection.Sort ExcludeHeader:=False, FieldNumber:="Absätze", SortFieldType _
      :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
        :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
        wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
        wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
     wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
        :=wdItalian
End Sub

Hallo manese, in Word sieht das Makro so aus:

[code] Sub Makro1()
Application.DisplayAlerts = wdAlertsNone
Selection.Sort ExcludeHeader:=False, FieldNumber:="Absätze", SortFieldType _
:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
:=wdItalian
End Sub
[/code]

Da sieht man dann auch nichts vom Sortier-Dialog, aber in OO hält der Code solange an, bis man auf den OK Button von diesem Dialog gedrückt hat. Selbst n Sendkeys funktioniert da nicht.

Hallo Greenhorn,
wie geht das in WORD?
Alles Gute
matthias

Hi,

folgendes kleines Problem beschäftigt mich nun schon seit Stunden:

Ich habe eine Tabelle in ein Textdokument eingefügt und möchte diese nun mit einem Makro sortieren lassen. In Calc funktioniert das ja auch wunderbar, aber im Writer lässt er jedes Mal den Dialog vom Sortiervorgang offen. Gibt’s da irgend ne Möglichkeit den Dialog automatisch zu schließen ???

Wär für ne Lösung wirklich sehr dankbar, ansonsten muss ich doch leider wieder zu M$Word greifen.