1. 在按鍵精靈里採用vbs語句操作word，想在word中插入域（即按ctrl+F9出來的域）
以前寫過用埠輸入和輸出的程序。
這個，真不知道。。
2. 如何把ppt文件轉換成word文檔
word
轉換為PPT，也許你很容易做到，但是反之把PPT轉換為Word你知道嗎?我之前一直用一個很笨的方法，就是把裡面的文字一段一段粘出來。文字少了還好說，要是文字多了，那個工作量就可想而知了......
步驟/方法
PowerPoint
2003
中的轉換
大家可能最為常用的是下面這種方法：(在Microsoft
Office
PowerPoint
2003版)
1、首先打開需要轉換成中文Word文件的中文PowerPoint文件，然後滑鼠左鍵依次選擇「文件→發送→Microsoft
Word」命令項。
2.完成選擇之後，系統首先會出現「撰寫」對話框，此時應當在「在Microsoft
Word使用的版式」欄中選擇一種版面的配置，然後在「將幻燈片添加到Microsoft
Word文檔」欄中選擇將中文PowerPoint的幻燈片轉換到中文Word文件時的變化方式。
3.完成上述選擇之後，接著使用滑鼠左鍵單擊「確定」按鈕，即可啟動中文Word，然後自動實現將中文PowerPoint文件轉換到中文Word文件中，此時只需要在中文Word中稍微進行一些修改，即可完成轉換工作。
但是經過我多次試用，其轉換效果是相當的不令人滿意。
PowerPoint
2007
中的轉換
在Microsoft
Office
PowerPoint
2007版中，這個功能依然沒有得到改善。只是在「發送」裡面卻找不到Microsoft
Word命令項了。
微軟Office
2007
的最大的失敗就是對界面的改變，他幾乎完全顛覆了我們使用多年的習慣，但是當你逐步了解了之後卻又發現，根本沒有實質性的改變，這也是為什麼更多的網友不願意接受Office
2007的理由之一。
Microsoft
Word命令項的確被轉移了地方，點擊「發布」——點擊「使用Microsoft
Office
Word創建講義」菜單。
看到了什麼?一個完全與PowerPoint
2003一樣的對話框，甚至沒有任何修飾，那麼這個能實現PPT到Word
的轉換嗎?顯然他與PowerPoint
2003
轉換的效果是一樣的，也以為著這一功能沒有得到任何提升。同樣是微軟的辦公平台，在互換上怎麼就這么難?
一般細心的用戶可能會在製作PPT的時候，首先使用Word創建文檔，一式兩份，這樣以備不時之需，看來也是懼怕萬一有人需要Word
文檔，你再整理可能就會抓瞎。
說了這么多，究竟有沒有什麼方法能夠完美將PPT轉換為Word文檔?我只能遺憾的告訴你，目前還真是沒有什麼完美解決方案。所謂的完美，當然是轉換的文檔你幾乎不用修改就能使用。
雖然我說了上面的話，你也用不著馬上離開，絕不意味著下面的方法對你沒有任何作用!而這種方法恰恰是最簡單的，也是最行之有效的方法，不信請繼續往下看。
應用程序完美轉換PPT
到Word
文檔
說起來很簡單，就是你把下面這段代碼文字復制到Windows
文本中，將文件保存為
.vbs生成一個可執行程序。保存在任何一個地方，比如桌面。這段代碼也是我在無意中發現的，但使用後感覺已經很好，並且簡單。
輸入以下代碼：
'綁定到本地計算機
strComputer
=
"."
'如果發生錯誤，繼續執行
on
error
resume
next
Set
objWMIService
=
GetObject("winmgmts:"
_
&
"{impersonationLevel=impersonate}!\\"
&
strComputer
&
"\root\cimv2")
msgbox
"此腳本可以批量將ppt文件中的文本轉換為word文件。圖片、表格等內容則自動跳過"
&
vbcrlf
&
"使用時請把所有要轉換的ppt文件復制到目錄c:\下。雙擊運行此文件即可。"
&
vbcrlf
&
"運行此腳本需要本機上安裝了office"
'創建一個word對象
Set
objWord
=
CreateObject("Word.Application")
'創建一個ppt對象
Set
pptApp
=
CreateObject("PowerPoint.application")
'獲得c:\目錄下的文件集合
Set
FileList
=
objWMIService.ExecQuery
_
("ASSOCIATORS
OF
{Win32_Directory.Name='c:'}
Where
"
_
&
"ResultClass
=
CIM_DataFile")
For
Each
objFile
In
FileList
'如果文件的擴展名是ppt
If
objFile.Extension
=
"ppt"
Then
pptApp.visible
=
true
'打開這個ppt文件
Set
pptSelection
=
pptApp.Presentations.Open("c:\"
&
objFile.FileName
&
"."
&
objFile.Extension)
'如果想讓腳本處理得快些，把下面一行改為「objWord.Visible
=
false」,不推薦。
objWord.Visible
=
true
'新建一個word，以保存ppt中的文本
Set
objDoc
=
objWord.Documents.Add()
Set
objselection
=
objWord.Selection
'從ppt的第一頁開始循環。Slides.Count即幻燈片的數量
For
i
=
1
To
pptSelection.Slides.Count
'從每一張ppt的第一個文本框開始循環，Shapes.Count，即每張幻燈片中文本框的數量
For
j
=
1
To
pptSelection.Slides(i).Shapes.Count
'如果是每頁的第一行，就按標題處理，變成黑體字
if
i
=1
then
objSelection.Font.Name
=
"黑體"
'把文本框中的文字添加到word中
objSelection.TypeText
pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
objSelection.TypeParagraph()
objSelection.Font.Name
=
"宋體"
end
if
objSelection.TypeText
pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
'加一個回車
objSelection.TypeText
vbcrlf
Next
next
'關閉這個ppt文件
pptSelection.close
'保存word文件。
objDoc.SaveAs("c:\"
&
objFile.FileName
&
".doc")
'如果不需要關閉word，把下面這一行刪掉
objDoc.close
'如果不想彈出消息框，把下面這一行刪掉
msgbox
"轉換後的word已保存在c:\"
&
objFile.FileName
&
".doc"
else
'沒有ppt文件
'msgbox
"錯誤：c:\下沒有發現ppt文件！"
End
If
Next
pptApp.quit
將你需要轉換的PPT文檔放到C:\
的根目錄下，雙擊我們剛才生成的
.vbs
程序，彈出下面的對話框，點擊「確定」。
之後稍等片刻(根據PPT
文檔的大小可能等待的時間有所區別)。就會自動打開一個已經生成的Word
文檔，怎麼樣，你看到了什麼?轉換完成，彈出下面的對話框，點擊確定後收工。
這個程序無需安裝，直接運行，文件也小。在轉換前最好將之前打開的Word
和PowerPoint程序關閉。
由於本程序轉換後的Word文檔中文字順序並未排版，因此尚需用戶自行調整。但是這已經讓我們事半功倍了。
3. VBS詳細教程
哈哈 進我的空間吧 絕對會有意想不到的收獲。 空間里整合了不少VBS的技巧 如VBS網路操作 系統控制 文件操作 還有VBS界面等。個人學了一年的VBS 感覺VBS其實本身挺容易 演算法一般簡單 關鍵還是資料的搜集有點難度。 下面幾點是我個人學習VBS的感受和建議：
1）提高VBS的水平，最好的方法莫過於去網路知道上嘗試著去回答各類關於VBS的問題。光看教程是沒用的，在練習和比較的過程中才可以提高水平達到融會貫通。
1） VBS畢竟是腳本，能力有限（功能少 這個你以後會體會到，限制多 比如說訪問剪貼板都有限制。），不過VBS和VB倒是有很多相同之處，可以作為跳板學習VB。
2） VBS本身沒有界面之類的，不過可以結合html和簡單的jscript做界面。但是你會發現用html做界面的話 一個很嚴重的問題就是VBS不能後台運行 即響應了當前事件後 必須等到這個事件處理完才可以處理下一個事件 從而使程序假死 解決的終極方案是做成HTA的文件 結合復雜點jscript可以實現多線程和後台運行 界面可以做的非常華麗。
附簡單的VBS+HTML做有控制項的界面程序。
URL：http://blog.csdn.net/zshwlw/archive/2008/05/23/2474485.aspx
還有很多很多問題吧，這里就不詳細的說了。 樓主以後要是有什麼問題的話，或許我可以幫你。
4. 用vbs怎樣給word表格插入行啊
這樣試一下：
Sub Example()
Dim myTable As Table
Set myTable = ActiveDocument.Tables(1)
myTable.Rows.Last.Select
Selection.InsertRowsBelow 1
End Sub