oscarsun72的专栏

Sub 中國哲學書電子化計劃_表格轉文字(ByRef r As Range) On Error GoTo eH 'Dim d As Document Dim tb As Table, c As Cell ', ci As Long 'Set d = ActiveDocument If r.Tables.Count > 0 Then For Each tb In r.Tables tb.Columns(1).Delete Set r = tb.ConvertToText() Next tb End If