|
http://www.aip.org/pubservs/compuscript.html
直接下载地址:
ftp://ftp.aip.org/ems/word/ibm/t2k/t2k.zip
这个宏好象加密了, 提供个比较有用的小程序:
http://file1.softsea.net/30407/vbpsetup.exe
附件为注册机
按里面的Readme,无论在里头输入Title、Table Captions...
都提示"5834..."出错,调试后:在下面每个.Style都会中断:
譬如Title的
- Private Sub CancelButton_Click()
- Title_Dialog.Hide
Unload Title_Dialog
- End Sub
- Private Sub OKButton_Click()
- ' Validate title first...
If TitleBox.Text = "" Then
MsgBox "A title for the article is required !", vbExclamation, "AIP Toolkit"
Exit Sub
End If
- ' Then if OK, place title with tags into document...
- With Selection
.Style = "Normal" '<--这里会中断
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Style = "Article Title" '<-这里也会中断掉
.TypeText Text:=TitleBox.Text
End With
- Title_Dialog.Hide
- With Selection
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
End With
- Unload Title_Dialog
- End Sub
Private Sub UserForm_Activate()
- TitleBox.Text = ""
TitleBox.SetFocus
- End Sub
复制代码
不知该如何修改呢?
我用的是Office 2003
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|