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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] Makro aus Wordvorlage: alles auskommentiert mit REM

von superbike » Do, 30.11.2006 13:24

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

Re: Makro aus Wordvorlage: alles auskommentiert mit REM

von komma4 » Do, 30.11.2006 11:50

superbike hat geschrieben:Meine Frage: warum ist das so?
MS-VBA Makros können durch OOo nicht ausgeführt werden.
superbike hat geschrieben:Und wie bring ich das Makro zum laufen?
Umschreiben auf StarBasic

von pmoegenb » Do, 30.11.2006 11:45

Hallo superbike,

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

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

von superbike » Do, 30.11.2006 11:05

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.

Nach oben