- 追加された行はこの色です。
- 削除された行はこの色です。
#contents
*Word 関連情報 [#ca903aa6]
**サンプルコード [#jfe828fb]
***Wordで使用しているフォント名を文字単位で出力するマクロ [#z754764d]
' デバッグログの出力先
Const g_strLogFile = "C:\DebugPrint.Log"
' 段落単位でフォント名を出力
Sub ShowParaFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
DebugPrint "[" & para.Font.Name & "]" & para.Text
Next
End Sub
' 単語単位でフォント名を出力
Sub ShowWordFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim word
For Each word In para.Range.Words
DebugPrint "[" & word.Font.Name & "]" & word.Text
Next
Next
End Sub
' 文字単位でフォント名を出力
Sub ShowCharFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim char
For Each char In para.Range.Characters
DebugPrint "[" & char.Font.Name & "]" & char.Text
Next
Next
End Sub
' 文字単位でフォント名と全角・半角判別情報を出力
Sub ShowCharZenHanFontName()
Dim para
For Each para In ActiveDocument.Paragraphs
Dim char
For Each char In para.Range.Characters
If Asc(char.Text) >= 0 And Asc(char.Text) <= 255 Then
DebugPrint "[" & char.Font.Name & "]" & "[半]" & char.Text
Else
DebugPrint "[" & char.Font.Name & "]" & "[全]" & char.Text
End If
Next
Next
End Sub
' デバッグ文字列の出力
Function DebugPrint(ByVal strData As String)
' Debug.Print strData
Open g_strLogFile For Append As #1
Print #1, strData
Close #1
End Function
' ログファイルのクリア用
Function TruncateLogFile()
Open g_strLogFile For Output As #1
Close #1
End Function
-対象ファイル（test.doc）
#ref(word_sample_20040721.jpg);
-実行結果（プロシージャ：ShowCharZenHanFontName() / 結果：DebugPrint.log ）
[Century][半]a
[Century][半]b
[Century][半]c
[Century][半]d
[Century][半]e
[Century][半]f
[Century][半]g
[Century][半]h
[Century][半]i
[Century][半]j
[Century][半]k
[Century][半]l
[Century][半]m
[Century][半]n
[Century][半]o
[Century][半]p
[Century][半]q
[Century][半]r
[Century][半]s
[Century][半]t
[Century][半]u
[Century][半]v
[Century][半]w
[Century][半]x
[Century][半]y
[Century][半]z
[Century][半]
[Century][半]A
[Century][半]B
[Century][半]C
[Century][半]D
[Century][半]E
[Century][半]F
[Century][半]G
[Century][半]H
[Century][半]I
[Century][半]J
[Century][半]K
[Century][半]L
[Century][半]M
[Century][半]N
[Century][半]O
[Century][半]P
[Century][半]Q
[Century][半]R
[Century][半]S
[Century][半]T
[Century][半]U
[Century][半]V
[Century][半]W
[Century][半]X
[Century][半]Y
[Century][半]Z
[Century][半]
[ＭＳ 明朝][全]あ
[ＭＳ 明朝][全]い
[ＭＳ 明朝][全]う
[ＭＳ 明朝][全]え
[ＭＳ 明朝][全]お
[ＭＳ ゴシック][全]１
[ＭＳ ゴシック][全]２
[ＭＳ ゴシック][全]３
[ＭＳ ゴシック][全]４
[ＭＳ ゴシック][全]５
[Century][半]1
[Century][半]2
[Century][半]3
[Century][半]4
[Century][半]5
[Century][半]
[ＭＳ 明朝][全]あ
[ＭＳ 明朝][全]い
[ＭＳ 明朝][全]う
[ＭＳ 明朝][全]え
[ＭＳ 明朝][全]お
[ＭＳ 明朝][全]１
[ＭＳ 明朝][全]２
[ＭＳ 明朝][全]３
[ＭＳ 明朝][全]４
[ＭＳ 明朝][全]５
[Century][半]1
[Century][半]2
[Century][半]3
[Century][半]4
[Century][半]5
[Century][半]
[Century][半]
-はてな
--http://www.hatena.ne.jp/1090284941
- chenlina20161130http://www.jordan8.net http://www.raybansunglassess.com.co http://www.tomssale.in.net http://www.denverbroncosjerseys.us.com http://www.truereligionjeans-outlet.us.com http://www.michael--korsoutlet.us.com http://www.nike-rosherun.in.net http://www.canadagoosecanada.com.co http://www.cheaprolexwatches.name http://www.cheapuggsboots.us.com http://www.uggbootaustralia.us.com http://www.coachoutletcheap.us.com http://www.michaelkorsoutletofficial.us.com http://www.oakleystore.com.co http://www.michaelkors--outlet.com.co http://www.katespadehandbagsoutlet.us.com http://www.katespade.eu.com http://www.adidasyeezy350.us.com http://www.tomsshoes.us.org http://www.nike-airmax.me.uk http://www.louboutinshoes.cc http://www.jordan3.net http://www.louis-vuittonoutlet.eu.com http://www.jordan6.net http://www.adidas-yeezy.us.com http://www.raybansunglasses.me.uk http://www.gooseoutlet.us.com http://www.hollistercoclothing.com http://www.bostoncelticsjerseys.com http://www.outlet-uggboots.us.com http://www.niketrainers.uk http://www.ray-ban-sunglasses.com.co http://www.gucci-inc.com http://www.cheapjordansshoes.us.com http://www.aididasyeezy.org.uk http://www.coachhandbagsnew.us.com http://www.true-religionjeans.us.org http://www.oakleys-sunglasses.us.org http://www.timberlandboots.net.co http://www.uggoutlet-stores.us.com http://www.rosherun.org http://www.truereligion-jeans.us http://www.gucci-outlet.in.net http://www.outletcanadagoose.com.co http://www.poloralphlaurenuk.co.uk http://www.coachoutletstoreonlinesale.us.com http://www.uggoutletonline.in.net http://www.uggsuk.org.uk http://www.uggs-pascher.fr http://www.abercrombiefitch.us.com http://www.true-religion.me.uk http://www.cincinnatibengalsjerseys.us.com http://www.coachfactoryoutletmall.us.com http://www.michaelkors--outlet.us.com http://www.uggsaustralia.it http://www.louisvuittonofficial.us.com http://uggs.uggaustralia.qc.com http://www.ralphlaurenoutletofficial.us.com http://www.louis-vuittonoutlets.us.org http://www.mlbjerseys.org http://www.louis--vuitton.us.org http://www.nike-airmaxpascher.fr http://www.christianlouboutin.name http://www.oakleysunglassess.com.co http://www.toryburchoutlet.us.org http://www.uggbootscanada.ca http://www.louboutin.us.com http://www.mcmbags.com.co http://www.adidas.in.net http://www.tommyhilfigeroutlet.us.org http://www.abercrombieoutletonline.cc http://www.asicsshoes.name http://www.nba-jerseys.us.com http://www.polooutlet-online.us.com http://www.tomswedges.us http://www.thenorthface.net.co http://www.raybanoutlet.net.co http://www.raybansunglasses.uk http://www.basketballshoes.name http://www.ugg-bootsuk.co.uk http://www.monclerjacketsuk.me.uk http://www.gucci-outlet.org http://www.louisvuittonlvoutlet.us.com http://www.rolexwatchesforsale.name http://www.hollisterclothing.net http://www.louisvuitton-outlet.ca http://www.michaelkorsoutlet-store.us.org http://www.michael-korsbags.us.com http://www.burberryoutlet.in.net http://www.montblanc-pens.name http://www.cheapjordansshoes.in.net http://www.jordan13.org http://www.retrojordans.name http://www.jordansforsale.in.net http://timberland.officialfree.net http://www.outlet-celine.com http://www.north-faceoutlet.net.co http://www.adidastrainers.uk http://www.miamiheatjerseys.us.com http://www.nhljerseys.org http://www.ugg.eu.com http://www.tomsshoesuk.org.uk http://www.canadagoose-pascher.fr http://www.hogan-scarpe.it http://www.louboutinfemme-pascher.fr http://www.louisvuitton.de.com http://www.poloralph-lauren.us.org http://www.ralphlaurenpolo.in.net http://www.uggsclearance.us.org http://www.cheapuggssale.us.com http://www.nike--rosherun.fr http://www.hilfigeroutlet.in.net http://www.outletcanadagoose.name http://www.michaelkorsoutletclearance.us.org http://www.uggbootsparis.fr http://www.supra-shoes.net http://www.uggoutletsales.us.com http://www.canadagoosejacketsoutlet.us.com http://www.truereligion-jeans.com.co http://www.cheapoakleysunglasses.net.co http://www.louboutinshoesoutlet.co.uk http://www.michaelkorshandbagsonsale.com http://www.abercrombieandfitchoutlet.in.net http://www.moncleroultet.us.com http://www.pittsburghsteelersjerseys.us.com http://www.cheapoakleysunglassess.com.co http://www.outletslouisvuitton.us.com http://www.oakley-sunglasses.net.co http://www.raybansunglassesoutlet.net.co http://www.losangelesclippersjerseys.com http://www.uggcheap.us.com http://www.toms-shoes.cc http://www.louisvuittonhandbagsoutlet.us.org http://www.christianlouboutinoff.us http://www.coachfactoryoutlet-onlinestore.us.com http://www.adidas-nmd.co.uk http://www.cheapraybans.us.org http://www.louis-vuitton-borse.it http://www.gucci--outlet.com.co http://www.redbottoms.org.uk http://timberlandboots.hugeoff.net http://www.michaelkorsuk.com.co http://www.hermesbags.us.org http://www.pandorajewelry.in.net http://www.raybanssunglasses.com.co http://www.niketn-pascher.fr http://www.kevindurantshoes.name http://www.burberry-outletonline.com.co http://www.louis-vuittonoutlet.us.com http://www.canadagooseuk.uk http://www.fitflopssaleclearance.us.org http://www.ugg-outlet.ca http://www.truereligion.net.co http://www.katespade-outlet.net.co http://www.louisvuittonparis.fr http://www.giuseppe-zanotti.us.com http://www.nikeoutlet-online.com http://www.tiffanyandcojewelry.com.co http://www.coachclearance.us.com http://www.canadagoose.com.co http://www.hollister.in.net http://www.airjordan-pascher.fr http://www.fitflops.org http://www.minnesotavikingsjerseys.us.com http://www.uggboots-onsale.us.org http://www.seattleseahawksjerseys.us.com http://www.cheap-jordans.us.com http://www.cheap--nfljerseys.us.com http://www.discountuggboots.us.com http://www.newenglandpatriotsjerseys.us.com http://www.louisvuitton-discount.com http://www.ugg-boots.fr http://www.raybanpascher.fr http://www.ralphlaurenukofficial.org.uk http://www.chicagobullsjerseys.com http://www.gucci.me.uk http://www.coachoutletofficial.us.com http://www.montblanc.com.co http://www.uggoutlet.org http://www.monclerjacketsonline.us.com http://www.monclerpascherhomme.fr http://www.adidasoriginals.in.net http://www.edhardyclothing.in.net http://www.gucci-outlet.net.co http://www.louisvuittonoutletstores.us http://www.jordanshoes.us.org http://www.tiffanyandco.nom.co http://www.coachfactoryoutlet-stores.us.org http://www.adidassuperstar.name http://www.cheapuggboots.org.uk http://www.uggslippers.com.co http://www.longchamp.us.com http://www.uggsoutletcheap.us.com http://www.fitflopsuk.me.uk http://www.replicawatches.name http://www.cheaptoryburchoutlet.com http://www.officialmichaelkorsoutlet.us.com http://www.lebronjames-shoes.net http://www.longchamp-sac.fr http://www.ugg-canada.ca http://www.louis-vuitton.me.uk http://www.sunglassesoakley.com.co http://www.celine-outlet.us http://www.newyorkknicksjerseys.us.com http://www.michaelkorsoutletcanada.com.co http://www.adidasoutletstore.net http://www.christianlouboutin-pas-cher.fr http://www.ugguk.me.uk http://www.michaelkorsoutletstores.us.org http://www.coachoutletonlinesale.eu.com http://www.rolexwatches.us.com http://www.clarisonic.com.co http://www.ray-banssunglasses.com.co http://www.jordan4.net http://www.oakleyvaultoutlet.in.net http://www.oakleysunglasses-outlet.com.co http://www.clevelandcavaliersjerseys.us.com http://www.adidasshoes.net http://www.nikefactoryoutlet.org http://www.mbt.us.com http://www.prada.us.org http://www.ugg-italia.it http://www.curry3.name http://www.uggsboots.us.org http://www.washingtonwizardsjerseys.com http://www.kobeshoes.org http://www.outletmichaelkorshandbags.us.com http://www.dallasmavericksjerseys.com http://www.lebronjames-shoes.name http://www.coachoutletstoreonlineclearances.us.com http://www.cheapraybansunglasses.net.co http://www.toms.us.org http://www.beatsbydrdresolo.us http://www.pradahandbags.net http://www.kobebryantshoes.name http://www.coachfactoryoutlet-online.eu.com http://www.uggclassic.us.com http://www.adidasnmd-shoes.us.com http://www.airmaxssale.com http://www.canadagooseca.us.com http://www.seattleseahawksjersey.us.com http://www.jordanconcords.net http://www.authenticlouisvuittonhandbags.us.com http://www.nikeoutletstores.us.com http://www.montblancpen.us.com http://www.jordanfemmepascher.fr http://www.sanantoniospursjerseys.us.com http://www.uggs.me.uk http://www.goldenstatewarriorsjerseys.us.com http://www.coachfactoryoutletclearances.us.com http://www.outletsmichaelkors.us.com http://www.katespadeoutlets.us.com http://www.hollister-uk.org.uk http://www.cheaprolexforsale.com http://www.canadagooseoutletsale.us.com http://www.moncler--paris.fr http://www.ralphlauren-outlet.net.co http://www.uggoutletdiscount.us.com http://www.fitflops.us.com http://www.cheapjordansforsale.us http://www.louboutinshoessale.com http://www.oakleysunglassescanada.ca http://www.ralphlaurenoutletonline.in.net http://www.uggsoutletsale.us.com http://www.uggoutletsale.in.net http://www.uggsbootscheap.us.com http://www.nfljerseyswholesales.us http://www.rolexwatchesoutlet.us http://www.louisvuitton-handbags.com.co http://www.louisvuittonoutletonlineshop.com http://www.louisvuitton.me http://www.pandorajewelry.us.org http://www.coachfactoryoutlet-online.us.org http://www.raybansonsale.com.co http://www.uggsoutlet-online.us.com http://www.poloralphlaurenukonline.co.uk http://www.todsoutlet.in.net http://www.nikeoutletstore.us.com http://www.rayban-sunglasses.com.co http://www.pandorauk.me.uk http://www.coachcanadaoutlet.com.co http://www.christianlouboutinoutlet.com http://www.oklahomacitythunderjerseys.us.com http://www.christianlouboutin-paris.fr http://www.vansshoes.name http://www.pradaoutlet.net.co http://www.tomsshoes-outlet.com http://www.jordanretro.name http://www.canadagoosecanada.us.org http://www.christianlouboutinsale.me.uk http://www.moncler.me.uk http://www.chanelbags.in.net http://www.northface.us.com http://oakley.sunglassesonline.us.com http://www.chaneloutlet.in.net -- [[chenlina]] &new{2016-11-30 (水) 16:04:42};
- http://www.wwwgenericsildenafilonlinecanada.com/ viagra online -- [[purchase viagra online]] &new{2016-12-09 (金) 15:29:49};
- http://www.wwwgenericsildenafilonlinecanada.com/ viagra online -- [[sildenafil citrate]] &new{2016-12-16 (金) 07:00:05};
- http://www.wwwgenericsildenafilonlineusa.com/ viagra -- [[generic viagra]] &new{2016-12-21 (水) 11:11:52};
- http://www.michaeljordanshoes.us.com http://www.jewelrypandora.in.net http://www.rosherun.us.com http://www.michael--korsoutlet.us.org http://www.michaelkors-outletonlines.us.com http://www.asicsrunningshoes.us.org http://www.pandorabracelet.in.net http://www.airjordan.us.com http://www.michael-kors-handbags.com.co http://www.lebron13.us.com http://www.longchampbags.us.org http://www.adidasnmds.com http://www.adidasnmd.uk http://www.adidastubular.co.uk http://www.nike-huarache.com http://www.cheaprealjordans.us.com http://www.outlettimberland.us.org http://www.cheapbasketballshoes.us.com http://www.adidasstansmith.us.com http://www.authenticjordanscheap.us.com http://www.linksoflondon.us.com http://www.toryburchshoes.co.uk http://www.outletonline-michaelkors.us.org http://www.adidassuperstar.us.com http://www.adidasultraboost.us.org http://www.pradasunglasses.us.org http://www.curry3.in.net http://www.boostyeezy.us.com http://www.nikerosheone.co.uk http://www.yeezy-shoes.us http://www.atlantafalconsjerseys.us http://www.truereligionjeans.uk http://www.nikezoom.us.com http://www.nikerosheone.us.com http://www.yeezyshoes.org.uk http://www.michaelkors-outletstore.us.com http://www.michaelkors-outletsonline.us.com http://www.yeezy-shoes.org http://www.adidasoutletonline.com http://www.kyrie3.us.com http://www.retro-jordans.us.com http://www.chromehearts.com.co http://www.kyrieirving-shoes.us.com http://www.nike-airforce1.us.com http://www.michaeljordanshoes.net http://www.lebron14.us.com http://www.linksoflondonus.com http://www.kobesneakers.com http://www.cheap--jordans.us.com http://www.hermes-belt.co.uk http://www.jordansforcheap.us.com http://www.adidasoutletonline.us.com http://www.yeezys.us.org http://www.hoganoutlet.cc http://www.nikeairforce1.us.com http://www.adidasultra.us.com http://www.ledshoes.us.com http://www.chromehearts.net.co http://www.michaelkors-outletfactory.us.org http://www.michael-kors-handbags.org.uk http://www.cheap-airjordans.us.com http://www.outletlongchamp.us.com http://www.bagslongchamp.uk http://www.stephencurry-shoes.us.com http://www.yeezyboost350v2shoes.us.com http://www.airjordanretro.uk http://www.kobeshoes.uk http://www.adidasstansmith.uk http://www.jordanshoes.com.co http://www.adidassuperstar.org.uk http://www.nikehuaracheshoes.us.com http://www.michaelkorsoutletonlinesale.com.co http://www.nike-airmax2017.us.com http://www.hardenshoes.us.com http://www.air-max.us.com http://www.kobe-shoes.us.com http://www.michaelkorshandbagssale.us.org http://www.fitflops-saleclearance.us.com http://www.adidasnmdrunner.us.com http://www.charmspandora.in.net http://www.adidasstore.us.com http://www.tomford-sunglasses.us.com http://www.vibramfivefingers.cc http://www.yeezy-boost350.us.com http://www.nmdadidas.us.com http://www.adidasyeezyshoes.us.org http://www.toryburchshoes.us http://www.adidasonlineshop.us.com http://www.vancleefarpels.us.com http://www.nikezoom.me.uk http://www.patriotsjerseys.us.com http://www.chrome-hearts.us.org http://www.longchamphandbags.us.org http://www.longchamps.org.uk http://www.reebokoutlet.us.org http://www.thelightupshoes.us.com http://www.outletlacoste.us.com http://www.nikedunks.us.org http://www.ultraboost.us.com http://www.jordan-retro.us.com http://www.nikemercurial.us.com http://www.adidasneo.us.com http://www.michaelkors-outletonlinestore.com.co http://www.kobebasketballshoes.net http://www.outletonline--michaelkors.com http://www.michaelkors-factoryoutlet.com.co http://www.adidastubular.us.com http://www.adidasgazelle.us.com http://www.fitflops.cc http://www.burberry-scarf.us.com http://www.airhuarache.uk http://www.michaelkors-outletstore.us.org http://www.shoesjordan.us.com http://www.diorsunglasses.us.org http://www.jordanshoes.uk http://www.louboutinshoes.uk http://www.cheapretro-jordans.com http://www.lacosteonlineshop.us.com http://www.yeezyboost.com.co http://www.yeezy-boost.us.com http://www.hermes-belt.us.com http://www.truereligion-outlets.us.com http://www.nikepolo.us http://www.diorsunglasses.us.org http://www.longchamphandbagsoutlet.us.org http://www.lebronjames-shoes.us.com http://www.kobebasketballshoes.us.com http://www.yeezyboost.in.net http://www.michaelkors-outletstore.com.co http://www.michaelkors-outletonlinestore.us.org http://www.nmdadidasus.com http://www.ferragamobelt.us -- [[xinwei]] &new{2017-07-17 (月) 18:13:10};
- HgWOWIXYKdSODByg -- [[ftcayy]] &new{2018-04-21 (土) 16:50:59};
- GiGViUdWSLmSghfxuQo -- [[xvponws]] &new{2018-11-05 (月) 19:07:10};
- VmoFERmGasbefPTWjNe -- [[iakcatdf]] &new{2018-11-05 (月) 19:52:50};
- lufwgqjd -- [[emkvysiixw]] &new{2018-11-05 (月) 19:55:01};
- OzUUjeCNM -- [[yychopw]] &new{2021-02-27 (土) 15:55:07};
- DijWEe <a href="http://gboxiebpmjve.com/">gboxiebpmjve</a>, [url=http://rcxydqpcbvjh.com/]rcxydqpcbvjh[/url], [link=http://onhhnbfjctnn.com/]onhhnbfjctnn[/link], http://wfkqlqdrzzli.com/ -- [[balumbkmt]] &new{2021-04-24 (土) 22:56:31};
#comment
![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
