[gelöst] Makro aus Wordvorlage: alles auskommentiert mit REM

[superbike]

Hallo Leute,
ich habe eine Word-Vorlage mit Makros drin, welche eine Symbolleiste (Struktogramme) einblendet um gewisse Textfenster / Tabellen geordnet zu platzieren. Im Writer fehlt aber die Symbolleiste. Schaue ich das Makro an, ist jede Zeile mit REM versehen, also Makro mit nur Kommentar.
Meine Frage: warum ist das so? Und wie bring ich das Makro zum laufen?

Makro-Auszug im Word:

Code: Alles auswählen

' ---------------------------------------------------------
' Macros zum Bearbeiten von Nassi/Shneidermann-Diagrammen
' ---------------------------------------------------------

Private Sub SetzeTabellenEingenschaften()
    With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0.1)
        .BottomPadding = CentimetersToPoints(0.1)
        .LeftPadding = CentimetersToPoints(0.1)
        .RightPadding = CentimetersToPoints(0.1)
        .Spacing = 0
        .AllowPageBreaks = True
        .Rows.AllowBreakAcrossPages = False
        If (.Rows.Count > 1) Or (.Columns.Count > 1) Then
          .Borders.OutsideLineWidth = wdLineWidth100pt
          .Borders.InsideLineWidth = wdLineWidth050pt
        End If
    End With
    Selection.Tables(1).Select
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 9.5
End Sub

Private Sub SetzeHintergrund(aRow As Integer, aCol As Integer)
    With Selection.Tables(1)
        .Cell(aRow, aCol).Select
        Selection.Cells.Shading.BackgroundPatternColor = wdColorGray05
    End With
End Sub

Makro-Auszug im Writer:

Code: Alles auswählen

Rem Attribute VBA_ModuleType=VBAModule
Sub Struktogramme
Rem ' ---------------------------------------------------------
Rem ' Macros zum Bearbeiten von Nassi/Shneidermann-Diagrammen
Rem ' ---------------------------------------------------------
Rem 
Rem Private Sub SetzeTabellenEingenschaften()
Rem     With Selection.Tables(1)
Rem         .TopPadding = CentimetersToPoints(0.1)
Rem         .BottomPadding = CentimetersToPoints(0.1)
Rem         .LeftPadding = CentimetersToPoints(0.1)
Rem         .RightPadding = CentimetersToPoints(0.1)
Rem         .Spacing = 0
Rem         .AllowPageBreaks = True
Rem         .Rows.AllowBreakAcrossPages = False
Rem         If (.Rows.Count > 1) Or (.Columns.Count > 1) Then
Rem           .Borders.OutsideLineWidth = wdLineWidth100pt
Rem           .Borders.InsideLineWidth = wdLineWidth050pt
Rem         End If
Rem     End With
Rem     Selection.Tables(1).Select
Rem     Selection.Font.Name = "Arial"
Rem     Selection.Font.Size = 9.5
Rem End Sub
Rem 
Rem Private Sub SetzeHintergrund(aRow As Integer, aCol As Integer)
Rem     With Selection.Tables(1)
Rem         .Cell(aRow, aCol).Select
Rem         Selection.Cells.Shading.BackgroundPatternColor = wdColorGray05
Rem     End With
Rem End Sub

Danke für Eure Hilfe.

[pmoegenb]

Hallo superbike,

das liegt daran, weil VB von MS nicht mit Starbasic kompatibel ist.

[komma4]

Meine Frage: warum ist das so?

MS-VBA Makros können durch OOo nicht ausgeführt werden.

Und wie bring ich das Makro zum laufen?

Umschreiben auf StarBasic

[superbike]

Danke für den Tipp. Nun weiss ich wie + wo ansetzen.
Ich versuche es mal mit http://docs.sun.com/app/docs/coll/so7de oder mit viewtopic.php?t=10084