我要把一個grid的表匯出到word，這都已經做好了，可是加上表頭和制表日期之后怎么能把表頭加粗居中呢？
我是這么寫的結果匯出之后表格表頭不見了而且表格內容也加粗居中了，而且如果不調整表頭的字體位置的話就沒有任何問題，表頭也在。
ole_object.Documents.Add()
ole_object.Selection.Typetext(str)
ole_object.Selection.MoveLeft(1,len(str),1)
ole_object.Selection.Font.Name="黑體"
ole_object.Selection.Font.Size=14
ole_object.Selection.Font.Bold=True
ole_object.Selection.ParagraphFormat.Alignment =2
ole_object.Selection.TypeText("~r~n")
ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range, Ll_RowNum, Ll_ColNum,wdword9tablebehavior,wdautofitfixed)
STRING Ls_ColName
INTEGER i,j
FOR i = 1 TO Ll_ColNum
// 得到列標題頭的名字
Ls_ColName = dw_1.Describe('#' + STRING(i) + ".name") + "_t"
Ls_value = dw_1.Describe(Ls_ColName + ".text")
ole_object.Selection.TypeText(TRIM(Ls_Value))
ole_object.Selection.MoveRight(wdCell)
NEXT
dw_1.SetRedraw(FALSE)
ole_object.Selection.MoveLeft(wdCell)
FOR i = 2 TO Ll_RowNum
FOR j = 1 TO Ll_ColNum
dw_1.ScrollToRow(i - 1)
dw_1.SetColumn(j)
Ls_Value = dw_1.GetText()
ole_object.Selection.MoveRight(wdCell)
ole_object.Selection.TypeText(ls_value)
NEXT
NEXT
dw_1.SetRedraw(TRUE)
CONSTANT LONG wdFormatDocument = 0
// 保存新建的檔案
ole_object.ActiveDocument.SaveAs("daybb.doc", 0,FALSE,"",TRUE,"",FALSE,FALSE,FALSE,FALSE,FALSE)
// 斷開OLE連接
Ole_Object.DisConnectObject()
DESTROY Ole_Object
uj5u.com熱心網友回復：
這個可以查一下VBA for word.uj5u.com熱心網友回復：
確實要呼叫VBA了uj5u.com熱心網友回復：
問一下 pb 中packetsize 對網速要求轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/80634.html
標籤：腳本語言
上一篇：求ASAnywhere9或者PB10 有效下載地址，找了好久了。
下一篇：誰有學習PPB的書籍推薦一下吧