PB請問這段代碼ole_object.Selection.MoveLeft(1,len(s),1)是什么意思,越詳細越好,
還有就是我想要控制剛從資料視窗匯出的表格資料并控制其中字體字號,求詳細代碼,新手沒啥分。。。。望大神現身
uj5u.com熱心網友回復:
這個呼叫了一個VBA函式,一般是word,參考幫助如下
Word VBA教程:MoveLeft方法
將所選內容向左移動,并回傳移動距離的單位數。
expression.MoveLeft(Unit, Count, Extend)
expression 必需。該運算式回傳一個 Selection物件。
Unit WdUnits,可選。所選內容移動距離的度量單位。
可以是下列 WdUnits 常量之一:
wdCell
wdCharacter
wdWord
wdSentence
默認值為 wdCharacter。
Count Variant 型別,可選。所選內容移動距離的單位數。默認值是 1。
Extend Variant 型別,可選。可以是 wdMove 或 wdExtend。如果是 wdMove,則所選內容折疊到結束位置,并向左移動。如果是 wdExtend,則所選內容向左擴展。默認值是 wdMove。
說明
如果 Unit 為 wdCell,則 Extend引數只能是 wdMove。
VBA示例
本示例將所選內容向左移動一個字符。如果移動成功,則 MoveLeft方法回傳 1。
If Selection.MoveLeft = 1 Then MsgBox "Move was successful"
本示例激活選中域的域底紋功能,插入 DATE 域,然后將所選內容向左移動,以選定該域。
ActiveDocument.ActiveWindow.View.FieldShading = _
wdFieldShadingWhenSelected
With Selection
.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
.MoveLeft Unit:=wdWord, Count:=1
End With
本示例將所選內容移至表格的前一個單元格。
If Selection.Information(wdWithInTable) = True Then
Selection.MoveLeft Unit:=wdCell, Count:=1, Extend:=wdMove
End If
uj5u.com熱心網友回復:
額。。。謝謝作答,不過還是看不太明白,能否幫我寫段代碼實作這樣的功能:我已經從資料視窗匯出了一個表格,現在我要在PB實作對其中的字體字號等的控制,能給出詳細的例子么。。。轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/41724.html
標籤:控件與界面
