Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Im Makro eine Word-Datei speichern

Betrifft: Im Makro eine Word-Datei speichern von: Barbara
Geschrieben am: 22.10.2014 11:02:45

Hallo

habe eine Frage zum Speichern eines Word-Dokuments, das in einem Excel-Makro erstellt und befüllt wurde.

Hier das Makro:
Erst wird ein Word-Dokument gewählt, dann geöffnet.

Dann wird was damit gemacht, (gelöscht, weil hier nicht wichtig).

Dann soll in Word das "Speichern unter"-Fenster geöffnet werden, mit dem Vorschlag
M_Datenblatt & ".docm"
und das selbe Verzeichnis wie das Excel-Sheet.

Wie geht das, bitte?

Sub namenDict_nach_word()
  Dim sDatei As String
  Dim oWordInstanz, oWordDoku As Object
  
  'Word-sDatei wählen
  With Application.FileDialog(msoFileDialogOpen)
      .InitialFileName = ThisWorkbook.Path & "\"
      .Filters.Clear
      .Filters.Add "Word-vorlagen", "*.dot; *.dotx;*.dotm", 1
      .AllowMultiSelect = False
          If .Show = -1 Then
              sDatei = .SelectedItems(1)
          Else
              Exit Sub
          End If
  End With
  
  'Neues Word-Dokument auf Basis der Vorlage  öffnen
  Set oWordInstanz = CreateObject("Word.Application") 'Word-Instanz erstellen
  oWordInstanz.Visible = True
  Set oWordDoku = oWordInstanz.Documents.Add(Template:=sDatei)
  


  '
  '******************************
  '  
  'Hier soll das Word-Dokument gespeichert werden
  '
  '******************************
  '

  Set oWordDoku = Nothing
  Set oWordInstanz = Nothing
  MsgBox "Excel-Übertragung Fertig. "
  
End Sub
Danke für Eure Aufmerksamkeit, bitte um konkrete Hilfe.

LG,
Barbara

  

Betrifft: AW: Im Makro eine Word-Datei speichern von: Tino
Geschrieben am: 22.10.2014 11:13:39

Hallo,
kannst mal so versuchen.

  With oWordInstanz.Dialogs(84) 'wdDialogFileSaveAs
    .Name = ThisWorkbook.Path & "\" & M_Datenblatt & ".docm"
    .Show
  End With
Gruß Tino


  

Betrifft: AW: Im Makro eine Word-Datei speichern von: Barbara
Geschrieben am: 22.10.2014 23:49:34

Hi Tino

Das geht.

Vielen Dank!

LG,
Barbara


 

Beiträge aus den Excel-Beispielen zum Thema "Im Makro eine Word-Datei speichern"