Office中国论坛/Access中国论坛

标题: 这个投稿的WORD官方模板到底哪里出错了？ [打印本页]

---

作者: drroot2    时间: 2006-8-19 20:07
标题: 这个投稿的WORD官方模板到底哪里出错了？
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的

1. 
   
   
2. Private Sub CancelButton_Click()
   
   
3. Title_Dialog.Hide
   Unload Title_Dialog
   
   
4. End Sub
   
   
5. Private Sub OKButton_Click()
   
   
6. ' Validate title first...
   If TitleBox.Text = "" Then
       MsgBox "A title for the article is required !", vbExclamation, "AIP Toolkit"
       Exit Sub
   End If
   
   
7. ' Then if OK, place title with tags into document...
   
   
8. With Selection
       .Style = "Normal"                                                                   '<--这里会中断
       .ParagraphFormat.Alignment = wdAlignParagraphLeft
       .Style = "Article Title"                                                            '<-这里也会中断掉
       .TypeText Text:=TitleBox.Text
   End With
   
   
9. Title_Dialog.Hide
   
   
10. With Selection
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        .TypeParagraph
    End With
    
    
11. Unload Title_Dialog
    
    
12. End Sub
    Private Sub UserForm_Activate()
    
    
13. TitleBox.Text = ""
    TitleBox.SetFocus
    
    
14. End Sub
    

复制代码

不知该如何修改呢？

我用的是Office 2003 [attach]19864[/attach]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3