office2010启动总是提示正在配置

有时候安装多正常的，直接就能用，但现在我安装老是提示有问题，下次这样试验一下。
首先安装好系统补丁，重启后安装office，组件那选择可以不安装这些 InfoPath ,OneNote ,Outlook ,Publisher ,微软拼音, 其他都默认吧，把现有目录记住删了。安装完先运行excel
如果你已经错过经验步骤，那下面这个reg命令可以解决word提示
reg add HKCU\Software\Microsoft\Office\14.0\Word\Options /v NoReReg /t REG_DWORD /d 1
改掉setup.exe名字可以解决excel提示
C:\Program Files\Common Files\microsoft shared\OFFICE14\Office Setup Controller\

,

继续阅读

vbs读取和修改excel文件

Set xlapp= CreateObject("Excel.Application") '调用office组件
Set xlbook = xlapp.Workbooks.Open(xlspath)   '打开一个XLS文件
Set xlsheet = xlbook.Sheets(1)'选择表对象
Msgbox xlsheet.Range("A8").Value '//得到单元格A8的值
xlsheet.Range("A8").Value="hello world" '//改写单元格A8的值
xlsheet.Rows(cur).Delete'删除第cur这一行，注意是立即的，比如删3，下行4的行号会变成3。注意减cur
xlbook.save '保存文件
Set xlsheet=Nothing '关闭表
xlbook.Close '关闭文件
Set xlbook=Nothing '释放
xlapp.Quit '关闭组件
set xlapp = Nothing '释放组件
WScript.Echo "成功，一定要注意关闭不成功会意外，而且进程会始终保持"
 
'下面是一些对单元格设置的属性
.NumberFormatLocal = "@"
.Font.Bold = True
.Font.Size = 12
.Interior.ColorIndex = 37
.HorizontalAlignment = 3 '居中
.font.ColorIndex=2
'获取列数 xlsheet.fields.count
'获取行数 xlsheet.RecordCount

, , ,

继续阅读

人声阅读网页的VBS脚本，体验office语音功能

'可能对你没用，但有意思，可以试下注意电脑要装office，而且有创建这个组件的权限，虚拟主机上就不要试了。
strURL = "http://www.baidu.com/"
Set ie = WScript.CreateObject("InternetExplorer.Application")   
ie.visible = True  
ie.navigate strURL   
Do  
    Wscript.Sleep 200   
Loop Until ie.ReadyState = 4  
strContent = ie.document.body.innerText   
Set objVoice = CreateObject("SAPI.SpVoice")   
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)    这个在win7上运行不了
objVoice.Rate = -2 '速度:-10,10 0
objVoice.Volume = 100 '声音:0,100 100   
objVoice.Speak strContent

, ,

继续阅读

页码 1 / 11