{"url":"https://pagetaka.hatenadiary.org/entry/20090527/p1","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fpagetaka.hatenadiary.org%2Fentry%2F20090527%2Fp1\" title=\"\u6587\u5b57\u5217\u306e\u300c\u5927\u5c0f\u300d\u2025VBA - PageTAKA\u306e\u65e5\u8a18(\u5199\u771f\u3001 \uff30\uff23\u3001 \u5ca1\u5c71)\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["\uff30\uff23"],"author_name":"PageTAKA","width":"100%","height":"190","type":"rich","description":"WordVBA\u3092\u4f7f\u3046\u6a5f\u4f1a\u304c\u3042\u308a\u307e\u3057\u3066\u3001\u6b21\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u307e\u3057\u305f\u3002 Dim ParaText As Paragraph For Each ParaText In ActiveDocument.Paragraphs txt = ParaText.Range.Text If Left(txt, 6) > \"070100\" And Left(txt, 6) Debug.Print txt End If Next \u5909\u6570txt\u306e\u5177\u4f53\u4f8b\u306f\u300c081010\u4eca\u65e5\u306f\u5927\u962a\u304b\u3089\u73cd\u3057\u3044\u304a\u5ba2\u3055\u3093\u300d\uff08\u672b\u5c3e\u306b\u6539\u884c\u304c\u3064\u3044\u3066\u3044\u308b\uff09\u3068\u3044\u3046\u3088\u3046\u306a\u3082\u306e\u3067\u3059\u3002 \u30c0\u30d6\u30eb\u30af\u30a9\u30fc\u30c6\u30fc\u30b7\u30e7\u30f3\u3067\u56f2\u307e\u308c\u305f6\u6841\u306e\u6587\u5b57\u5217\uff08\uff1d\u534a\u89d2\u306e\u6570\u5b57\uff09\u306f\u3001\u897f\u6d0b\u6b74\u3092\u7565\u2026","author_url":"https://blog.hatena.ne.jp/PageTAKA/","image_url":null,"provider_name":"Hatena Blog","blog_url":"https://pagetaka.hatenadiary.org/","version":"1.0","published":"2009-05-27 00:00:03","title":"\u6587\u5b57\u5217\u306e\u300c\u5927\u5c0f\u300d\u2025VBA","blog_title":"PageTAKA\u306e\u65e5\u8a18(\u5199\u771f\u3001 \uff30\uff23\u3001 \u5ca1\u5c71)","provider_url":"https://hatena.blog"}