软体印象

There is one problem with the Tag of "<tablib>" , when creating struts web project.. The error prompt as "cvc-complex-type.2.4.a: Invalid content was found starting with element 'taglib'"

<web-app>

  .....

 <taglib>
     <taglib-uri>/tags/struts-tiles</taglib-uri>
     <taglib-location>/WEB-INF/struts-tiles.tld</taglib-location>
   </taglib>
</web-app>

Solution: Surround a tag of "jsp-config" :

</web-app>

...

  <jsp-config>
   <taglib>
     <taglib-uri>/tags/struts-tiles</taglib-uri>
     <taglib-location>/WEB-INF/struts-tiles.tld</taglib-location>
   </taglib>
  </jsp-config>
 
</web-app>

    比如查看spring.jar 中的Spring版本：
查看 spring.jar\META-INF\MANIFEST.MF
Manifest-Version: 1.0
Export-Package: org.springframework.orm.jpa;uses:="org.apache.commons.
 logging,org.aopalliance.intercept,org.springframework.beans,org.sprin
 gframework.dao.support,org.springframework.instrument.classloading,ja
 vax.persistence,...

Spring-Version: 2.5.4
Implementation-Title: Spring Framework
Implementation-Version: 2.5.4
Tool: Bnd-0.0.208

...

1. 使用宏操作 – 录制宏并添加快捷键（ctl+shift+h）；选中要修改的图片，使用快捷键。

Sub ResizeShape()

'

' ResizeShape Macro

' Macro recorded 2010-3-25 by Kavin

'

    Selection.InlineShapes(1).Fill.Visible = msoFalse

    Selection.InlineShapes(1).Fill.Solid

    Selection.InlineShapes(1).Fill.Transparency = 0#

    Selection.InlineShapes(1).Line.Weight = 0.75

    Selection.InlineShapes(1).Line.Transparency = 0#

    Selection.InlineShapes(1).Line.Visible = msoFalse

    Selection.InlineShapes(1).LockAspectRatio = msoTrue

    Selection.InlineShapes(1).Height = 198.15

    Selection.InlineShapes(1).Width = 264.45

    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5

    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5

    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic

    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#

    Selection.InlineShapes(1).PictureFormat.CropRight = 0#

    Selection.InlineShapes(1).PictureFormat.CropTop = 0#

    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#

End Sub

2. 使用宏程序操作 – 创建宏程序，然后执行

Sub batchResizeShape()

    Dim doc     As Document

  Dim i     As Integer

  Set doc = ActiveDocument 

  For i = 1 To doc.InlineShapes.Count

  'doc.InlineShapes 

      'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle

      'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle

      doc.InlineShapes(i).Height = 198.15

    doc.InlineShapes(i).Width = 264.45

  Next i

End Sub