terça-feira, 8 de julho de 2014

Adicionando Dropbox e GoogleDrive ao Office 2013

Uma das coisas bacanas do Office 2013 é o fato dele vir de fábrica pensado para trabalhar na nuvem. A coisa chata é que por padrão a única nuvem que existe é a da própria Microsoft. =/ Felizmente encontrei esse artigo no technet sobre como habilitar o Google Drive e o Dropbox dentro do Office 2013.

A primeira coisa que você precisa fazer é conseguir o script SaveFolders.ps1 diretamente no site do technet, ou copiar o mesmo abaixo e colar em um novo arquivo.



###################################################################### This script is not supported under any Microsoft standard support ## program or service. The script is provided AS IS without warranty # #                                                                   ## Created by: Andreas Molin                                         ## Year: 2014                                                        ## Website: www.guidestomicrosoft.wordpress.com                      ######################################################################
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")

### Add Forms$objMainForm = New-Object System.Windows.Forms.Form$objMainForm.Text = "Add save locations to Office 2013"$objMainForm.Size = New-Object System.Drawing.Size(510,260)$objMainForm.KeyPreview = $True$objMainForm.FormBorderStyle = "1"$objMainForm.MaximizeBox = $false$objMainForm.StartPosition = "CenterScreen"
$objAboutForm = New-Object System.Windows.Forms.Form$objAboutForm.Text = "About"$objAboutForm.Size = New-Object System.Drawing.Size(310,170)$objAboutForm.KeyPreview = $True$objAboutForm.FormBorderStyle = "1"$objAboutForm.MaximizeBox = $false$objAboutForm.StartPosition = "CenterScreen"
$objHelpForm = New-Object System.Windows.Forms.Form$objHelpForm.Text = "Help"$objHelpForm.Size = New-Object System.Drawing.Size(380,180)$objHelpForm.KeyPreview = $True$objHelpForm.FormBorderStyle = "1"$objHelpForm.MaximizeBox = $false$objHelpForm.StartPosition = "CenterScreen"
$objWarningFormDB = New-Object System.Windows.Forms.Form$objWarningFormDB.Text = "Key exists"$objWarningFormDB.Size = New-Object System.Drawing.Size(225,110)$objWarningFormDB.KeyPreview = $True$objWarningFormDB.FormBorderStyle = "1"$objWarningFormDB.MaximizeBox = $false$objWarningFormDB.StartPosition = "CenterScreen"
$objWarningFormGD = New-Object System.Windows.Forms.Form$objWarningFormGD.Text = "Key exists"$objWarningFormGD.Size = New-Object System.Drawing.Size(225,110)$objWarningFormGD.KeyPreview = $True$objWarningFormGD.FormBorderStyle = "1"$objWarningFormGD.MaximizeBox = $false$objWarningFormGD.StartPosition = "CenterScreen"
$objScanGdForm = New-Object System.Windows.Forms.Form$objScanGdForm.Text = "Feature comming soon!"$objScanGdForm.Size = New-Object System.Drawing.Size(300,170)$objScanGdForm.KeyPreview = $True$objScanGdForm.FormBorderStyle = "1"$objScanGdForm.MaximizeBox = $false$objScanGdForm.StartPosition = "CenterScreen"
$objErrorForm = New-Object System.Windows.Forms.Form$objErrorForm.Text = "Error"$objErrorForm.Size = New-Object System.Drawing.Size(225,110)$objErrorForm.KeyPreview = $True$objErrorForm.FormBorderStyle = "1"$objErrorForm.MaximizeBox = $false$objErrorForm.StartPosition = "CenterScreen"
$objCompleteForm = New-Object System.Windows.Forms.Form$objCompleteForm.Text = "Completed"$objCompleteForm.Size = New-Object System.Drawing.Size(225,110)$objCompleteForm.KeyPreview = $True$objCompleteForm.FormBorderStyle = "1"$objCompleteForm.MaximizeBox = $false$objCompleteForm.StartPosition = "CenterScreen"
### Add Buttons$ApplyButton = New-Object System.Windows.Forms.Button$ApplyButton.Location = New-Object System.Drawing.Size(330,190)$ApplyButton.Size = New-Object System.Drawing.Size(75,25)$ApplyButton.Text = "Apply"$objMainForm.Controls.Add($ApplyButton)
$CancelButton = New-Object System.Windows.Forms.Button$CancelButton.Location = New-Object System.Drawing.Size(410,190)$CancelButton.Size = New-Object System.Drawing.Size(75,25)$CancelButton.Text = "Close"$objMainForm.Controls.Add($CancelButton)
$AboutButton = New-Object System.Windows.Forms.Button$AboutButton.Location = New-Object System.Drawing.Size(10,190)$AboutButton.Size = New-Object System.Drawing.Size(75,25)$AboutButton.Text = "About"$objMainForm.Controls.Add($AboutButton)
$HelpButton = New-Object System.Windows.Forms.Button$HelpButton.Location = New-Object System.Drawing.Size(90,190)$HelpButton.Size = New-Object System.Drawing.Size(75,25)$HelpButton.Text = "Help"$objMainForm.Controls.Add($HelpButton)
$BrowseDbButton = New-Object System.Windows.Forms.Button$BrowseDbButton.Location = New-Object System.Drawing.Size(280,60)$BrowseDbButton.Size = New-Object System.Drawing.Size(75,25)$BrowseDbButton.Text = "Browse"$objMainForm.Controls.Add($BrowseDbButton)
$BrowseGdButton = New-Object System.Windows.Forms.Button$BrowseGdButton.Location = New-Object System.Drawing.Size(280,130)$BrowseGdButton.Size = New-Object System.Drawing.Size(75,25)$BrowseGdButton.Text = "Browse"$objMainForm.Controls.Add($BrowseGdButton)
$ScanDbButton = New-Object System.Windows.Forms.Button$ScanDbButton.Location = New-Object System.Drawing.Size(355,60)$ScanDbButton.Size = New-Object System.Drawing.Size(120,25)$ScanDbButton.Text = "Find my folder"$objMainForm.Controls.Add($ScanDbButton)
$ScanGdButton = New-Object System.Windows.Forms.Button$ScanGdButton.Location = New-Object System.Drawing.Size(355,130)$ScanGdButton.Size = New-Object System.Drawing.Size(120,25)$ScanGdButton.Text = "Find my folder"$objMainForm.Controls.Add($ScanGdButton)
$CloseButton = New-Object System.Windows.Forms.Button$CloseButton.Location = New-Object System.Drawing.Size(210,100)$CloseButton.Size = New-Object System.Drawing.Size(75,25)$CloseButton.Text = "Close"$objAboutForm.Controls.Add($CloseButton)
$HelpClose = New-Object System.Windows.Forms.Button$HelpClose.Location = New-Object System.Drawing.Size(280,110)$HelpClose.Size = New-Object System.Drawing.Size(75,25)$HelpClose.Text = "Close"$objHelpForm.Controls.Add($HelpClose)
$FeatureClose = New-Object System.Windows.Forms.Button$FeatureClose.Location = New-Object System.Drawing.Size(215,100)$FeatureClose.Size = New-Object System.Drawing.Size(75,25)$FeatureClose.Text = "Close"$objScanGdForm.Controls.Add($FeatureClose)
$ErrorClose = New-Object System.Windows.Forms.Button$ErrorClose.Location = New-Object System.Drawing.Size(70,40)$ErrorClose.Size = New-Object System.Drawing.Size(75,25)$ErrorClose.Text = "Close"$objErrorForm.Controls.Add($ErrorClose)
$WarningDb = New-Object System.Windows.Forms.Button$WarningDb.Location = New-Object System.Drawing.Size(70,40)$WarningDb.Size = New-Object System.Drawing.Size(75,25)$WarningDb.Text = "Close"$objWarningFormDB.Controls.Add($WarningDb)
$WarningGd = New-Object System.Windows.Forms.Button$WarningGd.Location = New-Object System.Drawing.Size(70,40)$WarningGd.Size = New-Object System.Drawing.Size(75,25)$WarningGd.Text = "Close"$objWarningFormGD.Controls.Add($WarningGd)
$CompletedOK = New-Object System.Windows.Forms.Button$CompletedOK.Location = New-Object System.Drawing.Size(70,40)$CompletedOK.Size = New-Object System.Drawing.Size(75,25)$CompletedOK.Text = "OK"$objCompleteForm.Controls.Add($CompletedOK)
#### Add Lables$objDbLabel = New-Object System.Windows.Forms.Label$objDbLabel.Location = New-Object System.Drawing.Size(10,40)$objDbLabel.Size = New-Object System.Drawing.Size(390,20)$objDbLabel.Text = "Enter path to Dropbox folder (C:\Documents\Dropbox)"$objMainForm.Controls.Add($objDbLabel)
$objGdLabel = New-Object System.Windows.Forms.Label$objGdLabel.Location = New-Object System.Drawing.Size(10,110)$objGdLabel.Size = New-Object System.Drawing.Size(390,20)$objGdLabel.Text = "Enter path to Google Drive folder (C:\Documents\GoogleDrive)"$objMainForm.Controls.Add($objGdLabel)
$objAboutLabel = New-Object System.Windows.Forms.Label$objAboutLabel.Location = New-Object System.Drawing.Size(10,10)$objAboutLabel.Size = New-Object System.Drawing.Size(280,90)$objAboutLabel.Text = "Add Dropbox and Google Drive as save locations `n`nCreated by: Andreas Molin `n`nDate: 2014-02-09 `n`nVersion 1.0"$objAboutForm.Controls.Add($objAboutLabel)
$objHelpLabel = New-Object System.Windows.Forms.Label$objHelpLabel.Location = New-Object System.Drawing.Size(10,10)$objHelpLabel.Size = New-Object System.Drawing.Size(340,90)$objHelpLabel.Text = "1. Make sure that you have logged on to your account in Office `n`n2. Select your Dropbox- and Google drive folder `n`n3. Click `"Apply`" `n`n4. Start or restart your Office product to add selected folder/folders"$objHelpForm.Controls.Add($objHelpLabel)
$linkLabel = New-Object System.Windows.Forms.LinkLabel$linkLabel.Location = New-Object System.Drawing.Size(22,110)$linkLabel.Size = New-Object System.Drawing.Size(200,30)$linkLabel.Text = "For more information, click here"$objHelpForm.Controls.Add($linkLabel)
$linkLabel2 = New-Object System.Windows.Forms.LinkLabel$linkLabel2.Location = New-Object System.Drawing.Size(10,110)$linkLabel2.Size = New-Object System.Drawing.Size(200,30)$linkLabel2.Text = "Website"$objAboutForm.Controls.Add($linkLabel2)
$objFeatureLabel = New-Object System.Windows.Forms.Label$objFeatureLabel.Location = New-Object System.Drawing.Size(10,10)$objFeatureLabel.Size = New-Object System.Drawing.Size(280,140)$objFeatureLabel.Text = "At the moment, this feature is missing. `n`nThis is due to Google using SQLite3 in their database file. `n`nRight now, this is not easy to integrate in Powershell. Stay tuned for updates!"$objScanGdForm.Controls.Add($objFeatureLabel)
$ErrorLabel = New-Object System.Windows.Forms.Label$ErrorLabel.Location = New-Object System.Drawing.Size(10,10)$ErrorLabel.Size = New-Object System.Drawing.Size(210,50)$ErrorLabel.Text = "Please select at least one folder to add!"$objErrorForm.Controls.Add($ErrorLabel)
$WarningDbLabel = New-Object System.Windows.Forms.Label$WarningDbLabel.Location = New-Object System.Drawing.Size(25,10)$WarningDbLabel.Size = New-Object System.Drawing.Size(210,50)$WarningDbLabel.Text = "Entry for Dropbox allready exists!"$objWarningFormDB.Controls.Add($WarningDbLabel)
$WarningGdLabel = New-Object System.Windows.Forms.Label$WarningGdLabel.Location = New-Object System.Drawing.Size(10,10)$WarningGdLabel.Size = New-Object System.Drawing.Size(210,50)$WarningGdLabel.Text = "Entry for Google Drive allready exists!"$objWarningFormGD.Controls.Add($WarningGdLabel)
$CompletedLabel = New-Object System.Windows.Forms.Label$CompletedLabel.Location = New-Object System.Drawing.Size(25,10)$CompletedLabel.Size = New-Object System.Drawing.Size(210,50)$CompletedLabel.Text = "Operation completed successfully!"$objCompleteForm.Controls.Add($CompletedLabel)
### Add TextBoxes$DbBox = New-Object System.Windows.Forms.TextBox$DbBox.Location = New-Object System.Drawing.Size(12,62)$DbBox.Size = New-Object System.Drawing.Size(250,10)$objMainForm.Controls.Add($DbBox)
$GdBox = New-Object System.Windows.Forms.TextBox$GdBox.Location = New-Object System.Drawing.Size(12,132)$GdBox.Size = New-Object System.Drawing.Size(250,10)$objMainForm.Controls.Add($GdBox)
### Actions$CompletedOK.add_click({    $objCompleteForm.Close()})
$WarningDb.add_click({    $objWarningFormDB.Close()})
$WarningGd.add_click({    $objWarningFormGD.Close()})$ErrorClose.add_click({    $objErrorForm.Close()})
$FeatureClose.add_click({    $objScanGdForm.Close()})
$linkLabel.add_click({    [System.Diagnostics.Process]::Start("http://guidestomicrosoft.wordpress.com/2014/02/09/updated-add-dropbox-and-google-drive-as-save-locations-in-office-2013")})
$linkLabel2.add_click({    [System.Diagnostics.Process]::Start("http://www.guidestomicrosoft.wordpress.com/")})
$CloseButton.add_click({    $objAboutForm.Close()})
$HelpClose.add_click({    $objHelpForm.Close()})$CancelButton.add_click({    $objMainForm.Close()})
$AboutButton.add_click({    $objAboutForm.Add_Shown({$objAboutForm.Activate()})    [void] $objAboutForm.ShowDialog()})
$HelpButton.add_click({    $objHelpForm.Add_Shown({$objHelpForm.Activate()})    [void] $objHelpForm.ShowDialog()})
$ScanDbButton.add_click({    ScanDb})
$BrowseDbButton.add_click({    BrowseDb})
$ScanGdButton.add_click({    $objScanGdForm.Add_Shown({$objScanGdForm.Activate()})    [void] $objScanGdForm.ShowDialog()})
$BrowseGdButton.add_click({    BrowseGd})
$ApplyButton.add_click({    if(!($DbBox.text) -and !($GdBox.Text))    {        $objErrorForm.Add_Shown({$objErrorForm.Activate()})        [void] $objErrorForm.ShowDialog()    }    elseif(($DbBox.text) -and !($GdBox.Text))    {        AddDropbox        $objCompleteForm.Add_Shown({$objCompleteForm.Activate()})        [void] $objCompleteForm.ShowDialog()
    }    elseif(!($DbBox.text) -and ($GdBox.Text))    {        AddGoogleDrive        $objCompleteForm.Add_Shown({$objCompleteForm.Activate()})        [void] $objCompleteForm.ShowDialog()    }    elseif(($DbBox.text) -and ($GdBox.Text))    {        AddDropbox        AddGoogleDrive        $objCompleteForm.Add_Shown({$objCompleteForm.Activate()})        [void] $objCompleteForm.ShowDialog()    }})
### Functionsfunction ScanDb{    $Base64DbPath = Get-Content ([Environment]::GetFolderPath("ApplicationData") + "\Dropbox\host.db") | Select-Object -Index 1    $DbPath = [System.Text.Encoding]::UTF8.GetString([System.Convert]::FromBase64String($Base64DbPath))
    $DbBox.Text = $DbPath}
function BrowseDb{    $DbBrowser = New-Object System.Windows.Forms.FolderBrowserDialog -Property @{    ShowNewFolderButton = $false    }
    [void]$DbBrowser.ShowDialog()    $DbBox.text = $DbBrowser.SelectedPath}
function BrowseGd{    $GdBrowser = New-Object System.Windows.Forms.FolderBrowserDialog -Property @{    ShowNewFolderButton = $false    }
    [void]$GdBrowser.ShowDialog()    $GdBox.Text = $GdBrowser.SelectedPath}
function AddDropbox{    $DbKey = "HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad"
    if(-not(Test-Path $DbKey))    {    New-Item -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name DisplayName -PropertyType String -Value 'Dropbox'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name Description -PropertyType String -Value 'Dropbox is a free service that lets you bring all your photos, docs, and videos anywhere.'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name Url48x48 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_48x48.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name LearnMoreURL -PropertyType String -Value https://www.dropbox.com/    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name ManageURL -PropertyType String -Value https://www.dropbox.com/account    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad' -Name LocalFolderRoot -PropertyType String -Value $DbBox.text
    New-Item -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url48x48 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_48x48.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url40x40 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_40x40.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url32x32 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_32x32.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url24x24 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_24x24.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url20x20 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_24x24.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\2c0ed794-6d21-4c07-9fdb-f076662715ad\Thumbnails' -Name Url16x16 -PropertyType String -Value http://dl.dropbox.com/u/46565/metro/Dropbox_16x16.png    }    else    {        $objWarningFormDB.Add_Shown({$objWarningFormDB.Activate()})        [void] $objWarningFormDB.ShowDialog()    }}
function AddGoogleDrive{    $GdKey = "HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66"        if(-not(Test-Path $GdKey))    {    New-Item -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name DisplayName -PropertyType String -Value 'Google Drive'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name Description -PropertyType String -Value 'Google Drive is a free service that lets you bring all your photos, docs, and videos anywhere.'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name Url48x48 -PropertyType String -Value http://k37.kn3.net/7DDDA8544.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name LearnMoreURL -PropertyType String -Value https://drive.google.com/    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name ManageURL -PropertyType String -Value https://drive.google.com/    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66' -Name LocalFolderRoot -PropertyType String -Value $GdBox.Text        New-Item -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails'    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url48x48 -PropertyType String -Value http://k37.kn3.net/7DDDA8544.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url40x40 -PropertyType String -Value http://k35.kn3.net/AA5EBCDA4.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url32x32 -PropertyType String -Value http://k31.kn3.net/022B096E1.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url24x24 -PropertyType String -Value http://k35.kn3.net/397FB33CC.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url20x20 -PropertyType String -Value http://k35.kn3.net/397FB33CC.png    New-ItemProperty -Path 'HKCU:\Software\Microsoft\Office\Common\Cloud Storage\ecc30fd0-4546-11e2-bcfd-0800200c9a66\Thumbnails' -Name Url16x16 -PropertyType String -Value http://k43.kn3.net/E5162FC3D.png    }    else    {        $objWarningFormGD.Add_Shown({$objWarningFormGD.Activate()})        [void] $objWarningFormGD.ShowDialog()    }}
function Apply(){    if($DbBox.text = '')    {        $objAboutForm.Add_Shown({$objAboutForm.Activate()})        [void] $objAboutForm.ShowDialog()    }}
### Activate Form$objMainForm.Add_Shown({$objMainForm.Activate()})[void] $objMainForm.ShowDialog()



O passo seguinte é executar o PowerShell como administrador (via menu iniciar, programas, executar como administrar com o botão direito sobre o ícone do Power Shell) e habilitar a execução de scripts com o comando abaixo:


Em seguida, abra o PowerShell como seu próprio usuário e execute o script


Será mostrada uma tela, onde você deverá colocar o caminho da sua pasta do Dropbox e do GoogleDrive. Clique em Apply.

Feito isso, ao abrir qualquer programa do Word ambos os diretórios ficarão disponíveis. Por uma questão de segurança, você deve desabilitar novamente a execução de scripts, repetindo o primeiro comando com a opção "restricted".