Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funktioniert nicht mehr nach Wechsel von Word2002 auf 2010
 12.09.2016 11:46:53 Gast36182
NotSolved

Ansicht des Beitrags:
Von:
Gast36182		 Datum:
12.09.2016 11:46:53		 Views:
1183		 Rating:
     
Antwort:
  Ja
Thema:
Makro funktioniert nicht mehr nach Wechsel von Word2002 auf 2010

Hallo,

das Makro hat folgende Aufgabe: Eine aus einem Report Generator erstellte RTF Datei als DOCX abspeichern, Datei drucken und die RTF löschen. Alles im gleichen Ordner.

Das Marko geht auf noch, wenn ich es in der Entwicklerumgebung ausführe. Aber direkt aus dem Word zuckt sich nichts, ausser dass er die RTF speichert. Ich habe kaum Kenntnisse in VBA, habe mal ein paar Makros geschrieben, den größten Teil aber wieder vergessen weil ich es nicht regelmässig anwende. Falls der Code unsauber ist...

 

Sub Saveas()
'
' Saveas Makro
' Makro zum speichern als Doc,gleichzeitigem löschen der RTF und drucken

Dim strPfad As String ' Dateipfad
Dim strName As String ' Dateiname
Dim strName2 As String 'ohne Dateiendung
Dim strName3 As String 'kompletter Pfad mit Datei
strPfad = ActiveDocument.Path   'Pfadangabe
strName = ActiveDocument.Name   'Dokumentname
strName2 = Split(ActiveDocument.Name, ".")(0) 'Endung "RTF" ausklammern
strName3 = ActiveDocument.FullName
Dim Start As Single

ChangeFileOpenDirectory _
ActiveDocument.Path
ActiveDocument.SaveAs2 FileName:=strName2 + ".docx", _
        FileFormat:=wdFormatXMLDocument
   

If MsgBox("Datei drucken?", vbYesNo) = vbYes Then 'Abfrage ja/nein
ActiveDocument.PrintOut 'Druckanweisung
Else
End If

ActiveWindow.Close
   Kill strName3 'RTF Datei löschen
 Application.Quit

End Sub



 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro funktioniert nicht mehr nach Wechsel von Word2002 auf 2010
 12.09.2016 11:46:53 Gast36182
NotSolved