VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

WORD InlineShapes.AddPicture 使文字在前

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 1 樓

發表發表於: 星期一 一月 16, 2017 3:08 pm    文章主題: WORD InlineShapes.AddPicture 使文字在前 引言回覆

想請教 各先進
VFP 匯出至 WORD InlineShapes.AddPicture 後
如 圖1
  
如何使 文字在前
如圖 2 版面美觀
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 2 樓

發表發表於: 星期一 一月 16, 2017 4:49 pm    文章主題: 引言回覆

用表格試試,
公司名稱一欄。其右發票章也一欄
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 3 樓

發表發表於: 星期二 一月 17, 2017 9:31 am    文章主題: 引言回覆

謝謝 Ckp6250 先進的指導
一直執著於尋找 文字在前的語法
山不轉人要轉
是的 用儲存格欄位的方式
雖沒想像中的美觀

應該是可以接受的

sorry 試過了 還是不行
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
a2336456



註冊時間: 2015-09-01
文章: 25


第 4 樓

發表發表於: 星期三 一月 18, 2017 8:28 am    文章主題: 引言回覆

建議您,個資相關要馬賽克 ...
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 5 樓

發表發表於: 星期三 一月 18, 2017 9:08 am    文章主題: 引言回覆

出賣老闆個資,應該不會天怒人怨. XD


---
老闆個資一筆不到10元

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 6 樓

發表發表於: 星期四 一月 19, 2017 11:52 am    文章主題: 引言回覆

謝謝 Syntech 大師
旅行社 屬特許行業 歸觀觀局管理
各家旅行社的資料都查得到

所以 這些資料 不值錢
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
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 先進
後學 試試
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
Patrick Wu



註冊時間: 2007-01-03
文章: 223
來自: 台北市

第 9 樓

發表發表於: 星期一 一月 23, 2017 3:38 pm    文章主題: 引言回覆

對不起各先進
後學功力太差了

後學 有找過這篇文章
https://www.experts-exchange.com/questions/24369997/Macro-Doesn't-Work-in-Word-2007.html
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
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..... 異常....

感恩
回頂端
檢視會員個人資料 發送私人訊息 MSN Messenger
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作