分享成果,隨喜正能量】不要對失去過于糾結,這不僅有利于讓你放下曾經的美好事物,也有利于讓你在面對現在所擁有的一切,能夠更加安心、更加踏實。。
《VBA之Word應用》,是我推出第八套教程,教程是專門講解VBA在Word中的應用,圍繞“面向對象編程”講解,首先讓大家認識Word中VBA的對象,以及對象的屬性、方法,然后通過實例讓大家感受到Word VBA 的妙處。本套教程共三冊十六章,今日內容第六章 “Word中的Range對象(下)”第3節:Range范圍的調整及EXCEL單元格及圖表插入
大家好,我們這講繼續Range對象方法的講解,在上一講中我們講解了Range對象的InsertParagraph方法、InsertParagraphAfter方法、InsertParagraphBefore方法,這節我們將講解SetRange 方法、PasteAndFormat方法、PasteSpecial 方法。
這種方法設置現有范圍的起始字符和結束字符的位置。
語法:expression. SetRange(Start, End)
其中expression 是必需的,是一個代表Range對象的變量
參數:
1)Start 必需 Long 范圍的起始字符位置。
2)End 必需 Long 范圍的結束字符位置。
該方法粘貼選定的表格單元格,并為其設置指定的格式。
語法:expression.PasteAndFormat(Type)
其中expression 是必需的,是一個代表Range對象的變量
參數:Type 必需 WdRecoveryType 粘貼所選的表格單元格時使用的格式類型。
WdRecoveryType 枚舉值:
wdChart 14 將 Microsoft Office Excel 圖表粘貼為嵌入的 OLE 對象
wdChartLinked 15 粘貼 Excel 圖表并將其鏈接到原始 Excel 電子表格
wdChartPicture 13 將 Excel 圖表粘貼為圖片
wdFormatOriginalFormatting 16 保留所粘貼材料的原始格式
wdFormatPlainText 22 粘貼為無格式的純文本文字
wdFormatSurroundingFormattingWithEmphasis 20 使所粘貼文本的格式與周圍文本的格式匹配
wdListCombineWithExistingList 24 將粘貼的列表與鄰近的列表合并.
wdListContinueNumbering 7 使粘貼的列表根據文檔中的列表繼續編號。
wdListDontMerge 25 不支持.
wdListRestartNumbering 8 對粘貼的列表重新進行編號
wdPasteDefault 0 不支持.
wdSingleCellTable 6 將單個單元格表格粘貼為獨立的表格。.
wdSingleCellText 5 將單個單元格粘貼為文本.
wdTableAppendTable 10 通過在所選行之間插入粘貼的行,將粘貼的單元格合并到現有的表格中
wdTableInsertAsRows 11 將粘貼的表格作為行插入到目標表格的兩行中間.
wdTableOriginalFormatting 12 粘貼一個追加的表格,而不合并表格樣式.
wdTableOverwriteCells 23 粘貼表格單元格并覆蓋現有的表格單元格.
wdUseDestinationStylesRecovery 19 使用目標文檔中使用的樣式.
該方法插入剪貼板中的內容
語法:expression.PasteSpecial (IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)
其中expression 是必需的,是一個代表Range對象的變量
參數:
1) IconIndex 可選 Variant 如果 DisplayAsIcon 為 True,則該自變量是一個數字,對應于要在 IconFilename 指定的程序文件中使用的圖標。 圖標顯示在“更改圖標”對話框中:0(零)對應于第一個圖標,1 對應于第二個圖標,依此類推。 如果此參數被省略,使用的是第一個(默認)圖標。
2)Link 可選 Variant 如果為 True,則創建指向“剪貼板”內容源文件的鏈接。 默認值為 False。
3)Placement 可選 Variant 可以為下列 WdOLEPlacement 常量之一:wdFloatOverText 或 wdInLine。 默認值為 wdInLine。
4)DisplayAsIcon 可選 Variant 如果為 True,則將鏈接顯示為圖標。 默認值為 False 。
5)DataType 可選 Variant 剪貼板內容在插入文檔后采用的格式。 可以為任意 WdPasteDataType 常量。
6)IconFileName 可選 Variant 如果 DisplayAsIcon 為 True,則此參數是存儲要顯示的圖標的文件的路徑和文件名。
7)IconLabel 可選 Variant 如果 DisplayAsIcon 為 True,則此參數是顯示在圖標下方的文本。
WdPasteDataType 枚舉:
wdPasteBitmap 4 位圖.
wdPasteDeviceIndependentBitmap 5 與設備無關的位圖.
wdPasteEnhancedMetafile 9 增強型圖元文件
wdPasteHTML 10 HTML.
wdPasteHyperlink 7 超鏈接.
wdPasteMetafilePicture 3 圖元文件圖片.
wdPasteOLEObject 0 OLE 對象.
wdPasteRTF 1 RTF 格式
wdPasteShape 8 形狀
wdPasteText 2 文本
下面我們通過一個實例來講解一下本節的知識點,這個實例中我們先定義一個Range,為當前文檔的第二段,然后利用SetRange來擴展這個范圍。
之后我們在文檔的最后插入一個空的段落,將光標移到這個空段落之處。
緊接著,我們要打開一個Excel文件,從這個文件中,我們把B2單元格復制到剪貼板,并將剪貼板的內容以對象的格式粘貼到光標處。
之后,我們再次在文檔的最后插入一個空的段落,將光標移到這個空段落之處。并將Excel文件中的圖表復制到剪貼板中,并將剪貼板中的內容粘貼到光標處。
最后關閉Excel文件。
我們先看一下代碼:
Sub mynzB()
[代碼見教程]
End Sub
代碼截圖:
代碼解讀:
1)Set myRange=ActiveDocument.Paragraphs(2).Range
MsgBox myRange.Text
以上代碼設置 myRange 并提示給用戶myRange 內容。
2)myRange.SetRange Start:=myRange.Start, _
End:=ActiveDocument.Paragraphs(3).Range.End
MsgBox myRange.Text
以上代碼調整 myRange的范圍并提示給用戶myRange 內容。
3) ActiveDocument.Content.InsertParagraphAfter
myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _
End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End - 1
myRange.Select
以上代碼在活動文檔的末尾插入一個段落,并將光標位置調整到最后。
4)Set myEXL=CreateObject("excel.application")
myfile="EXCEL工作簿.XLSX"
myEXL.workbooks.Open ActiveDocument.Path & "\" & myfile
myEXL.Visible=True
設置要打開的文件,并打開這個文件。
5)myEXL.Sheets("Sheet1").Range("B2").Copy
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteOLEObject
'將單元格B2以單元格的形式粘貼wdPasteOLEObject是單元格的格式,如果是文本的格式可以用wdPasteText。
6) ActiveDocument.Content.InsertParagraphAfter
myRange.SetRange Start:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Start, _
End:=ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.End
myRange.Select
以上代碼再次在活動文檔的末尾插入一個段落,并重置光標位置
7) myEXL.Sheets("Sheet1").ChartObjects(1).Copy
Selection.PasteAndFormat Type:=wdChartPicture
以上代碼復制圖表并粘貼,粘貼的是圖片的格式
8)myEXL.workbooks.Close
Set myEXL=Nothing
以上關閉Excel文件。
最后我們看代碼的運行:
Excel工作表的界面如下:
代碼運行的提示框:
我們在當前文檔中可以看一下圖表的格式,會發現這個圖表是圖片格式的。
今日內容回向:
1 Word中Range對象的SetRange 方法、PasteAndFormat方法、PasteSpecial 方法的意義是什么?
2 如何利用VBA插入單元格及圖表?
本講內容參考程序文件:Doc 006文檔.docm
我20多年的VBA實踐經驗,全部濃縮在下面的各個教程中:
【分享成果,隨喜正能量】得與失,是一種選擇,也是一種放棄,沒有一種選擇十全十美,沒有一次決定萬無一失。讓自己豁達起來對于已經失去的東西,你或許也應該慶幸,它們不會再打擾你的內心。
所周知,python最強大的地方在于,python社區匯總擁有豐富的第三方庫,開源的特性,使得有越來越多的技術開發者來完善。
python的完美性。
未來人工智能,大數據方向,區塊鏈的識別和進階都將以python為中心來展開。
咳咳咳! 好像有點打廣告的嫌疑了。
當前互聯網信息共享時代,最重要的是什么?是數據。最有價值的是什么?是數據。最能直觀體現技術水平的是什么?還是數據。
所以,今天我們要分享的是:如何來獲取各個文件格式的文本信息。
普通文件的格式 一般分為: txt普通文本信息,doc word文檔,html網頁內容,excel表格數據,以及特殊的mht文件。
一、Python處理html網頁信息
html類型的文本數據,內容是由前端代碼書寫的標簽+文本數據的格式,可以直接在chrome瀏覽器打開,清楚 的展示出文本的格式。
python 獲取html文件的內容和獲取txt文件的方法相同,直接打開文件讀取就可以了。
讀取代碼如下:
with open(html_path, "r", encoding="utf-8") as f: file=f.read()
file 是html文件的文本內容。是一個網頁標簽的格式內容。
二、Python處理excel表格信息
python擁有直接操作excel表格的第三方庫xlwt,xlrd。調用對應的方法就可以讀寫excel表格數據。
讀取excel操作代碼如下:
filepath="C:\\Users\Administrator\Desktop\新建文件夾\笨笨 前程6份 武漢.xls" sheet_name="UserList" rb=xlrd.open_workbook(filepath) sheet=rb.sheet_by_name(sheet_name) # clox_list=[0, 9, 14, 15, 17] for row in range(1, sheet.nrows): w=WriteToExcel() # for clox in clox_list: name=sheet.cell(row, 0).value phone=sheet.cell(row, 15).value address=sheet.cell(row, 9).value major=sheet.cell(row, 14).value age=sheet.cell(row, 8).value
其中row是表格數據對應的行數, cell獲取具體行數,列數的具體數據。
三、Python讀取doc文檔數據
python讀取doc文檔是最麻煩的。處理邏輯復雜。處理的方式也有很多種。
python 沒有直接處理doc文檔的第三方庫,但是有一個處理docx的第三方庫??梢酝ㄟ^將doc文件轉換為docx文件,再調用第三方python庫pydocx來讀取doc文檔的內容。
這里需要注意的是,不要直接修改doc的后綴來修改成docx文件。直接通過修改后綴獲取的docx文件,pydocx無法讀取內容。
我們可以使用另外一個庫來修改doc為docx。
具體代碼如下:
def doSaveAas(self, doc_path): """ 將doc文檔轉換為docx文檔 :rtype: object """ docx_path=doc_path.replace("doc", "docx") word=wc.Dispatch('Word.Application') doc=word.Documents.Open(doc_path) # 目標路徑下的文件 doc.SaveAs(docx_path, 12, False, "", True, "", False, False, False, False) # 轉化后路徑下的文件 doc.Close() word.Quit()
代碼所需的包接口:
import os import zipfile from win32com import client as wc import xlrd from bs4 import BeautifulSoup from pydocx import PyDocX from lxml import html from xpath_content import XpathContent from write_to_excel import WriteToExcel
python處理docx文檔的方法有很多種,具體使用情況,根據個人需求來決定。
No.1 解壓docx文件
docx文件的原理,本質上就是一個壓縮的zip文件,通過解壓以后,就可以獲取原來文件的各個內容。
docx解壓后的文件結構如下:
docx文件的文本內容存儲結構如下:
文本內容存儲于word/document.xml文件中。
第一種方法,我們就可以先將docx還原成zip壓縮文件,再解壓zip文件,讀取word/document.xml文件的內容就ok了。
具體操作代碼如下:
def get_content(self): """ 獲取docx文檔的文本內容 :rtype: object """ os.chdir(r"C:\Users\Administrator\Desktop\新建文件夾") # 改變目錄到文件的目錄 # os.rename("51 2014.09.12 1份Savannah.docx", "51 2014.09.12 1份Savannah.ZIP") # 重命名為zip文件 f=zipfile.ZipFile('51 2014.09.12 1份Savannah.ZIP', 'r') # 進行解壓 xml=f.read("word/document.xml") wordObj=BeautifulSoup(xml.decode("utf-8")) # print(wordObj) texts=wordObj.findAll("w:t") content=[] for text in texts: content.append(text.text) content_str="".join(content) return content_str
最后獲取到的就是docx文檔的所有文本數據了。
No.2 將docx文檔轉換成python能夠處理的文本格式
第一種方法,是依據docx文檔的原理來獲取數據,流程有點繁瑣,有沒有能直接讀取docx文檔內容的方法呢?答案,肯定是沒有的,別想了,洗洗回家睡吧。
直接讀取docx文檔的方法沒有,有沒有能夠將docx文檔轉換成python能夠輕松處理的文本格式呢?
這個可以有,前面說了,python擁有大量豐富的第三方庫(先夸一波我大python),歷經千辛萬苦終于找到了,一個能轉換docx文檔格式的第三方庫,pydocx,pydocx庫中有個方法pydocx.to_html()就可以直接將docx文檔轉換為html文件,怎么樣?意不意外,驚喜不驚喜!
第二種方法,轉換文本格式的代碼如下:
def docx_to_html(self, docx_path): """ docx文檔轉換成html響應 :rtype: object """ # docx_path="C:\\Users\Administrator\Desktop\新建文件夾\\51 2014.09.12 1份Savannah.docx" response=PyDocX.to_html(docx_path)
獲取到的response是html文件內容。
四、Python處理mht文件
mht文件是一種只能在IE瀏覽器上展示的文本格式,在chrome瀏覽器中打開是一堆的亂碼。
No.1 偽造IE請求mht文件內容
最基礎的讀取mht文本的方法就是偽造IE瀏覽器請求。
調用requests庫,發送get請求網頁鏈接,構造IE的請求頭信息。
理論上來說,這種方法是可行的。但是呢,不建議用,原因大家都懂得。
No.2 轉換文件格式
好了說正經的方法,猜測mht文件能否修改成其他文件格式來直接讀取呢?
docx,不行;html,不行;excel,更不用說了。
真相只有一個?。。?/p>
直接修改后綴得到的docx,無法讀取。
so,我們想到的方法是什么呢。沒錯,就是修改成doc文檔。
方法是匪夷所思的,但也是靈感一現。
mht可以直接通過修改后綴轉換成doc文檔,doc文檔讀取文本內容的方法具體參考上面讀取doc文檔的方法。
如何獲取html文本的內容?
html文本的內容是網頁結構標簽數據,取出文本的方式是:re正則,或者xpath。
后續,小伙伴有需要的話,會再開一章詳細了解re,xapth的使用規則。
來源網絡,侵權聯系刪除
HTTP range 請求允許我們從服務器上只發送HTTP消息的一部分到客戶端。這樣的部分請求對于大型媒體、具有中斷和恢復下載進度的下載文件請求很有幫助。
在進行HTTP range 請求之前,先檢查服務器是否支持部分請求
如果請求一個資源時, HTTP響應中出現如下所示的 'Accept-Ranges', 且其值不是none, 那么服務器支持范圍請求。
curl -I http://i.imgur.com/z4d4kWk.jpg
HTTP/1.1 200 OK
...
Accept-Ranges: bytes
Content-Length: 146515
在如上響應中,Accept-Ranges: bytes 代表可以使用字節作為單位來定義請求范圍。這里的 Response Headers中的 Content-Length: 146515 則代表該資源的完整大小。
如果站點響應中未返回 Accept-Ranges 響應頭,或者其值為none,那么這意味著server不支持HTTP range請求。
我們可以對一個資源發起單個范圍請求:
curl http://i.imgur.com/z4d4kWk.jpg -i -H "Range: bytes=0-1023"
發出的請求如下:
GET /z4d4kWk.jpg HTTP/1.1 Host: i.imgur.com Range: bytes=0-1023
正常情況下 server 返回 206 部分內容響應:
HTTP/1.1 206 Partial Content Content-Range: bytes 0-1023/146515 Content-Length: 1024 ... (binary content)
這次并非檢查server是否支持range請求,故Content-Length表示的是現在請求的范圍大小,而Content-Range則表示的是這部分消息在完整資源中的位置。
curl http://www.example.com -i -H "Range: bytes=0-50, 100-150"
用逗號隔開多個范圍,即可同時請求多部分資源。
響應如下:
HTTP/1.1 206 Partial Content Content-Type: multipart/byteranges; boundary=3d6b6a416f9b5 Content-Length: 282 --3d6b6a416f9b5 Content-Type: text/html Content-Range: bytes 0-50/1270
該響應有:
每個部分包含自己的Content-Type 和 Content-Range
當繼續請求更多資源時,你需要確保被存儲的資源在上一幀收到后沒有被改變。
If-Range HTTP請求創建了一個帶條件的range HTTP請求,如果條件得到滿足,range請求將會被發出,server 發回帶有適當正文的206 partial content 應答,如果條件不滿足則返回完整資源,并顯示200 OK狀態。這個頭可以與Last-Modified 驗證程序,或者與 ETag 一起使用。
If-Range: Wed, 21 Oct 2015 07:28:00 GMT
在處理HTTP Range 請求時,有三個相關的狀態:
Transfer-Encoding 請求頭允許分塊編碼,這在服務器給客戶端發送大量的數據,且響應總大小直到請求結束才能確定時很有用,如果服務器直接發送數據給客戶端而不緩存響應,或者確定具體響應大小的話,會產生延遲。HTTP Range 請求和分塊是兼容的,一起用或者不一起用均可。
*請認真填寫需求信息,我們會在24小時內與您取得聯系。