ppby2002的专栏

<br />    For i = 1 To Len(ActiveCell)<br />        If Abs(Asc(Mid(ActiveCell, i, 1))) > 255 Then<br />            MsgBox "Got Chinese char!!"<br />            Exit For<br />        End If<br />    Next i

方法一. 使用.BuiltInDocumentProperties 方法统计适用于Document对象和Template 对象。返回一个 DocumentProperties 集合，该集合代表了指定文档的所有内置的文档属性。可使用的属性有：成员名

有时候需要将一个word文档每一页另存为一个word文档，如果手工操作，量大会累死人的。今天我们用VBA来实现批量自动处理。在文档的ThisDocument的代码页中输入以下代码，然后执行Sub SaveParagraph() 即可：Option ExplicitSub

1. 取得当前页的页码selection.Information(wdActiveEndPageNumber)

Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDia

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness