如何以WORD VBA按鈕設定文字方塊不要列印?

[mico391]

在一篇WORD的檔案裡 包含了許多文字方塊(或群組)
我想用VBA設定2個按鈕
一個按鈕正常列印檔案裡的所有內容
一個按鈕某些文字方塊不要列印某些文字方塊（如方塊1　方塊2　　或群組1 群組2）
該如何寫呢?

謝謝

另外　請問word vba的書藉該去哪裡買呢?
台灣的書局好像沒有　大陸的才有耶

[hsieh]

程式碼:

Private Sub CommandButton1_Click()
With CommandButton1
.ForeColor = &HFFFFFF
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Visible = True
Dim sp As Shape
For Each sp In ActiveDocument.Shapes("Canvas 5").CanvasItems
obp = MsgBox(sp.Name & "是否為列印物件", vbYesNo)
If obp = 7 Then sp.Visible = msoFalse Else sp.Visible = msoCTrue
Next
　　ActiveDocument.PrintOut
.ForeColor = &H0
End With
End Sub

[mico391]

謝謝你的解答
小弟正在研究VBA 若有不懂之處
煩　請再不吝賜教