在做项目时，我们都要做三种语言，怎么才能快速翻译呢。

1.     复制简体中文资源文件.zh-cn.resx中的全部行，粘贴到word中。

2.     利用word的简体转换成繁体的功能，先把全部简体转换成繁体

3.     复制到繁体资源文件.zh-hk.resx中,并且格式也排列好了。

这样就方便了很多。

在前面Word宏的两个应用中已经简化了我们的操作,

而且我发现Visual Studio中的宏也有同样的功能。

在实际项目中，获取新版本后，就要立即生成解决方案，

这样要经过两个操作后，才能完成。这次，同样用宏能够一步完成。

操作基本上和第一次类似。

Step 1

 

Step 2

点击中间一个图标“停止记录”

 

Step 3

得到以下文件

Step 4

复制代码到RecordingModule中

Code

Public Module RecordingModule

 

    Sub TemporaryMacro()

        DTE.ExecuteCommand("File.GetLatestVersion")

        DTE.ExecuteCommand("Build.BuildSolution")

    End Sub

 

End Module

 

以后按下组合键就可以一键完成两个操作了，

机器慢的话，需要等一段时间执行这两个本来就很耗时的任务，

我们也可以借机休息一会儿。

 

大家也可以举一反三，实现其他的功能。

在Word的内容更改后,但是里面的目录并没有自动更新,需要我们手动去更新.

可是有时候,我们总会忘记去手动更新目录.我想能不能在保存的时候,让Word自动更新,

经过几次尝试,用上次介绍的宏操作能够实现.呵呵,没想到,宏是这么的强大,能够简化操作.

步骤和上次一样,只是指定快捷键为Ctrl + S,这样在按下Ctrl + S时就能够自动更新和保存了.

注意,Word保存的默认快捷键已经被修改了.

只需下面两句代码,就可以实现我们的需求.

Sub UpdateFields()

    ActiveDocument.TablesOfContents(1).Range.Fields.Update  '更新域

    ActiveDocument.Save     '保存文档

End Sub

昨天在给unit test results贴图时,发现要插入一个图片对象时,要点击很多次按钮才能插入一个对象,

如果要插入很多图片的话,太麻烦了.

我想能不能用word的宏来简化操作,昨晚经过多次尝试,已经能够一键插入多个对象,这样就提高了大家以后的效率.

现在分享给大家.

Step 1

 

Step 2

InsertImageObject

 

Step 3 选择键盘,按下快捷键

 

Step 4

在编辑器中插入以下代码,保存.

Code

Sub InsertObject()

 

    Dim imageFilePath As String

    Dim imageFileName As String

    Dim countSelected As Integer

    Dim index As Integer

    Dim lengthSplit As Integer

    Dim pathSplit() As String

    Dim fopen As FileDialog

    Dim items As FileDialogSelectedItems

   

    Set fopen = Application.FileDialog(msoFileDialogFilePicker)

    fopen.Show

    If fopen.SelectedItems(1) = "" Then

        Exit Sub

    Else

        Set items = fopen.SelectedItems

        Set fopen = Nothing

    End If

   

    countSelected = items.Count

   

    For index = 1 To countSelected

         imageFilePath = items(index)

         pathSplit = Strings.Split(imageFilePath, "\")

         lengthSplit = UBound(pathSplit)

          imageFileName = pathSplit(lengthSplit)

        Selection.InlineShapes.AddOLEObject ClassType:="htmlfile", FileName:= _

            imageFilePath, LinkToFile:=False, DisplayAsIcon:=True, _

            IconFileName:="C:\Program Files\Internet Explorer\iexplore.exe", _

            IconIndex:=10, IconLabel:=imageFileName

    Next

End Sub

以后在按下CTRL + Y,选择要插入的图片(可多选),就能够一次插入多个图片对象了.

大家有什么修改意见,请留言.