罐頭裡的世界

2016年6月10日星期五

[VBA] A macro for copying the text from pdf to excel with Adobe Reader ONLY

Sub pdf2exl()
    Dim starDir As String, PDFPath As String, READERPath As String

    'Starting path for user selecting pdf files
    startDir = "C:\testing\"
    ChDir startDir
    PDFPath = Application.GetOpenFilename(filefilter:="PDF file (*.pdf), *.pdf")
    If UCase(PDFPath) = "FALSE" Then
        Exit Sub
    End If

    'Please change to your own Adobe Reader installation path
    READERPath = "C:\Program Files (x86)\Adobe\Acrobat Reader\AcroRd32.exe "
    Shell READERPath & PDFPath, vbNormalFocus: DoEvents
    Application.Wait Now + TimeValue("00:00:2")
    SendKeys "^a", True
    Application.Wait Now + TimeValue("00:00:2")
    SendKeys "^c"
    Application.Wait Now + TimeValue("00:00:2")
    SendKeys "%{F4}", True
    Application.Wait Now + TimeValue("00:00:2")
    
    'Paste in Sheet1
    Worksheets("Sheet1").Activate
    Sheet1.Cells.Clear
    Sheet1.Paste Sheet1.Range("A1")
End Sub

2016年6月7日星期二

日本工作假期(Working Holiday) 申請篇(後)

日本工作假期申請結果公佈

今天是公佈2016年日本工作假期申請結果的大日子，不知道申請了的朋友仔結果如何？打算申請的朋友又有沒有留意呢？

まず、一番大事なのは私の結果発表！じゃんじゃん！！

確認したら…

確認したら…

閱讀全文 »

2016年6月5日星期日

2016 JLPT N2 窮學生應援計劃-Day5下午

Day 5 (距離死亡28日) 下

文法：

29. ～かける／～かけだ／～かけの[名]
N	A	Na	Vます～
未X完...／差D...

読みかけの本が何冊もある。

30.　～切(き)る／～切れる
N	A	Na	Vます～
X完晒...／盡...

この小説はおもしろくて、１日で読み切った。
彼は疲れ切った顔をしている。
相反：切れない

31.　～得(え／う)る
N	A	Na	Vます～
有可能...／盡可能...

博士(はかせ)でも間違うことはありえる。

これが私の知りうるすべての情報です。

~~ありうない、ありうます~~

相反：ありえない

32.　～抜く
N	A	Na	Vます～
直到最後仍然持續...／堅持...

大変な仕事でも、やり抜く自信があります。（＝頑張って最後までやる）

彼はあきらめずにゴールまで走り抜いた。（＝頑張って最後まで走り続けた）

~~使い抜く~~
使い切るOK

生字：

73. 水準すいじゅん

74. 哲学てつがく

75. 全体ぜんたい

76. 利益りえき

77. 直接ちょくせつ

78. 世界せかい

79. 涙なみだ

80. 疑問ぎもん

81. 政府せいふ

82. 分ぶん

83. 経験けいけん

84. 物事ものごと

2016 JLPT N2 窮學生應援計劃由罐頭菜製作，
以創用CC 姓名標示-非商業性-相同方式分享 4.0 國際授權條款釋出。

2016 JLPT N2 窮學生應援計劃-Day5上午

Day 5 (距離死亡28日) 上