上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 1 樓
|
發表於: 星期一 一月 16, 2017 3:08 pm 文章主題: WORD InlineShapes.AddPicture 使文字在前 |
|
|
想請教 各先進
VFP 匯出至 WORD InlineShapes.AddPicture 後
如 圖1
如何使 文字在前
如圖 2 版面美觀 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 2 樓
|
發表於: 星期一 一月 16, 2017 4:49 pm 文章主題: |
|
|
用表格試試,
公司名稱一欄。其右發票章也一欄 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 3 樓
|
發表於: 星期二 一月 17, 2017 9:31 am 文章主題: |
|
|
謝謝 Ckp6250 先進的指導
一直執著於尋找 文字在前的語法
山不轉人要轉
是的 用儲存格欄位的方式
雖沒想像中的美觀
但
應該是可以接受的
sorry 試過了 還是不行 |
|
回頂端 |
|
|
a2336456
註冊時間: 2015-09-01 文章: 25
第 4 樓
|
發表於: 星期三 一月 18, 2017 8:28 am 文章主題: |
|
|
建議您,個資相關要馬賽克 ... |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 5 樓
|
發表於: 星期三 一月 18, 2017 9:08 am 文章主題: |
|
|
出賣老闆個資,應該不會天怒人怨. XD
---
老闆個資一筆不到10元 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 6 樓
|
發表於: 星期四 一月 19, 2017 11:52 am 文章主題: |
|
|
謝謝 Syntech 大師
旅行社 屬特許行業 歸觀觀局管理
各家旅行社的資料都查得到
所以 這些資料 不值錢 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 7 樓
|
發表於: 星期五 一月 20, 2017 4:55 pm 文章主題: |
|
|
有查到以下VBA指定, 沒試過怎麼用
Selection.ShapeRange.WrapFormat.Type_:= wdWrapTight; // 將圖片的文繞圖方式改為'緊密'
參考: https://msdn.microsoft.com/en-us/library/bb214041(v=office.12).aspx
type 有下列幾種設定值.
wdWrapInline 7 Places shapes in line with text.
wdWrapNone 3 Places shape in front of text. See also dWrapFront.
wdWrapSquare 0 Wraps text around the shape. Line continuation is on the oposite side of the shape.
wdWrapThrough 2 Wraps text around the shape.
wdWrapTight 1 Wraps text close to the shape.
wdWrapTopBottom 4 Places text above and below the shape.
wdWrapBehind 5 Places shape behind text.
wdWrapFront 6 Places shape in front of text. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 8 樓
|
發表於: 星期一 一月 23, 2017 1:01 pm 文章主題: |
|
|
感謝 Garfield 先進
後學 試試 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 9 樓
|
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 10 樓
|
發表於: 星期二 一月 24, 2017 10:17 am 文章主題: |
|
|
oWord = Createobject("Word.Application")
oWord.Visible = .F. && Toggle this to True to see if there's
&& any difference
oWord.Documents.Add()
WITH oWord.Selection
.TypeText("line 1")
.TypeParagraph
.TypeText("line 2")
.Movedown(5, 1)
.TypeParagraph
.TypeText("line 3** 圖會浮在文字上, 你手動移動圖片試看看.")
.TypeParagraph
.TypeText("line 4.oWord.Visible=.t.")
.TypeParagraph
ENDWITH
mfile = [d:\mydocuments\pictures\八段錦-1.雙手托天理三焦.gif]
oPic = oWord.Selection.InlineShapes.AddPicture(mfile)
with oPic
*可調整圖片大小.位置.的一些程式碼.
endwith
*浮在在字的上面.
oWord.Selection.ShapeRange.WrapFormat.Type= 5 && wdWrapBehind _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 11 樓
|
發表於: 星期二 一月 24, 2017 1:16 pm 文章主題: |
|
|
謝謝 Garfield 先進
後學知道問題出在 沒 FOCUS AddPicture 上
所以 oWord.Selection.ShapeRange.WrapFormat.Type= 1
所以 OLE ID..... 異常....
感恩 |
|
回頂端 |
|
|
|