在VB中怎么实现3D功能?

一般是用dx或者opengl，引用这个的类就可以开发了

过程比较复杂，建议买本书来学

里面添加面，再对面进行贴图

可以到

http://bbs.gameres.com/

的dx区和opengl区看看，它们两个在游戏程序设计区里面 directx | opengl

用vba可以实现，不难。要看你具体做什么，下面是一个录制的宏，替换aaa为axa，然后替换bbb为xbx。

Sub 宏2()
'
' 宏2 宏
'
'
Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

PRINTOUT
具体要看你要打印页数
或者你录制宏就知道了

St1.range("G:G").replace(ReplStr, "")
我估计你在在找函数吧，
St1.range("G:G").replace(ReplStr, "")
St1.range("替换的列").replace("AA", "BB")
即把工作簿ST1 中 的 G 列的里面的 AA 替换为 BB

VB.NET(2005)中打印WORD文档（.doc）

有两种方法可以完成，无论哪一种，你都得安装office，呵呵。

Imports Microsoft.Office.Core
Imports Word = Microsoft.Office.Interop.Word

第一种，允许用户更换打印机等设置，这是很重要的。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDialog1.AllowCurrentPage = False ‘不打印当前页
PrintDialog1.AllowSelection = False ’不允许打印部分页等
PrintDialog1.AllowSomePages = False
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim poApp As Word.Application
Dim poDoc As Word.Document
poApp = New Word.Application
poApp.Visible = False
poApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
poDoc = poApp.Documents.Open("d:\1.doc")

poApp.WordBasic.FilePrintSetup(Printer:=PrintDialog1.PrinterSettings.PrinterName,
DoNotSetAsSysDefault:=1) ‘DoNotSetAsSysDefault:=0就会修改默认打印机

''poApp.ActivePrinter = PrintDialog1.PrinterSettings.PrinterName

poApp.PrintOut()

poDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
'clean up
poDoc = Nothing

'close
word这里有个极其重要的参数WdSaveOptions，它有三个值：wdDoNotSaveChanges、wdDoNotSaveChanges
和wdPromptToSaveChanges。当选择wdDoNotSaveChanges时，文档就会来不及输出到打印机而关闭，当选择
wdPromptToSaveChanges时，word程序有时就会无法退出！poApp.Quit()语句也是不可取的，因为默认的是
wdPromptToSaveChanges。

poApp.Quit(Word.WdSaveOptions.wdPromptToSaveChanges)
poApp = Nothing
End If
End Sub

第二种，是调用windows打开的方式，很快，但是不幸的是不能更换打印机。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim MyProcess As New Process
MyProcess.StartInfo.CreateNoWindow = False
MyProcess.StartInfo.Verb = "print"
MyProcess.StartInfo.FileName = "d:\1.doc"
MyProcess.Start()
MyProcess.WaitForExit(10000)
MyProcess.CloseMainWindow()
MyProcess.Close()
End Sub

***********************VB6下使用的方法:

Private Sub Form_Load()
Set Word1 = CreateObject("word.application")
Word1.Documents.Open App.Path & "\1.doc"
Word1.Visible = True
Word1.PrintOut
Word1.Application.Quit
End Sub

真遗憾，自己回答自己，不完善的程序