Hallo
Wir haben ein Macro das ein mehrzeiliges Aufmaß ausrechnet. Dieses hat schon einige Word Versionen überstanden. Mein Sohn hat eine neues Office Paket installiert und zwar ohne vorher Office auf dem Rechner gehabt zu haben. Bei mir mit laufenden Office Versionen (immer das neueste bei bestehender Vorversion) läuft das Macro auf beiden Rechnern tadellos. Und bei meinem Sohn bleibt es bei dem Befehl "WordBasic.ToolsCalculate" hängen. Ich häng mal das altehrwürdige Macro an.
Public Sub MAIN()
WordBasic.ParaUp 1, -1
WordBasic.ToolsCalculate
WordBasic.EndOfLine
WordBasic.Insert _
"="
WordBasic.EndOfLine
WordBasic.EditPaste
WordBasic.EndOfLine
WordBasic.Insert _
" lfm."
WordBasic.WordLeft 5, 1
Selection.Font.Bold = wdToggle
Selection.Font.Underline = wdUnderlineDouble
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
Gibt es eine Lösung? Ausrechnen macht das Macro. Aber es fügt das Ergebnis nicht ein.
|