0度跨越

Visualimpact之3D文字 For Wps是我参加金山Wps插件大赛的第三个作品。

当你正苦恼于Wps中不能设计像微软Office 2007那样的3D文字效果时，当你为了制作某个3D标题而兴师动众地打开PS时，您是否也曾在心底渴望Wps能有这样一款3D文字制作工具，在刹那间帮您完成心愿。WPS 3D文字插件正是您最佳的选择。

WPS 3D文字提供了非常丰富的选项，让您能够快速地设计效果特佳的3D文字，包括：
（1）3D角度设置：沿X轴、Y轴旋转3D文字，3D文字深度设计
（2）3D字体设计：设置3D文字的字体、字形、字的大小
（3）3D文字渐变色设计：设置3D文字的颜色渐变。
（4）3D文字纹理设计：设置3D文字的纹理，插件自带了少数几种，您可以根据需要把您需要的图片文件拷贝到插件安装目录中的Patterns文件夹。
（5）可选择的透明背景3D文字输入。

请朋友们支持。

（1）安装Wps 2009，官方下载：http://kad.www.wps.cn/wps/download/special/WPS2009.12012.exe

（2）打开下面两个插件的链接，安装插件。
Visualimpact之3D文字 ：http://www.wps.cn/addons/ThreadView/wdid-6622.htm

（3）安装后，使用即可为这两个插件计入使用量。

 致上无限的谢意。

在Wps表格和Excel中保留数据合并单元格并还原数据是非常简单的，只需不到几十行的代码。闲话少说，直上代码。

（1）合并单元格并保留数据

Dim sRowContent() As String '用来保留单元格的数据，以便恢复

' sFlag：可选，默认为"，表示在数据之间添加连接符，如：-
' bCenter：可选，默认为居中，表示合并后的单元格数据是否居中.
' Author：无极
' Blog：http://pptaddins.blogbus.com

Sub MergeCell (Optional ByVal sflag As String="",Optional ByVal bCenter As Boolean = True)

  Dim Rng As Range
  Set Rng = ET.Application.Selection
  If Rng Is Nothing Then
     MsgBox "没有可合并的区域"
     GoTo done
  End If
 
  Dim Rw As ET.Range, Rc As Range
  Set Rw = Rng.EntireRow
  Set Rc = Rng.EntireColumn
 
  Dim i As Long, j As Long, str As String
  ReDim sRowContent(rw.Count - 1, rc.Count - 1) '分配数据空间
  ET.Application.DisplayAlerts = False '关闭警告

  For i = 1 To Rw.Count
      For j = 1 To Rc.Count
          sRowContent(i - 1, j - 1) = rng.Cells(i, j).Value
          str = str & rng.Cells(i, j).Value & sflag
      Next j
        str = Left(str, Len(str) - Len(sflag))
        str = str & vbCrLf  
  Next
  With Rng
      .MergeCells = True
     .Value = str
     if bCenter then
         .HorizontalAlignment=etHAlignCenter
         .VerticalAlignment=etVAlignCenter
    end if
  End With
ET.Application.DisplayAlerts = True
done:
End Sub

（2）取消合并且还原数据

Sub UndoMergeCell ()

Dim Rng As Range
Set Rng = ET.Application.Selection
  If Rng Is Nothing Then
     MsgBox "没有可还原的区域"
     GoTo done
  End If

  With Rng
    .Clear
    .MergeCells = False
End With

  Dim Rw As ET.Range, Rc As Range
  Set Rw = Rng.EntireRow
  Set Rc = Rng.EntireColumn
 
  Dim i As Long, j As Long, str As String  
  For i = 1 To Rw.Count
      For j = 1 To Rc.Count
          Rng.Cells(i, j).Value = sRowContent(i - 1, j - 1)
        Next j
  Next

Done:

End Sub

最近花了一点时间参加了金山Wps举行的“插件大赛”，写了两个工具，一个是“WPS演示动画格式刷”——WppAniPainter，一个是“选择窗格”——Selectpane For Wps。

WppAniPainter：适用于Wps演示，它能够把一个对象的动画信息复制到一个或一批对象上，除了复制WPP的预定义动画之处，它还能够复制“自定义”式动画，能够跨幻灯片，跨演示文稿复制动画。相比于PowerPoint 2010的动画格式刷来说，这个工具更强大。另外在这个工具中还集成了一个十分有用的工具，批量动画延时设置，可以为动画序列按指定增量进行延时设置。这个工具极大地加速了在Wps演示中的动画制作速度，方便而快捷。

Selectpane：适用于Wps文字、表格、演示，这个工具实现了Office 2007“对象选择窗格”的所有功能，能够显示或隐藏对象，方便编辑与操作，能够快速地调整对象的叠放顺序，上移或下移，支持拖放式调整（office 2007可不支持），能够按指定的名称重命名对象，支持批量更名（office 2007也不支持），这样就可以快速地为文档中的对象取一个有意义的名称，便于快速直观地识别和操作它们，大大简化了操作程序，增强了操作的可视化。

 

“0度跨越”恳请路过的朋友举出你们的援助之手，为我的这两个插件添块砖加片瓦。具体做法是：

（1）安装Wps 2009，官方下载：http://kad.www.wps.cn/wps/download/special/WPS2009.12012.exe

（2）打开下面两个插件的链接，安装插件。
Selectpane下载安装：http://www.wps.cn/addons/ThreadView/wdid-6534.htm
WppAniPainter下载安装：http://www.wps.cn/addons/ThreadView/wdid-6518.htm

（3）安装后，使用插件一次，即可为这两个插件计入使用量。

 致上无限的谢意。

在Wps2009中进行开发时，或许有时候您并不想自己动手去制作图标，而是想直接利用其中丰富的图标资源，就如微软Office一样，可是Wps并没有资料告诉您所需要图标的ID，也正因为如此，为了方便查找，我写了一个这样的用来在Wps中查询图标的插件，一是为了找找在Wps中开发的感觉，二是有这方面的需要。

这个插件没有提供Wps插件平台安装的方式（当然，您自己可以写写插件平台的安装脚本）。

（1）安装
把文件解压到某个目录，双击该目录中的install.cmd文件，即安装成功。

（2）卸载
双击目录中的Uninstall.cmd文件，然后删除目录，即卸载成功。

插件下载:http://www.brsbox.com/filebox/down/fc/cfec1ce7a4259194c254227c3b0cfd82