求幫忙......

chaixchen

我有一個別人寫的DOS小程式，約10M多
他的功能是把WORD資料，連動到公司網頁
我想把Word檔改成Excel檔
請問有人可以幫忙嗎?  

aobaochiai

將Word文檔轉換為Excel表格可以通過以下幾種方法：

一、手動轉換（適用於內容較少的情況）
1. 複製粘貼內容 打開Word文檔，選中需要轉換的內容。如果內容是有規律的表格形式，例如每行資料之間有明確的分隔（如空格、定位字元等），可以直接選中。 打開Excel工作表，將選中的內容粘貼到Excel中。如果是簡單的文本格式資料，可能需要進行一些調整，比如使用“資料”選項卡中的“分列”功能，按照分隔符號號將一列資料拆分成多列。   
2. 重新構建表格 當Word文檔中的內容格式比較複雜或者不規範時，可能需要手動在Excel中重新構建表格。例如，將標題行分別輸入到Excel的不同儲存格中，然後逐行輸入對應的資料。   

二、使用軟體自帶功能（部分軟體支援）
1. Microsoft Word和Excel（Office 365版本） 在Word文檔中，選中要轉換的表格內容。 點擊“插入”選項卡，查找“表格”組中的“資料”按鈕（不同版本位置可能略有差異），其中可能有“轉換為Excel工作表”的選項，點擊後即可將表格轉換為Excel格式並進行保存。   
2. WPS文字和WPS表格（WPS Office） 類似地，在WPS文字中選中表格內容，然後在“特色功能”或類似功能表中找到“表格轉Excel”的功能按鈕，按照提示操作即可。   

三、使用線上轉換工具
1. Smallpdf等線上平臺 打開線上轉換工具網站，如Smallpdf。 上傳需要轉換的Word文檔。 選擇將Word轉換為Excel的操作選項，等待轉換完成後下載轉換後的Excel檔。不過要注意文檔內容的隱私性，避免上傳包含敏感資訊的檔到不可信的平臺。   

四、使用巨集（適用于大量資料處理且有一定程式設計基礎的情況）
1. 編寫VBA宏代碼 如果熟悉VBA程式設計，在Word中可以編寫巨集來提取資料並構建Excel表格。例如，通過遍歷Word文檔中的段落或表格儲存格，將資料按照一定規則寫入到Excel物件中。以下是一個簡單的示例代碼框架：    Sub WordToExcel()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlSheet As Object
    Dim para As Paragraph
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Add
    Set xlSheet = xlWB.Sheets(1)
    For Each para In ActiveDocument.Paragraphs
        '這裡根據實際需求處理段落中的資料並寫入Excel
        xlSheet.Cells(行號, 列號).Value = para.Range.Text
    Next para
    xlWB.SaveAs "轉換後的檔路徑.xlsx"
    xlWB.Close
    xlApp.Quit
End Sub
運行巨集後即可將Word中的資料轉換為Excel表格並保存。