返回列表 上一主題 發帖

請教操作 excel vba 直書橫書操作

eigen

帖子
79 
主題
33 
精華
0 
積分
123 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-10-24 
最後登錄
2024-3-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-20 13:10 | 只看該作者

請教操作 excel vba 直書橫書操作

請教操作 excel vba 直書橫書操作

自從

請教，如何隱藏儲存格內的圖片？如何快速指定列印頁？
http://forum.twbts.com/viewthread.php?tid=10659

學會如何套表列印後，工作效率變快了，考試都考100分

現在我又遇到瓶頸了

目前的問題卡在 中文信封 地址的 直書 橫書 對數字的影響

一、word 直書的址地最好

高雄市三民區博愛３段123號10弄2樓

高
雄
市
三
民
區
博
愛
３
段
123
號
10
弄
2
樓

當然，最好的地址顯示，應該像這樣

但是 word 已經夠好了，不強求，原本打印地址是用word 排好版之後，用合併列印操作出來的

學會 excel 套表，就整個改到 excel 上了

二、在exel 上，無論是橫書 加上強制換行，或直書， 數字的顯示效果都不好

https://www.dropbox.com/s/h9slna0wnwuzlhu/letter_test.xls
從測試檔可以看的出來。

三、後來我發現 excel 可以插入->物件->word 文檔

用這樣的方式就可以將 word 的顯示方式弄到 excel 上了

現在變成卡在 vba 要怎麼寫？原本 .[i3] = E.Range("d1")                           '發票地址

就能搞定，現在我完全不知要如何下手

原本有用 巨集的方式試測，只發現 ActiveSheet.Shapes("Object 18").Select，

接下來的word圖文框的內容要從何下手去修改則完全沒頭序
收藏 分享

eigen

帖子
79 
主題
33 
精華
0 
積分
123 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-10-24 
最後登錄
2024-3-28 
2#
發表於 2013-11-20 13:35 | 只看該作者
上面我實作的測試檔給錯了，這個才對

https://dl.dropboxusercontent.com/u/12575824/letter_test.xls

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-11-20 14:48 | 只看該作者
本帖最後由 stillfish00 於 2013-11-20 14:50 編輯

回復 2# eigen
模組新增Function:
  1. Function StrToVertical(s As String) As String
  2.   With CreateObject("vbscript.regexp")
  3.     .Global = True
  4.     .Pattern = "(\d+|[^\d])"
  5.     StrToVertical = .Replace(s, "$1" & vbLf)
  6.   End With
  7. End Function
複製代碼
PrintPage() 中
  1. .[i3] = E.Range("d1")
複製代碼
改為
  1. .[i3] = StrToVertical(E.Range("d1").Value)
複製代碼

TOP

eigen

帖子
79 
主題
33 
精華
0 
積分
123 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-10-24 
最後登錄
2024-3-28 
4#
發表於 2013-11-20 15:25 | 只看該作者
本帖最後由 eigen 於 2013-11-20 15:26 編輯

沒想到這麼簡單就達到了最理想的做法，連 插入word都不用

我又加入  Replace(E.Range("d1").Value, "-", "之")  讓 -變成 之 ，整個perfect!!! 100分

太感謝了~~

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題