北京课件制作 上海虚拟现实 广州动画制作 深圳建筑动画 天津三维动画 杭州光盘印刷 厦门企业宣传片 沈阳Flash动画 东莞企业宣传片 济南动画制作 北京光盘印刷 上海影视制作 杭州动画制作
 18 12
发新话题
打印

巨恶的office 2007

巨恶的office 2007

说实话,我还没看到过office2007在我电脑是运行,就说了这些话。
一直讨厌word的公式编辑器一定要用鼠标点来点去,给我的感觉是太慢了,特别是复杂点的公式,更是急得冒火。一直就想为什么没有人象word里面的域代码一样,写一套脚本语言来输入公式,不用动鼠标,全用手工输入就好了,特别是理科常用的下标,word里面要疯狂地ctrl++、ctrl+=切换不停,太麻烦了。
后来听说office2007能够手动输入公式了,下来一个安装,天啊!竟要XP SP1以上系统,我最讨厌XP啊!欲哭无泪!
再不想升级了,只用windows2000、linux和Latex,office2000基本上也不常用了,绝望。

TOP

巨恶的office 2007


时代在进步,历史在发展,技术在迅猛,跟不上步伐者,必定成为落伍者,更意味着被淘汰。每次更新换代都是时代文明进程的里程碑,更是文化程度的写照。

TOP

巨恶的office 2007

跟上“文明”的脚步需要钱啊,看看那些用落伍的386、486运行着Linux,而且还可以轻松编写各式各样的文档、进行各种形式的“办公”、甚至于搞网络服务的人,Windows下的可怜虫们,是不是当一个单细胞生物都可以使用电脑就是文明在进步呢?
office 2007只是富人的软件,而“肉食者鄙”,所以估计贫穷的聪明人是用不上了;再看看中国现在的大学和大学生,真正聪明的,有几个上得起大学?都是一些SB在混日子啊,这说明了什么呢?
----喘口气儿,话说得过激了点儿,对事儿不对人,楼上别介意,我只是说office、windows越来越让我们平民百姓象烧钱一样使用,太过分了。它不值我们给它投入的那些钱,如果花一万元买机器运行Linux,简直它可以飞起来,运行windows呢?得感谢清华牛人王垠,我想,值得看看。

TOP

巨恶的office 2007

此言极是,我们单位的电脑换了一茬又一茬,软件更新换代简直是吓人,还没有完全掌握顺手,就又来新的了,搞的技术人员焦头烂额,连打印机也是跟着换代,一种机型用不到3月,就有新的换代产品,扫描仪也是,我们使用的老的AGFA,只能在98下使用正常,在XP下都没有驱动程序支持,但是98系统有不支持USB接口,很多外设用不上,老的98系统就已经的很好的了,顺手的很,那时,搞的我们头也是很痛,人家都使用ME了,又2000了,又NT了,紧接着就XP了,马上就XP2了,现在又整个什么VSTA,了,听说机器的内存没有2G,系统都无法跑起来,效果要好,得4G内存运行,使用CF卡,原来的64M,简直现在都没有人用了,4G的CF闪存卡,到处都是,,都是需要大量的RMB投入啊,刚投入,就成为过时的垃圾产品了。

TOP

巨恶的office 2007

大家基本上在电脑上是少花钱,多使用,但是该换硬件时也得换啊,我的原则是,买硬件,基本上用免费的软件

TOP

巨恶的office 2007

嗯,最近单位一批新电脑全预装了VISTA,但是好多同事不习惯,全要求改回XP
也看了一台预装的office2007,晕倒中,特不习惯,
也感觉巨恶,习惯还是需要一段时间

TOP

巨恶的office 2007

WPS还是不错的,我用2007做的报表:
Private Sub Command1_Click() ';创建报表,得找个人看着,随时修改可能出现的表格跨页
    Command1.Enabled = False
    Form1.WindowState = 1 ';把窗体最小化,否则会挡眼睛滴
