wdApp.Selection.Rows.Height = CentimetersToPoints(0.8) 修改此句 wdApp.Selection.Rows.Height = wdApp.CentimetersToPoints(0.8)
先做个批处理，结束word进程的，把 Word对象.Quit 注释掉，问题就没了
加New 关键字Dim wdApp As New Word.Application
