パワーポイントの英数字記号を「全角→半角変換」マクロ作成の仕事 [IT・通信・インターネット]
パワーポイントの英数字記号を「全角→半角変換」マクロ作成に関する仕事・募集案件ページです。クラウドソーシングのランサーズで、Excelマクロ作成・VBA開発に関する最適な外注/発注先をお探しの方、副業案件・求人をお探しのフリーランスの方はまず会員登録がおすすめです。
Excelマクロ作成・VBA開発に関連した他の仕事を探す
見積もり募集の結果
募集期間
5日間
提案数
10件
当選人数
1 件
(募集人数1人)
実際の発注内容
シルバー 認証済み、受注実績あり、評価が高く活躍中のランサーです PythonやVBAでのツール作成を得意としております。自動化効率化はお任せください！
- 希望時間単価 5,000円~
- 実績 98
- 満足率 100 %
- プロジェクト完了率 99%
- 機密保持
- 本人確認
- 電話
得意な言語 Python VBA 使用可能な言語 .NET VB HTML5 CSS3 PHP 設定構築可能 WordPress LANP環境 ActiveDirectory VPN サーバー遠隔監視等 得意分野 Access、Excelでの簡易システムやツールの作成、既存WEBシステムの構築 HTMLコーディング 最近のご依頼 Python+selenium の案... 続きを読む
- 対応可能な依頼のジャンル
- IT・通信・インターネット
- ... もっと見る
見積もり募集の内容
- 依頼主の業種
- IT・通信・インターネット
- 提示した予算
- 5,000 円 ~ 10,000 円
- 依頼概要
-
パワーポイントのマクロ作成
現在、添付ファイルのようなマクロを使って、作成済のパワーポイントの全角・半角をそろえています。
ただし、このマクロでは、句読点まで半角となってしまい、使いづらいです。
希望する動作は以下の通りです。
数字 ⇒ 全部半角
英字 ⇒ 全部半角
記号 ⇒ （ ） カッコ だけ半角 ぞれ以外は、変更なし
また、必須でなく希望となりますが、半角変換できる記号を選択できるようなマクロだとありがたいです。
ご検討よろしくお願いします。
-
現在使用しているマクロは、以下の通りです。
--------------------------------
Option Explicit
Function IsKatakana(strTarget As String) As Boolean
Dim strPattern
strPattern = "[ア-ンｱ-ﾝ]" ' カタカナ範囲チェック用
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp") ' 正規表現コンポーネントを利用
reg.Pattern = strPattern
IsKatakana = reg.Test(strTarget)
Set reg = Nothing
End Function
Sub ChangeKanaText2()
Dim sld As slide
For Each sld In ActiveWindow.Parent.Slides
Dim shp
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Dim word
For Each word In shp.TextFrame.TextRange.Words
If IsKatakana(word.Text) = True Then
word.Text = StrConv(word.Text, vbWide)
Else
word.Text = StrConv(word.Text, vbNarrow)
End If
Next
End If
' シェイプが 表 を持つ場合
Dim myRow As Row
Dim myCell As Cell
If shp.HasTable Then
For Each myRow In shp.Table.Rows
For Each myCell In myRow.Cells
For Each word In myCell.Shape.TextFrame.TextRange.Words
If IsKatakana(word.Text) = True Then
word.Text = StrConv(word.Text, vbWide)
Else
word.Text = StrConv(word.Text, vbNarrow)
End If
Next
Next
Next
End If
Next
Next
End Sub