Dim WPSDocument As WPS.Document
    ';首先在数据记录表里查询有多少个记录
    Dim EtWB As ET.workbook
    ';启动ET
    Set ETApp = CreateObject("ET.Application")
    ETApp.Visible = False ';藏起来,不让你看
    TempFile = App.Path + "\Files\准备报告.et"
    Set EtWB = ETApp.Workbooks.Open(TempFile)
    For i = 1 To 65536
      If EtWB.ActiveSheet.Cells(i, 150).Value = "" Then
        LastRow = i ';返回第一个空行的行序数,金山真是小乖乖,怎么从1开始数呢
        Exit For ';找到了最后一个空行
      End If
    Next i
    '; 启动WPS
    Set WPSApp = CreateObject("WPS.Application")
    '; 使WPS可见
    WPSApp.Visible = True
    ';打开模板
    TempFile = App.Path + "\Files\Template.wps"
    Set WPSDocument = WPSApp.Documents.Open(TempFile, ReadOnly:=True)
    WPSApp.Selection.WholeStory ';全选
    WPSApp.Selection.Copy ';复制,这个过程中别的程序别占剪贴板
   
    ';打开报表文件
    TempFile = App.Path + "\Files\报表.wps"
    Set WPSDocument = WPSApp.Documents.Open(TempFile)
    WPSApp.Selection.WholeStory ';全选
    WPSApp.Selection.Delete
        
    ';开始创建报表
    ReportPage = LastRow - 1 ';共这么多页报表
    If ReportPage = 0 Then ';什么数据都没有,就直接退出,白忙活了
        ';退出WPS
      On Error Resume Next
      WPSApp.Quit False
   
      '; 释放对象
      Set WPSApp = Nothing
      ';退出ET
      ETApp.Quit
      ';释放对象
      Set ETApp = Nothing
      Command1.Enabled = True
      Exit Sub
    End If
    For i = 1 To ReportPage
      WPSApp.Selection.EndKey Unit:=wpsStory ';使光标移动到文件的尾部
      WPSApp.Selection.Paste
      WPSApp.Selection.EndKey Unit:=wpsStory ';再次到尾部
      WPSApp.Selection.MoveUp Unit:=wpsLine, Count:=7 ';回到第一行
      ';开始填充数据
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 1).Value ';学科
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=2
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 2).Value ';年级
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=2
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 3).Value ';学年
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=3
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 4).Value ';上或下
      ';写完表头,手动定位光标
      Form2.Show 1 ';不设置就不走
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 5).Value ';周次
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 6).Value ';日期
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 7).Value ';实验名称
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 8).Value ';类型
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 9).Value ';所需
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 10).Value ';缺
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 11).Value ';办法
      WPSApp.Selection.MoveRight Unit:=wpsCharacter, Count:=1
      WPSApp.Selection.TypeText Text:=EtWB.ActiveSheet.Cells(i, 12).Value ';意见
      ';数据填充完毕
    Next i
    ';MsgBox LastRow
    PRntFile = App.Path + "\打印\实验准备报告.wps"
    WPSApp.ActiveDocument.SaveAs FileName:=PRntFile
    ';退出WPS
    On Error Resume Next
    WPSApp.Quit False
   
    '; 释放对象
    Set WPSApp = Nothing
    ';退出ET
    ETApp.Quit
    ';释放对象
    Set ETApp = Nothing
    Command1.Enabled = True
    MsgBox "可以打印的报表已保存在:" + Chr(13) + PRntFile ';嘿嘿
End Sub
启动速度快,安装文件小,刚好够用就行了.

TOP

巨恶的office 2007

我赞成使用wps2007!或者WPS2003也行

TOP

巨恶的office 2007

[quote][b]下面引用由[u]龍尾新FENG[/u]在 [i]2007/08/14 10:37pm[/i] 发表的内容:[/b]
WPS是一个不错的软件,,虽然没有OFFICE那么强大,但是一般的功能都有了。
[/quote]
[br][br][color=#990000][b]-=-=-=- 以下内容由 [i]贾铭志[/i] 在 [i]2008年03月01日 03:13am[/i] 时添加 -=-=-=-[/b][/color]
我补充一下,,不是一般的功能都有了,,是很多实用功能都有了,而且速度快,不用钱,可以一个窗口一次性编辑多个文档!大家应该支持

TOP

 18 12
发新话题