只是記錄

MsgSubject EmailToEmailCCEmailBCC AttachmentImportancePublic Enum ImportanceLevel  High  Medium  LowEnd EnumFunction SendMessage(Msg As String, Subject As Strin

Sub SplitSectionsAsDocuments()'' 分文件''    Dim oSrcDoc As Document, oNewDoc As Document    Dim strSrcName As String, strNewName As String    Dim oRange As Range    Dim nIndex As Integer

利用網頁轉出資料到 Excel 上常會遇到想要以文字格式顯示的數字，像是手機號碼、帳號之類的資料，被 Excel 自動轉換成數字格式，於是前面的 0 被省略掉了、帳號變成科學記號了...等等的麻煩，有個方便的方式不會去加入奇奇怪怪的東西到欄位裡面，讓 Excel 不會去判斷成數字，很簡單，只要在 td 裡面加入 style 設定就行了。 mso-number-format:"0"    N

前提：先製作完成Word和資料來源的關聯Sub ProduceDoc()'Dim stMedd As String'Dim obMapp As Variant'stMedd = "請選擇分割後申請表目錄：" '選擇目錄'Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1)

建置條件：從？欄有圖片檔名資料，再選擇照片所在目錄對應出每一欄位的實際路徑，                   並自動加入圖片在？欄，後再清除圖片檔名，但不知為何第一次加入的照片很糊，需Run二次才OK。Private Sub CommandButton1_Click()   Dim stMedd As String   stMedd = "請選擇照片來源目錄：" '選擇