Sub 一键转换日期格式()
    For Each cell In Selection.CurrentRegion
        If IsDate(cell.Value) Then
            '1999年3月21日
            cell.NumberFormatLocal = 'yyyy''年''m''月''d''日'';@'
     '二○○五年七月九日
           cell.NumberFormatLocal = '[DBNum1][$-804]yyyy''年''m''月''d''日'';@'
     '27-Aug-09
            cell.NumberFormatLocal = '[$-409]d-mmm-yy;@'
     '1999年3月
            cell.NumberFormatLocal = 'yyyy''年''m''月'';@'
     '3月21日
         &

利用photoshopcs2重新生成新的pdf文件：

描述：晚上下了一个pdf教程，当用adobe reader打开时看到第三页时提示图像数据不充分，之后的所有页均显示为空白，后发现用photoshopcs2打开时能正确显示每一页。

操作：

1.用photoshopcs2打开原pdf文件，提示导入文件方式，我此处选择的是以图像方式导入，然后选择所有页面，确定。等待一段时间，待所有文件都导入为止。

2.选择【文件】-【自动】-【PDF演示文稿】，勾选【添加打开的文件】，【存储为多页面文档】，点击【存储】，选择位置，改名

3.进入存储PDF文件选项卡，由于这里我选择默认选项，所以生成的文件偏大，可根据需要自行改动。