Sub 表格单元格替换文字() If MsgBox("确定要替换单元格的文字吗?", vbYesNo + vbQuestion) = vbYes Then To ActiveDocument.Tables.Count , Column:=).Range .Delete .InsertAfter Text:="XXX" End With , Column:=).Range .Delete .InsertAfter Text:="与预期结果一致" E
<!DOCTYPE html> <html> <head> <title></title> <script> function upload(input){ //支持chrome IE10 if (window.FileReader){ var file = input.files[0]; filename = file.name.split(".")[0]; var reader = new FileReader