使用ipv6来访问在国内访问不了的网站

没办法，走在屋檐下，哪能不低头。不过还是有办法看到外面的东西的，只要你有ipv6。
目前看来好像某个墙对ipv6的技术还不行，因此我们还可以苟延残喘一下。

你只需要到这个地方 http://code.google.com/p/ipv6-hosts/source/browse/hosts

把这个hosts文件替换或者添加到你的hosts文件即可。
MAC OS X的位置在/private/etc/hosts
WINDOSW的位置在C:\Windows\system32\drivers\etc\hosts
LINUX的位置在/etc/hosts

不过目前好像还没有针对wordpress.com的。

如何一次性修改PPT所有幻灯片的文字和公式颜色

前不久搞了个wordpress.com的博客，当时blogspot上不去，wordpress.com可以上去。本打算作为长期博客的，谁知现在wordpress.com上不去了，blogspot使用ipv6的hosts文件现在倒是可以上去了，先将就吧。

昨天老板让给他改两个PPT文件的背景，要上课用。改背景很简单，直接进入母版视图，修改即可。问题是改过之后背景跟原来文字的颜色很雷同，导致字体很浅，都看不清了，公式也是如此。因此需要修改字体颜色以及公式的字体颜色。

如果只是个别几个倒是无所谓，可是每个PPT都是90多页，公式一大堆，一个个改真是费时费力。计算机时代还做这种重复性事情太不值得了，我想一定有简单的办法。不过现在我没有时间精力自己折腾，就网上搜索，果不其然还是有方法的，现在摘录总结如下，也算是给自己做个备忘。
首先是文字，建立一个宏，然后再运行之就可以了。参考文章：http://wsqxushui.blog.163.com/blog/static/556059922011216103253973/

Sub OED()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
   For Each oShape In oSlide.Shapes
          Set oTxtRange = oShape.TextFrame.TextRange
          If Not IsNull(oTxtRange) Then
         With oTxtRange.Font
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色
          End With
          End If
   Next
   Next
End Sub

然后是公式的颜色，公式为mathtype输入的。参考文章一时找不到了，不好意思。

Sub EquationColor()
Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes
Dim textColor As RGBColor
For Each oSld In ActivePresentation.Slides
    Set oShapes = oSld.Shapes
    For Each oShp In oShapes
               If oShp.Type = 7 Then
                    oShp.PictureFormat.ColorType = msoPictureBlackAndWhite
                    oShp.PictureFormat.Brightness = 0
                    oShp.PictureFormat.Contrast = 1
                    oShp.Fill.Visible = msoFalse
              End If
   Next oShp
Next oSld
End Sub
然后很方便的就解决了问题。在此再次说一下VBA功能确实强大，以后有空一定要好好学习学习。