Products
GG网络技术分享 2025-11-23 05:10 3
Sub ExcelToWordFunction
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject
Set objDoc = objWord.Documents.Add
ThisWorkbook.Sheets.Range.Copy
objDoc.Range.PasteExcelTable False, False, True
objDoc.Range.InsertParagraphAfter
ThisWorkbook.Sheets.ChartObjects.Chart.ChartArea.Copy
objDoc.Range.Paste
objWord.Visible = True
End Sub
想要把Excel的表格变成Word的表格?hen轻巧松,再用那东西VBA,写几行代码,就OK啦!你只需要把那东西Excel表格的内容拷过来然后变成表格格式就Neng了。
Sub ExcelTableToWord
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject
Set objDoc = objWord.Documents.Add
ThisWorkbook.Sheets.ListObjects.Range.Copy
objDoc.Range.PasteExcelTable False, False, True
objWord.Visible = True
End Sub
你晓得吗,Excel还Neng转成Word的功Neng呢!就是那些个单元格啊,图表啊,douNeng转过去的哦!真实的,不信你试试kan!
Sub WordTableToExcel
Dim objWord As Object
Dim objDoc As Object
Dim objRange As Object
Dim XLApp As Object
Dim XLBook As Object
Dim XLSh As Object
Set objWord = CreateObject
Set objDoc = objWord.Documents.Open
Set objRange = objDoc.Range
objRange.Tables.Range.Copy
Set XLApp = CreateObject
Set XLBook = XLApp.Workbooks.Open
Set XLSh = XLBook.Sheets
XLSh.Range.Select
XLApp.ActiveSheet.Paste
objDoc.Close
XLBook.SaveAs "C:\Temp\MyBook.xlsx"
XLBook.Close
XLApp.Quit
End Sub
Sub ExcelToWord
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject
Set objDoc = objWord.Documents.Add
ThisWorkbook.Sheets.UsedRange.Copy
objDoc.Range.PasteExcelTable False, False, True
objWord.Visible = True
End Sub
一下通过Excel转LaTeX,Neng巨大巨大提升论文排版的效率。只要学会了这些个细小技巧,你也Neng成为一个排版高大手哦!加油吧,细小朋友!

Demand feedback