【2017北京遊記｜避開人群遊八達嶺長城】不到長城非好漢

話說，這是本人已經第４次到北京，可是一直還沒有登過長城，
很主要的一個原因是，長城的位置實在太遠了，加上每天遊長城的人太多了。
一般人到北京旅行，都會選擇投宿在四環之內，
但我今次是因為工作而到北京，為了方便工作地點所以下塌於上地（五環外）的酒店。
剛好，工作提前完成了，空出了一天的時間，因此我就臨時起了去長城當個好漢的心。

Blogger教學

了解我的人都會知道, 本人既懶惰, 又不喜歡做多餘的事, 所以前人已搜集整理的資料, 若無更新或補充, 我就不再多寫一遍了, 除非我認為自己整理得特別有心得。本人也還在學習階段, 所以這裡大概都是一些教學的網址導向, 若已死link, 麻煩告之, 謝謝！

【JLPT N1 文法】〜すら VS ～さえ

〜すら 

意思：
舉一極端例子，表示連該例子都是這樣，其他的當然也如此。
大多帶有消極或負面的意味，後續多為否定句。

用法：
1. 名詞  (+ 副詞*) + すら
2. 動て形 + すら
*可有可無，生物後跟で較為多

一般中文翻譯為：
連～都（也）～／甚至～

例子：
1. 親友が結婚したことは私ですら知らなかった。
　我的好友結婚了，連我都不知道。
2. 彼女が心配で、水すらのどを通らなかった。
　我擔心女朋友，甚至連水都嚥不下喉嚨。
3. 転勤したことは、親にすら知らせなかった。
　我轉了工作的事情，甚至連父母都沒有告訴。
4. お父さんはテレビに夢中で、話してすらくれない。
　父親正沉醉在電視中，連跟我說話都不行。


〜さえ (N3文法)

意思：
基本上與～すら相同，分別在於～さえ正面或負面都可以使用，可接續的詞類更多。
要再更強調的話，可以用～さえも、～でさえも。

用法：
1. 名詞  + さえ

2. 動て形 + さえ

一般中文翻譯為：
連～都（也）～／甚至～

例子：
1. 博士でさえ解けない問題だから，一般の人にわかるはずがない。
　這是就連博士都無法解答的問題，一般人更無法理解了。
2. お金さえあれば，満足だ。
　只要有錢，我就滿足了。

[金句]004

Set your minds on the things above, not on the earthly things.　－Colossians 3:2

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

Day 6 (距離死亡27日) 上

文法：

33. ～うちに
Nの～	Aい～	Naな～	Vない／Vている～
趁著還...

忘れないうちに、メモしておこう。
桜がきれいなうちに、お花見に行きましょう。

34.　～か～かのうちに
N	A	Na	Vる～Vない～
剛一...／...同時

授業が終わるか終わらないかのうちに、彼は教室を出た。
布団に入るか入らないかのうちに眠ってしまう。

35.　～限り
Nである～	Aい～／Aくない～	Naな／Naである～	Vる～／Vない～
a.  只要還是...／as long as... b.  Vる～／Vた～／Vている～　就...所...

a. 日本にいる限り、日本語は必要だ。
   悪い生活習慣を改めない限り、健康にはなれない。
b. 私の調べた限り、こういう研究はだれもしていない。
   私の知る限り／彼から聞いた限り／昨日見た限り

36.　～限り／～限って／～限らず～も
Nに～ N（時間／数量）～	A	Na	V
只限...／只是這個時間或數量...

70歳以上の方に限り、入場無料。
最近は、女性に限らず男性も化粧をする。
雨だ。今日に限ってかさを持ってこなかった。
うちの子に限って悪いことをするはずがない。（唔似其他小朋友）

生字：

61.   水準すいじゅん

62.  哲学てつがく

63.  全体ぜんたい

64.   利益りえき

65.  直接ちょくせつ

66.  世界せかい

67.   涙なみだ

68.   疑問ぎもん

69.   政府せいふ

70.   分ぶん

71.   経験けいけん

72.   物事ものごと

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

[金句]003

只要你沒有忘記，他就仍然活著，活在你的心中。　－靜妃（琅琊榜）

[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