在不知Office安装路径的情况下怎么打开word文件？

2006-03-31 11:35:29 996 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于ESP32-C3的便携式血氧仪硬件与算法实现血氧饱和度（SpO₂）监测是生理参数无创检测的核心技术之一，其原理基于光电容积脉搏波（PPG）信号中红光与红外光吸收比值的动态变化。该技术依赖高精度模拟前端、稳定光学激励及实时数字信号处理能力，在消费级健康设备中面临功耗、体积与测量鲁棒性的多重约束。ESP32-C3凭借集成LEDC、12位ADC与低功耗双核架构，成为PPG终端的理想主控平台；结合定制化指夹式光学探头与比率法血氧算法，可实现非诊断级但趋势可靠的日常健康监测。本文围绕硬件电路设计、电源管理策略与嵌入式信号处理流程展开，覆盖从LED驱动、跨阻放大阅读详情

当然用Shell "winword.exe C:\test.doc"可以打开word,现在我不知道，能用其它方式打开吗？

...全文

【论文分享】【Agent】ProAgent: Building Proactive Cooperative Agents with Large Language Models 多智能体系统是由多个智能体组成的集合，这些智能体可以是软件程序、机器人、传感器或其他实体，它们各自具备一定的智能和自主性，并通过交互协作来实现单个智能体难以完成的复杂目标。阅读详情

daixinhou

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

daixinhou 2006-03-31

打赏
举报

再问一句，能不能通过扩展名打开相应的文件？

zhangyuqin 2006-03-31

打赏
举报

使用办公自动化，创建Word对象实例，这样不管Office装在哪都能打开了，这种方法可以打开各种Office文档，如Excel等，只要创建相应的实例就行了，具体方法可以看看相关教程或者Google一下。

ZOU_SEAFARER 2006-03-31

打赏
举报

默认是：
ffice2k是在"C:\Program Files\Microsoft Office\Office"
officeXP是在"C:\Program Files\Microsoft Office\Office10"
如果不是安装在C盘，或安装时自己改变了目录，又怎样得知？？？

请提供代码
---------------------------------------------------------------

读注册表
---------------------------------------------------------------

读注册表

模块
Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) _
As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal _
lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, ByVal lpData As String, lpcbData As Long) _
As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Const REG_SZ As Long = 1
Private Const KEY_ALL_ACCESS = &H3F
Private Const HKEY_LOCAL_MACHINE = &H80000002

Public Function GetWordPath() As String
GetWordPath = GetOfficeAppPath("Word.Application")
End Function
Public Function GetExcelPath() As String
GetExcelPath = GetOfficeAppPath("Excel.Application")
End Function
Public Function GetAccessPath() As String
GetAccessPath = GetOfficeAppPath("Access.Application")
End Function
Public Function GetOutlookPath() As String
GetOutlookPath = GetOfficeAppPath("Outlook.Application")
End Function
Public Function GetPowerPointPath() As String
GetPowerPointPath = _
GetOfficeAppPath("PowerPoint.Application")
End Function
Public Function GetFrontPagePath() As String
GetFrontPagePath = GetOfficeAppPath("FrontPage.Application")
End Function
Private Function GetOfficeAppPath(ByVal ProgID As String) _
As String
Dim lKey As Long
Dim lRet As Long
Dim sClassID As String
Dim sAns As String
Dim lngBuffer As Long
Dim lPos As Long
'GetClassID
lRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"Software\Classes\" & ProgID & "\CLSID", 0&, _
KEY_ALL_ACCESS, lKey)
If lRet = 0 Then

lRet = RegQueryValueEx(lKey, "", 0&, REG_SZ, "", lngBuffer)
sClassID = Space(lngBuffer)
lRet = RegQueryValueEx(lKey, "", 0&, REG_SZ, sClassID, _
lngBuffer)
'drop null-terminator
sClassID = Left(sClassID, lngBuffer - 1)
RegCloseKey lKey
End If

'Get AppPath
lRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"Software\Classes\CLSID\" & sClassID & _
"\LocalServer32", 0&, KEY_ALL_ACCESS, lKey)

If lRet = 0 Then
lRet = RegQueryValueEx(lKey, "", 0&, REG_SZ, "", lngBuffer)
sAns = Space(lngBuffer)
lRet = RegQueryValueEx(lKey, "", 0&, REG_SZ, sAns, _
lngBuffer)
sAns = Left(sAns, lngBuffer - 1)

RegCloseKey lKey
End If

lPos = InStr(sAns, "/")
If lPos > 0 Then
sAns = Trim(Left(sAns, lPos - 1))
End If

GetOfficeAppPath = sAns

End Function

测试
Private Sub Command1_Click()
MsgBox GetWordPath()
End Sub

daixinhou 2006-03-31

打赏
举报

言深之意，在不知道文件扩展名的情况下怎样打开文件？

of123 2006-03-31

打赏
举报

支持 ShellExecute，它会根据文件关联启动相应的程序。

XLYT 2006-03-31

打赏
举报

定义一个WORD.APPLICATION对象。

vansoft 2006-03-31

打赏
举报

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

根據文件的關聯，調用相關的軟件打開文件。

在不知Office安装路径的情况下怎么打开word文件？

相关推荐