VBA - ファイルを保存するための保存先フォルダの選択

Question

私はVBAのnoobですので、少し助けが必要です。それが重要な場合、私はMac上でMicrosoft Word 2016を使用しています。私は、差し込み印刷を使って単語の文書を作成しています。その結果、単語の文書をセクション区切りに基づいて複数のページに分割する必要があります。私はページを分割するVBAコードとthisページを発見し、それは素晴らしい動作します。私が抱えている唯一の問題は、自分のコンピュータ上の無作為な場所に保存していることです（どのように保存するかは決まっていません）。ここで私が働いているコードです：ChangeFileOpenDirectoryが設定されている

Sub BreakOnSection()  
    ' Used to set criteria for moving through the document by section.  
    Application.Browser.Target = wdBrowseSection  

    'A mail merge document ends with a section break next page.  
    'Subtracting one from the section count stop error message.  
    For i = 1 To ((ActiveDocument.Sections.Count) - 1)  

'Note: If a document does not end with a section break,  
'substitute the following line of code for the one above:  
'For I = 1 To ActiveDocument.Sections.Count  

     'Select and copy the section text to the clipboard.  
     ActiveDocument.Bookmarks("\Section").Range.Copy  

     'Create a new document to paste text from clipboard.  
     Documents.Add  
     Selection.Paste  

    ' Removes the break that is copied at the end of the section, if any.  
     Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend  
     Selection.Delete Unit:=wdCharacter, Count:=1  
ChangeFileOpenDirectory "C:\"  
     DocNum = DocNum + 1  
    ActiveDocument.SaveAs fileName:="test_" & DocNum & ".doc"  
    ActiveDocument.Close  
     ' Move the selection to the next section in the document.  
    Application.Browser.Next  
    Next i  
    ActiveDocument.Close savechanges:=wdDoNotSaveChanges  
End Sub 

私が見るには、「C：\」にMac用の右されていないが、私は持って変更する必要があるだろうか、それは私どこに尋ねます結果のドキュメントをすべて保存しますか？個々のドキュメントごとにフォルダを選択するのではなく、すべてのドキュメントを保存して実行できるようにフォルダを1つ選択します。 ヘルプの事前のおかげで、私はGoogleの数時間を試してきましたが、まだこれについて確信が持てません。

Answer 1

は、私は、Mac上でこれをテストしていませんが、それはあなたがそれを保存し

Dim mySaveLocation As String 
Dim dlg As FileDialog 

Set dlg = Application.FileDialog(msoFileDialogFolderPicker) 
dlg.AllowMultiSelect = False 
dlg.Show 
mySaveLocation = dlg.SelectedItems.Item(1) 

とする必要があります

ActiveDocument.SaveAs fileName:= mySaveLocation & "\test_" & DocNum & ".doc"