この vb コードを作成しました。これは、特定のファイルを単語で開くように促し、それを変更して、特定の場所に保存します。Wordマクロファイルウィンドウと保存されたドキュメントウィンドウの両方が完了したら、両方のウィンドウを閉じることができるようにしたいと思います。
Private Sub Document_Open()
adresse_debut = ActiveDocument.Path
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.Title = "Select Text File"
.InitialFileName = adresse_debut
.Show
If .SelectedItems.Count = 1 Then
bingo = .SelectedItems(1)
Else
MsgBox ("Error")
Exit Sub
End If
End With
Documents.Open FileName:=bingo
adresse = ActiveDocument.Path & "\"
Nom = ActiveDocument.Name
Nom = Left(Nom, Len(Nom) - 4) & "_Ready.txt"
Selection.TypeParagraph
Selection.TypeText Text:="hello"
ActiveDocument.SaveAs FileName:=adresse & Nom, FileFormat:=wdFormatText
ActiveWindow.Close
End Sub