100分在线求助！

Question

帮帮忙，帮我看一下哪里错了，编译的时候appWord.ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(9)怎么出错，说是CentimetersToPoints未定义。
以下是主要的东西：Dim appWord As Object
  Set appWord = CreateObject("Word.Application")  
  appWord.Documents.Add 
  appWord.ActiveDocument.Tables.Add appWord.Selection.Range, 15, 3   
  appWord.ActiveDocument.Tables(1).Columns.PreferredWidthType =    wdPreferredWidthPoints
  appWord.ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(9)
  appWord.ActiveDocument.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(3)
  appWord.ActiveDocument.Tables(1).Columns(3).PreferredWidth = CentimetersToPoints(3)
  appWord.ActiveDocument.Tables(1).Select
  appWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  appWord.ActiveDocument.Tables(1).Columns(1).Select
  appWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
  appWord.ActiveDocument.Tables(1).Rows(1).Select
  appWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  appWord.ActiveDocument.Tables(1).Rows(1).Select                
  appWord.Selection.Font.Bold = True
  appWord.Visible = True

Answer 1

我想应该写成
appWord.ActiveDocument.Tables(1).Columns(1).PreferredWidth = appWrod.CentimetersToPoints(9)

Answer 2

还有下面这句：
appWord.ActiveDocument.Tables(1).Columns.PreferredWidthType =    wdPreferredWidthPoints这么报错的：实时错误‘4608’，数值超出范围

Answer 3

更确切的说，是wdPreferredWidthPoints不知道为什么没有数值！

Answer 4

wdPreferredWidthPoints,CentimetersToPoints是VBA中的量, byj2001329和bnuganyong的写法,我同意