\u6587\u5b57\u5217\u64cd\u4f5c\u3092\u884c\u3046\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u3044\u308b\u3068\u304d\u3001\u30c6\u30b9\u30c8\u7528\u306b\u300c\u3042\u3044\u3046\u3048\u304a\u304b\u304d\u304f\u3051\u3053\u2026\u300d\u3068\u9069\u5f53\u306a\u6587\u5b57\u5217\u3092\u5165\u529b\u3059\u308b\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u6bce\u56de\u6bce\u56de\u5165\u529b\u3059\u308b\u306e\u306f\u5927\u5909\u306a\u306e\u3067\u3001\u9069\u5f53\u306a\u6587\u5b57\u5217\u3092\u633f\u5165\u3059\u308b\u30de\u30af\u30ed\u3092\u7528\u610f\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n
Option Explicit\r\n\r\nPublic Sub Sample()\r\n InsertDummyString 2, 3, True, "," '\u90fd\u9053\u5e9c\u770c,3\u56de\u7e70\u308a\u8fd4\u3057,["]\u56f2\u307f,[,]\u533a\u5207\u308a\r\nEnd Sub\r\n\r\nPublic Sub InsertDummyString(Optional ByVal TextType As Integer = 0, _\r\n Optional ByVal RepeatCount As Integer = 1, _\r\n Optional ByVal OptQuot As Boolean = False, _\r\n Optional ByVal OptSep As String = "")\r\n'\u30c6\u30b9\u30c8\u7528\u6587\u5b57\u5217\u633f\u5165\r\n Dim aryAiueo As Variant\r\n Dim aryIroha As Variant\r\n Dim aryTodohuken As Variant\r\n Dim aryEto As Variant\r\n Dim aryJikkan As Variant\r\n Dim aryKensei As Variant\r\n Dim ary As Variant\r\n Dim str As String\r\n Dim i As Long, j As Long\r\n \r\n aryAiueo = Array("\u3042", "\u3044", "\u3046", "\u3048", "\u304a", _\r\n "\u304b", "\u304d", "\u304f", "\u3051", "\u3053", _\r\n "\u3055", "\u3057", "\u3059", "\u305b", "\u305d", _\r\n "\u305f", "\u3061", "\u3064", "\u3066", "\u3068", _\r\n "\u306a", "\u306b", "\u306c", "\u306d", "\u306e", _\r\n "\u306f", "\u3072", "\u3075", "\u3078", "\u307b", _\r\n "\u307e", "\u307f", "\u3080", "\u3081", "\u3082", _\r\n "\u3084", "\u3086", "\u3088", _\r\n "\u3089", "\u308a", "\u308b", "\u308c", "\u308d", _\r\n "\u308f", "\u3090", "\u3091", "\u3092", "\u3093")\r\n aryIroha = Array("\u3044", "\u308d", "\u306f", "\u306b", "\u307b", "\u3078", "\u3068", _\r\n "\u3061", "\u308a", "\u306c", "\u308b", "\u3092", _\r\n "\u308f", "\u304b", "\u3088", "\u305f", "\u308c", "\u305d", _\r\n "\u3064", "\u306d", "\u306a", "\u3089", "\u3080", _\r\n "\u3046", "\u3090", "\u306e", "\u304a", "\u304f", "\u3084", "\u307e", _\r\n "\u3051", "\u3075", "\u3053", "\u3048", "\u3066", _\r\n "\u3042", "\u3055", "\u304d", "\u3086", "\u3081", "\u307f", "\u3057", _\r\n "\u3091", "\u3072", "\u3082", "\u305b", "\u3059")\r\n aryTodohuken = Array("\u5317\u6d77\u9053", "\u9752\u68ee\u770c", "\u5ca9\u624b\u770c", "\u5bae\u57ce\u770c", "\u79cb\u7530\u770c", _\r\n "\u5c71\u5f62\u770c", "\u798f\u5cf6\u770c", "\u8328\u57ce\u770c", "\u6803\u6728\u770c", "\u7fa4\u99ac\u770c", _\r\n "\u57fc\u7389\u770c", "\u5343\u8449\u770c", "\u6771\u4eac\u90fd", "\u795e\u5948\u5ddd\u770c", "\u65b0\u6f5f\u770c", _\r\n "\u5bcc\u5c71\u770c", "\u77f3\u5ddd\u770c", "\u798f\u4e95\u770c", "\u5c71\u68a8\u770c", "\u9577\u91ce\u770c", _\r\n "\u5c90\u961c\u770c", "\u9759\u5ca1\u770c", "\u611b\u77e5\u770c", "\u4e09\u91cd\u770c", "\u6ecb\u8cc0\u770c", _\r\n "\u4eac\u90fd\u5e9c", "\u5927\u962a\u5e9c", "\u5175\u5eab\u770c", "\u5948\u826f\u770c", "\u548c\u6b4c\u5c71\u770c", _\r\n "\u9ce5\u53d6\u770c", "\u5cf6\u6839\u770c", "\u5ca1\u5c71\u770c", "\u5e83\u5cf6\u770c", "\u5c71\u53e3\u770c", _\r\n "\u5fb3\u5cf6\u770c", "\u9999\u5ddd\u770c", "\u611b\u5a9b\u770c", "\u9ad8\u77e5\u770c", "\u798f\u5ca1\u770c", _\r\n "\u4f50\u8cc0\u770c", "\u9577\u5d0e\u770c", "\u718a\u672c\u770c", "\u5927\u5206\u770c", "\u5bae\u5d0e\u770c", _\r\n "\u9e7f\u5150\u5cf6\u770c", "\u6c96\u7e04\u770c")\r\n aryEto = Array("\u5b50", "\u4e11", "\u5bc5", "\u536f", _\r\n "\u8fb0", "\u5df3", "\u5348", "\u672a", _\r\n "\u7533", "\u9149", "\u620c", "\u4ea5")\r\n aryJikkan = Array("\u7532", "\u4e59", "\u4e19", "\u4e01", "\u620a", _\r\n "\u5df1", "\u5e9a", "\u8f9b", "\u58ec", "\u7678")\r\n aryKensei = Array("\u5185\u95a3\u5e9c", "\u5fa9\u8208\u5e81", "\u7dcf\u52d9\u7701", "\u6cd5\u52d9\u7701", "\u5916\u52d9\u7701", _\r\n "\u8ca1\u52d9\u7701", "\u6587\u90e8\u79d1\u5b66\u7701", "\u539a\u751f\u52b4\u50cd\u7701", "\u8fb2\u6797\u6c34\u7523\u7701", "\u7d4c\u6e08\u7523\u696d\u7701", _\r\n "\u56fd\u571f\u4ea4\u901a\u7701", "\u74b0\u5883\u7701", "\u9632\u885b\u7701")\r\n ary = Array(aryAiueo, aryIroha, aryTodohuken, _\r\n aryEto, aryJikkan, aryKensei)\r\n Select Case TextType\r\n Case LBound(ary) To UBound(ary)\r\n Case Else: TextType = 0\r\n End Select\r\n Select Case RepeatCount\r\n Case 1 To 99\r\n Case Else: RepeatCount = 1\r\n End Select\r\n \r\n str = ""\r\n For j = 1 To RepeatCount\r\n For i = LBound(ary(TextType)) To UBound(ary(TextType))\r\n If OptQuot = True Then\r\n str = str & ChrW(&H22) & ary(TextType)(i) & ChrW(&H22)\r\n Else\r\n str = str & ary(TextType)(i)\r\n End If\r\n If i <> UBound(ary(TextType)) Then str = str & OptSep\r\n Next\r\n If j <> RepeatCount Then str = str & OptSep\r\n Next\r\n Selection.TypeText str\r\nEnd Sub<\/pre>\n\u4e94\u5341\u97f3\u9806\u3084\u3044\u308d\u306f\u9806\u306e\u5e73\u4eee\u540d\u3084\u90fd\u9053\u5e9c\u770c\u3001\u5e72\u652f\u3068\u3044\u3063\u305f\u6587\u5b57\u5217\u3092\u6307\u5b9a\u3057\u305f\u56de\u6570\u5206\u7e70\u308a\u8fd4\u3057\u3066\u633f\u5165\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002
\n(\u30aa\u30de\u30b1\u3068\u3057\u3066\u30c0\u30d6\u30eb\u30af\u30a9\u30fc\u30c6\u30fc\u30b7\u30e7\u30f3\u56f2\u307f\u3084\u533a\u5207\u308a\u6587\u5b57\u3082\u6307\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3057\u305f\u3002)<\/p>\n
Lorem ipsum<\/a>\u306e\u3088\u3046\u306a\u30c0\u30df\u30fc\u30c6\u30ad\u30b9\u30c8\u3067\u3082\u826f\u304b\u3063\u305f\u306e\u3067\u3059\u304c\u3001Word\u306b\u306f\u5143\u3005\u300crand() \u95a2\u6570<\/a>\u300d\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u6587\u7ae0\u306e\u5834\u5408\u306f\u305d\u3061\u3089\u3092\u4f7f\u3046\u3053\u3068\u306b\u3057\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u6587\u5b57\u5217\u64cd\u4f5c\u3092\u884c\u3046\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u3044\u308b\u3068\u304d\u3001\u30c6\u30b9\u30c8\u7528\u306b\u300c\u3042\u3044\u3046\u3048\u304a\u304b\u304d\u304f\u3051\u3053\u2026\u300d\u3068\u9069\u5f53\u306a\u6587\u5b57\u5217\u3092\u5165\u529b\u3059\u308b\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u6bce\u56de\u6bce\u56de\u5165\u529b\u3059\u308b\u306e\u306f\u5927\u5909\u306a\u306e\u3067\u3001\u9069\u5f53\u306a\u6587\u5b57\u5217\u3092\u633f\u5165\u3059\u308b\u30de\u30af\u30ed\u3092\u7528\u610f\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002 Option […]","protected":false},"author":1,"featured_media":7136,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[\u30c6\u30b9\u30c8\u7528\u306e\u6587\u5b57\u5217\u3092\u633f\u5165\u3059\u308bWord\u30de\u30af\u30ed]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,49],"tags":[],"class_list":["post-7138","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-word-office"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-WordVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1R8","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7138","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7138"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7138\/revisions"}],"predecessor-version":[{"id":7139,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7138\/revisions\/7139"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7136"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7138"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7138"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7138"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}