Hallo,
ich habe ein Problem mit der Aktivierung von Makros, wenn ich per Makro von Excel an Word leite. Also:
Zur Zeit speichere und schließe ich eine Excel-Datei wie unten gezeigt und lasse sie dann direkt in Word öffnen. Das funktioniert auch sehr gut, allerding muss das Dokument in Word mit weiteren Makros bearbeitet werden. Diese sollen jedoch nicht über die ganze Datei laufen, sondern nur über den Teil, der markiert wurde.
Öffne ich eine Datei (ohne das Makro in Excel benutzt zu haben) also wie üblich funktioniert das Markieren des Textes und das Makro bearbeitet nur diesen Text. Öffnet sich eine Datei allerdings über das Makro in Excel, ignoriert Word Markierungen und wendet das Makro immer auf die komplette Datei an. Ach ja, das Makro in Word ist in der normal.dot gespeichert - vielleicht ist das der Fehler? Wie kann ich es anders machen?
Vielen Dank für Eure Hilfe
Gruß
Sahanya
Mein Excel-Makro:
Dim d_name As String
d_name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveWorkbook.SaveAs Filename:="C:\Fonds\" & d_name & ".txt", FileFormat:=xlText, CreateBackup:=False, local:=True
ActiveWorkbook.Close SaveChanges:=False
CreateObject("word.application").documents.Open("C:\Fonds\" & d_name & ".txt").Application.Visible = True
ich habe ein Problem mit der Aktivierung von Makros, wenn ich per Makro von Excel an Word leite. Also:
Zur Zeit speichere und schließe ich eine Excel-Datei wie unten gezeigt und lasse sie dann direkt in Word öffnen. Das funktioniert auch sehr gut, allerding muss das Dokument in Word mit weiteren Makros bearbeitet werden. Diese sollen jedoch nicht über die ganze Datei laufen, sondern nur über den Teil, der markiert wurde.
Öffne ich eine Datei (ohne das Makro in Excel benutzt zu haben) also wie üblich funktioniert das Markieren des Textes und das Makro bearbeitet nur diesen Text. Öffnet sich eine Datei allerdings über das Makro in Excel, ignoriert Word Markierungen und wendet das Makro immer auf die komplette Datei an. Ach ja, das Makro in Word ist in der normal.dot gespeichert - vielleicht ist das der Fehler? Wie kann ich es anders machen?
Vielen Dank für Eure Hilfe
Gruß
Sahanya
Mein Excel-Makro:
Dim d_name As String
d_name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveWorkbook.SaveAs Filename:="C:\Fonds\" & d_name & ".txt", FileFormat:=xlText, CreateBackup:=False, local:=True
ActiveWorkbook.Close SaveChanges:=False
CreateObject("word.application").documents.Open("C:\Fonds\" & d_name & ".txt").Application.Visible = True
