整合營銷服務商
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
分享成果，隨喜正能量】不要對失去過于糾結，這不僅有利于讓你放下曾經的美好事物，也有利于讓你在面對現在所擁有的一切，能夠更加安心、更加踏實。。
《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小時內與您取得聯系。
