Access΢n
Accessƽ_QQȺ̖84825014    Access_lƽ_dַ̳    gӭ΢Ž~̖AccessoftChu    οվ|ʾ|Y    
λã > g > Access-

2019年欧预赛规 :εĈACCESSWORDEXCEL

2020ŷޱԤ www.okrxb.com rg:2014-09-25 06:01:05
:litao   ID37995  УϺ
ժҪ:

       1WORDEXCELģ

       2VBA_ģ

       3oģ塾b

       4ӡ顿ģ
:

          ACCESS Јˎ״ζMݔĈЧWORDEXCEL̫Ҳְl޸

            뵽VBA{WORDEXCEL

       1WORDEXCELģ

       2VBA_ģ

       3oģ塾b

       4ӡ顿ģ


     bk1EXCELԺܺεÆԪCells Rangeλ_λ

                                   2WORDλ韩òQFindQ



AccessܛWٷQQȺ (Ⱥ̖:596608182) accessԴaW

鿴uՓ(12)

2020/2/29 17:37:43
Ո ôEXCEL

2014/12/10 17:01:19Brian
Thanks

2014/10/2 16:22:27litao
word ģʾ
,Ƶ½һwordļ

ӛ̖ӛ̖

ԄeԄe


2014/10/2 16:18:17litao

Public Function ӡwz(ӛ̖ As String,  As String, Ԅe As String) As Boolean
    On Error GoTo err
    MePath = CurrentProject.Path & "\"
    Dim PF As String
    PF = MePath & wzģ
    Call OpenWord(PF) '_ļ
    '딵
    Call docFQ("ӛ̖", ӛ̖)
    Call docFQ("", )
    Call docFQ("Ԅe", Ԅe)
    docF.PrintOut 'ӡ    
    Call CloseDoc
err:
End Function

2014/10/2 16:14:37litao
P]WORD
Private Sub CloseDoc()
    docF.Close (wdDoNotSaveChanges)
    Set docF = Nothing
    Word.Quit
    Set Word = Nothing
End Sub

luՓuՓ߷ĄuՓһ°

Ñ
ܡa
ȡݣ
 

Ҋ

g

PYԴ

| ՗l | ھͶ | | WվyӋ |