1

この 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
4

1 に答える 1