Syna Kyra 博客 » word

Word Web App 已支持多人协作

Syna — Fri, 08 Jul 2011 02:53:55 +0000

　　目前有近 5000 万用户在使用 SkyDrive 和 Hotmail 中内置的 Office Web Apps。现在有个好消息，Word Web App 也已经支持多人协作，并且该协作功能可与 Word 2010、Word for Mac 2011 兼容。这也是 Office Web Apps 中继 Excel 和 OneNote 之后支持多人协作的应用。

　　在 Word Web App 中，如果同时有另外的用户在编辑这份文档，你可以看到 Word Web App 上的黄色提醒条：

　　下面是 Word 2010 中看到的多人编辑界面，可显示其他用户正在编辑的位置，和已经编辑的内容（绿色背景），你也可以在底部状态栏查看有哪些人在编辑：

　　Word Web App 并没有采用实时同步的协作模式 – 如果需要实时，可使用 OneNote Web App。这意味着如果你正在编辑某段内容，为了防止混乱，Word Web App 会阻止其他人编辑此部分内容，直到你按下保存。其他人如果要看你所编辑的内容也需要点击保存来刷新。编辑后的内容，背景将呈现淡绿色。

　　这里还有一段视频来演示 Word Web App 的多人协作功能

——转自 livesino.net

该站内容采用 知识共享署名-非商业性使用-相同方式共享 3.0 Unported (CC BY-NC-SA 3.0) 进行许可

批量转换Word为txt或其他格式

Syna — Sun, 23 May 2010 00:00:00 +0000

　　本篇文章将会使用VBS的方法，将Office Word支持的所有格式：doc、[docx]、txt、htm、rtf等，批量互相转换。首先请确定你的电脑上安装了Word软件。

如果要将“D:\我的doc”文件夹下的所有doc转换成txt。打开记事本，复制以下代码：

Dim array1(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Dim source(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Dim destination(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\我的doc\") '②此处表示doc所在的文件夹，请根据需要自行修改
Set fc = f.Files
i = 0
For Each f1 In fc
    array1(i) = f1.Name
    Ext = fs.GetExtensionName(array1(i))
    Ext = LCase(Ext)
    If Ext = "doc" Then '③此处表示转换类型
        source(i) = f & "\" & array1(i)
        destination(i) = Left(source(i), Len(source(i)) - 4) & ".txt"
        Set wordApp = CreateObject("Word.Application")
        Set wordDoc = wordApp.Documents.Open(source(i))
        wordDoc.SaveAs destination(i), 7
        wordDoc.Close
        Set wordDoc = Nothing
        wordApp.Quit
        Set wordApp = Nothing
    End If
    i = i + 1
Next

　　然后保存为format.vbs（一定要保证扩展名为vbs），保存位置任意。然后双击format.vbs运行即可。

　　注意：运行以后请等待一段时间直到全部文档转换完毕，整个操作过程中不要进行打开Word操作。如果希望中途停止，在任务管理器里结束WScript.exe进程即可。

如果要将“D:\我的doc”文件夹下的所有rtf转换成htm：

Dim array1(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Dim source(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Dim destination(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\我的doc\") '②此处表示doc所在的文件夹，请根据需要自行修改
Set fc = f.Files
i = 0
For Each f1 In fc
    array1(i) = f1.Name
    Ext = fs.GetExtensionName(array1(i))
    Ext = LCase(Ext)
    If Ext = "rtf" Then '③此处表示转换类型
        source(i) = f & "\" & array1(i)
        destination(i) = Left(source(i), Len(source(i)) - 4) & ".htm"
        Set wordApp = CreateObject("Word.Application")
        Set wordDoc = wordApp.Documents.Open(source(i))
        wordDoc.SaveAs destination(i), 8
        wordDoc.Close
        Set wordDoc = Nothing
        wordApp.Quit
        Set wordApp = Nothing
    End If
    i = i + 1
Next

　　其他的大家举一反三吧。另外，以上代码也可以在Word的宏里面运行。

该站内容采用 知识共享署名-非商业性使用-相同方式共享 3.0 Unported (CC BY-NC-SA 3.0) 进行许可

统一添加Word文档图片格式设置可选文字

Syna — Fri, 05 Mar 2010 14:23:25 +0000

　　一般，我们将网页上的东西复制到Word文档时，图片属性里会有“可选文字说明”。但有些情况下，我们并不需要它，不然会被人发现文档是从网上复制下来；或者保存成PDF格式后，图片的可选文字会作为悬停时的说明显示在鼠标旁边。

　　今天告诉大家，如何通过宏来一次性清除或更改所有图片及形状的可选文字（只要向那两个空串""中加入自己的文字即可）：

Sub RemoveAllAlternativeTexts()
    Dim oShape As Shape
    Dim oInlineShape As InlineShape
    For Each oShape In ActiveDocument.Shapes
        oShape.AlternativeText = ""
    Next
    For Each oInlineShape In ActiveDocument.InlineShapes
        oInlineShape.AlternativeText = ""
    Next
End Sub

　　PS:关于宏的使用，可以参看这篇文章《批量修改ppt中所有字的字体颜色》。

该站内容采用 知识共享署名-非商业性使用-相同方式共享 3.0 Unported (CC BY-NC-SA 3.0) 进行许可

自动排版工具——排版助手

Syna — Sat, 06 Feb 2010 04:06:52 +0000

　　排版助手是一款能将文章自动排版的工具。平常，我们原创文章，还是经常的在网上转载文章的时候，我们都无法避免的不让文章整齐不乱。平时章节比较少的时候我们可以手动整理文章的格式，但是如果文字一多的时候，手动起来的话又浪费时间又浪费精力，信息的发布效率大大的降低。有了它，在网上写博客、日志变得更轻松了。

　　该软件不用安装纯绿色、单文件。不多说了，直接上它的官网看看吧~

　　地址：http://www.gidot.net/typesetter/

该站内容采用 知识共享署名-非商业性使用-相同方式共享 3.0 Unported (CC BY-NC-SA 3.0) 进行许可