如何在Windows 10中以编程方式更改office的默认保存位置
在Windows 10中，可以通过编程方式更改Office的默认保存位置。以下是一种实现方法：
- 使用Visual Basic for Applications（VBA）编写一个宏来更改Office的默认保存位置。以下是一个示例代码，可以将默认保存位置更改为指定的文件夹路径：
Sub ChangeDefaultSaveLocation()
Dim regKey As Object
Dim newValue As String
' 设置新的默认保存位置
newValue = "C:\Documents\MyOfficeFiles"
' 打开注册表项
Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\General\DefaultFileLocation", newValue, "REG_SZ")
' 刷新注册表
Application.Wait (Now + TimeValue("0:00:02"))
' 关闭注册表项
Set regKey = Nothing
' 显示消息框，提示更改成功
MsgBox "默认保存位置已更改为：" & newValue, vbInformation
End Sub- 打开Office应用程序（如Word、Excel等），按下Alt + F11组合键打开VBA编辑器。
- 在VBA编辑器中，选择适当的项目（如ThisWorkbook、ThisDocument等），然后插入一个新的模块。
- 将上述示例代码复制粘贴到新的模块中。
- 修改代码中的
newValue变量的值为你想要设置的默认保存位置的文件夹路径。 - 关闭VBA编辑器。
- 现在，每次使用Office应用程序保存文件时，都会将文件保存到指定的默认保存位置。
需要注意的是，上述示例代码中的注册表路径适用于Office 2016版本（16.0）。如果你使用的是其他版本的Office，请相应地修改注册表路径。
此外，腾讯云提供了一系列与云计算相关的产品和服务，如云服务器、云数据库、云存储等。你可以根据具体需求选择适合的产品。详细的产品介绍和相关链接可以在腾讯云官方网站上找到。
相关·内容
2回答
从Excel VBA宏优化的SAP GUI脚本
excel、vba、sap-gui
我试图将Excel优化为SAP连接，并且不想在启动以下代码时出现的两个消息框上单击"OK“：
1 Sub SAP_1()
2
3 Dim obj_Shell As Object
4 Dim obj_SAPGUI As Object
5 Dim obj_Application As Object
6 Dim obj_Connection As Object
7 Dim obj_session As Object
8
9 Application.DisplayAlerts = False
10 Shell "C:\Program Files (x86)
浏览 6提问于2022-02-21得票数 0
回答已采纳
1回答
更改Excel宏设置的本机VBA方法
excel、vba
假设此选项是已在Excel上启用的：
启用所有宏(不推荐)
我想将该设置更改为：
禁用除数字签名宏之外的所有
我可以使用下面的注册表设置并由VBA.CreateObject("WScript.Shell")应用
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Security]
"VBAWarnings"=dword:00000003
但是，我询问的是Windows注册表编辑以外的本地VBA方法。
谢谢你的帮助。
浏览 9提问于2022-03-28得票数 1
回答已采纳
1回答
识别(Excel2007)中的固定RecentFiles ( VBA )或其他？
vba、excel、excel-2007、ribbon
除了扫描注册表之外，是否有一种方法可以确定RecentFile对象是否固定在“最近的文档”列表中？从VBA到偏好，可以在外接程序中生存的东西。
背景:我希望说服Excel将固定的项目“浮动”到列表的顶部(或底部)，只要我能识别出感兴趣的项目，就可以通过将它们重新Add到RecentFiles来实现。
我可以在注册表中(在HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\File MRU内)看到固定项在那里被识别，例如：
[F00000001][T01CC04D632020F50]*C:\Files\ThisOneIsPinned.xl
浏览 0提问于2011-04-27得票数 4
回答已采纳
2回答
以编程方式打开Excel的“信任中心设置”对话框
vba、excel、vsto
我需要用户点击“对VBA项目对象模型的信任访问”，这样我正在构建的应用程序就可以帮助他们将代码导入VBE。
我可以显示一个消息框或提供文档，告诉他们如何更改设置(并警告如果他们更改了设置的话会产生什么影响)。但是，这个设置仍然隐藏在Excel UI...in的事实中5次点击，甚至我也很难记住在哪里找到它。
所以我想做的是以编程的方式为他们打开那个窗口。
我也许可以使用出了名的变化无常的SendKeys方法，但我想知道是否有更好的方法.
(我看到，您实际上可以通过宏为用户设置对VBA项目对象模型的访问，方法是在目标Office应用程序没有按照运行键时使用VBS脚本来更改键的值，但我更希望用户手动
浏览 10提问于2014-08-11得票数 5
回答已采纳
5回答
VBA中公共变量的替代方案
vba、excel
我有许多公共变量被跨几个模块引用。我知道，如果您调试或点击停止，变量将被清除。我一直在把这些变量写到一个电子表格中，这样我就有了它们，以防它们被清除掉，但这是很麻烦的。我宁愿让它全部存储它的代码。除了一个从未被清除的公共变量之外，还有其他选择吗？
浏览 3提问于2014-05-28得票数 5
回答已采纳
2回答
在打开的单元格中显示Excel帐户用户名
vba、excel、ms-office
使用Office 2013时，我尝试插入VBA代码以自动输入员工姓名，因为它显示在任何Office产品的右上角，并显示在打开excel电子表格的单元格B2中。我使用的当前代码是
Sub Auto_Open()
Range("B2").Value = " " & Application.UserName
End Sub
然而，这只是让它显示“授权用户”。
我做错了什么？
浏览 5提问于2017-12-14得票数 6
1回答
如何使用宏在Excel中显示“开发人员”选项卡？(Excel VBA)
excel、vba
我正在寻找一种方法来打开导入XML选项(下面突出显示)通过宏命令...
到目前为止，我已经尝试过使用Application.SendKeys ("%lt") --它是有效的，但只有在功能区中启用了“开发人员”选项卡--不幸的是，我的很多用户都不会启用这个选项卡。所以我想是否有可能切换这个复选框-(文件，>>，Excel选项，>>，显示开发人员选项卡)
我将使Developer选项卡在用户的Excel中可见，然后使用Sendkeys。或者，如果这是不可能的，有没有办法，我可以调用导入XML选项通过任何其他方式在宏中？调用Import X
浏览 0提问于2021-11-24得票数 0
1回答
使用vbs在注册表中搜索路径的未知部分。
vbscript
我使用路径来定位包含可以更改的guid的信息片段。我对guid值进行了硬编码，但是当它更改时，它就不能工作了。我需要动态地发现那个guid。我知道guid的另一端有一个值，并有一个REG查询来查找整个路径，但我不知道如何捕获该路径。
下面是REG查询：
REG Query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products /D /V /F "Microsoft Office Professional Plus 2010" /S /E
它返回值"Disp
浏览 0提问于2016-12-07得票数 1
2回答
使用Windows Shell从VBA内部读取注册表键
vba、cmd、registry、adodb、shellexecute
我一直在网上搜索，并且在寻找解决这个问题的方法上遇到了困难。
基本上，我试图使用VBA内部的Shell.Application使用管理员权限执行注册表查询，以读取TypeGuessRows的值(并最终将其修改为0，以便可以使用ADOdb正确查询excel数据)。我想出了以下子程序：
Sub Read_Registry_Value()
'Declare variables
Dim reg_key_location As String
Dim reg_key_name As String
Dim wsh As Object
'Define registry key path a
浏览 12提问于2016-09-13得票数 2
3回答
优化最佳外观选项破坏用户窗体
excel、vba、userform
我有以下问题:我的客户端更新了Excel版本，所有的用户表单似乎都被破坏了。(在这里描述：)
在较新的Excel版本中，有一个特殊的默认设置“优化最佳外观”(当使用多个显示)会导致问题。当我切换到“优化兼容性”选项时，问题就消失了。
问题：是否知道如何以编程方式更改此设置(在VBA代码中)？
我试图记录宏并更改设置，但没有运气。结果程序为空。
浏览 2提问于2020-08-13得票数 0
回答已采纳
5回答
如何在Excel中打开特定版本的Word 2007/2010
vba、excel、ms-word
我已经安装了Word 2007和2010。我需要从Excel中打开Word，但我需要指定需要在VBA中打开的版本。
我尝试过延迟绑定
Dim wordApp2007 As Object
Dim wordApp2010 As Object
Set wordApp2007 = CreateObject("Word.Application.12")
wordApp2007.Visible = True
Set wordApp2010 = CreateObject("Word.Application.14")
wordApp2010.Visible = True
但两
浏览 0提问于2012-08-22得票数 10
回答已采纳
2回答
如何在C#中添加嵌套的注册表项/值？
c#、.net、registry
给定注册表路径"\a\b\c\d"，我想向注册表项'd‘添加一个值。问题是-我甚至不知道a、b或c是否存在，如果它们不存在，我希望代码生成它们。有没有一种快速的方法(使用一些我没有见过的.NET方法)来做到这一点？我可以走迭代注册表项的路线，并使用OpenSubKey/GetValue/SetValue方法来执行该过程，但如果可以的话，我希望避免重复发明轮子……
注:我正在寻找的行为与您从运行.reg文件获得的行为相同(它将创建必要的子键)。
谢谢,
Assaf
浏览 5提问于2010-11-18得票数 8
回答已采纳
2回答
循环遍历PDF文件，并使用word将它们转换为doc。
vba、pdf、ms-word
我正在尝试使用VBA编码--这是我刚刚开始使用的--从PDF (不是图像)获得一系列.doc文档，也就是说，我试图循环各种PDF文件并以MS Word格式保存它们。我的经验是，word很好地阅读了我所拥有的PDF文档: word大部分时间都维护PDF文件的正确布局。我不确定这是否是解决这一问题的正确选择，我要求一个替代建议--如果可能的话，使用R。
总之，这是我找到的代码
Sub convertToWord()
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir("C:\Users\us
浏览 4提问于2017-08-25得票数 11
回答已采纳
2回答
在Excel VBA中禁用SAP登录弹出窗口
excel、vba
我有一个VBA代码，这有助于登录SAP。代码运行良好，但当它建立连接时，我会收到一个警告弹出窗口。
我需要绕过或禁用此警告弹出窗口。我已经写好了代码，但它不是working.Please帮助
Sub code1()
If Not IsObject(SAPguiApp) Then
Set SAPguiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If Not IsObject(Connection) Then
Set Connection = SAPguiApp.OpenConnection(&
浏览 1提问于2018-12-13得票数 3
2回答
注册没有管理权限/权限的.Net COM DLL
.net、vba、dll、registry、regasm
最近，我用C#编写了一个类库，供Office应用程序使用，其中包括一个可供70人使用的关键访问应用程序。对于拥有管理权限的用户来说，注册DLL很简单，但是让DLL在其他机器上工作是有问题的。
注册DLL以便与管理权限一起使用
在中生成DLL。确保在项目的应用程序选项卡上选择了这些选项：
输出类型：类库
程序集信息：使程序集COM-可见:选中
使用提升的命令提示符注册程序集：
RegAsm YourDll.dll /tlb /codebase
在VBA: Tools中添加对YourDll.tlb的引用->引用
验证是否可以创建
浏览 5提问于2016-05-12得票数 25
回答已采纳
3回答
VBA:预处理时访问注册表
vba、excel、compilation、preprocessor-directive
我希望在一个VBAproject中有条件地编译代码，其中的条件取决于某些注册表项。这在VBA中是有可能的吗？
我知道在VBA中有一些简单的预处理可能性，但我无法在预处理时以某种方式访问注册表。或者在编译之前检查注册表的其他一些可能性。
由于缺少一些引用(因此缺少了类对象)，所以我得到了一个编译错误，所以在编译之前我会检查注册表。
附注：我只想读注册表条目。
作为一个例子。如何在以下方面达到debug.print，即避免编译错误。
sub sub1()
dim testobj as new nonexistingobject
sub2 testobj
debug.print &
浏览 2提问于2014-07-03得票数 1
回答已采纳
1回答
Outlook 2019注册表配置文件位置
outlook
这个问题这么简单的答案？不要紧!请仔细阅读，然后再由谷歌回答。
今天，我遇到了一个Office 365，安装方式很奇怪，安装在这个位置: C:\Program Files\WindowsApps\Microsoft.Office.Desktop.Outlook_16051.11601.20204.0_x86__8wekyb3d8bbwe\Office16
我有一个应用程序，改变每个帐户的默认签名，从office 2000到2019年(在个人电脑上，不包括这一个)。
我能够更改注册表配置文件位置(HKCU\SOFTWARE\Microsoft\Office\16.0\Outlook\Profil
浏览 1提问于2019-05-20得票数 1
1回答
以编程方式更改Windows Shell
c#、windows、shell、registry
我正在做一个项目，这个项目将被“嵌入”到Windows7系统中，这将通过禁用任务管理器和更改应用程序的Windows shell以及其他事情来实现。
我在这里要做的是在应用程序和explorer.exe之间以编程方式更改Windows shell，我想知道在C#中是否有任何方法可以做到这一点。
目前，我有几行代码试图更改Windows Shell的注册表项，但在刷新注册表编辑器后似乎没有任何反应，代码如下：
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", true).OpenSubKey("Micros
浏览 3提问于2011-10-11得票数 14
回答已采纳
1回答
检查是否安装了Visual C++ 2010 -无工作
vb.net、visual-studio-2010、visual-c++、registry
对于我的程序，我想让它检查是否已经安装了Visual C++，并且通过一点谷歌搜索，我可以通过检查注册表项来检查它们是否已经安装，如下所述：
问题是，当我实际运行程序时，什么也没有发生。我试着以管理员的身份运行它，仍然没有任何反应。下面是我的代码：
Imports Microsoft.Win32
Public Class Form1
Public Sub Form1_Load()
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Micros
浏览 0提问于2013-05-20得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
