关于在线急等：需要把几万字的word文字按照如下格式批量转换为excel，具体如见图片。请问如何批量操作？word格式
excel格式
的问题
1。新建Excel工作簿，把Word文件粘贴到Sheet1的A列里；
2。按“Alt F11”调出VBA编辑器，在“ThisWorkbook”上点“右键—-插入—-模块”；
3。把下列代码粘贴进去，关闭VBA编辑器；
Sub?Macro1()
????Sheets(“Sheet2”)。
Select
????Columns(“B:B”)。Select
????With?Selection
????????。HorizontalAlignment?=?xlGeneral
????????。
VerticalAlignment?=?xlCenter
????????。WrapText?=?True
????????。Orientation?=?0
????????。
AddIndent?=?False
????????。IndentLevel?=?0
????????。ShrinkToFit?=?False
????????。ReadingOrder?=?xlContext
????????。
MergeCells?=?False
????End?With
????js1?=?1
????js2?=?1
????Sheets(“Sheet1”)。
Select
????Do?While?Cells(js1,?1)?
Sub Macro1()
Sheets(“Sheet2”)。Select
Columns(“B:B”)。
Select
With Selection
。HorizontalAlignment = xlGeneral
。VerticalAlignment = xlCenter
。
WrapText = True
。Orientation = 0
。AddIndent = False
。IndentLevel = 0
。
ShrinkToFit = False
。ReadingOrder = xlContext
。MergeCells = False
End With
js1 = 1
js2 = 1
Sheets(“Sheet1”)。
Select
Do While Cells(js1, 1) 追问 : 好复杂啊。。我怕我搞不定。
