| |
ドキュメントが格納されているフォルダの名前とドキュメント
の名前の取得方法です。
MsgBox ThisDocument.Path 'フォルダパス
MsgBox ThisDocument.Name 'ドキュメント
FileSystemObjectを使い、GetBaseNameで拡張子を除いた
ドキュメント名を取得する方法もあります。
ただ、今回はワードドキュメント限定ですので、
ThisDocument.Name
から拡張子部分を除いた左部分を取得、でもいけると思います。
MsgBox Left(ThisDocument.Name,Len(ThisDocument.Name)-4)
これに".txt"を付加すればテキストファイル名になります。
さらに
ThisDocument.Path
を前に付ければテキストファイルのパスになります。
ThisDocument.Path & "\" & Left(ThisDocument.Name,Len(ThisDocument.Name)-4) & ".txt"
テキスト形式で保存するのは、マクロの自動記録である程度のコードが得られます。
名前をつけて保存
↓
ファイルの種類：書式なし(*.txt)
で"書式なし〜"の警告が出るので「はい」
↓
「ファイルの変換」ウィンドウが出て、ここで「その他」を選択すると
Shift JISなどの形式を選択できます。
でも、ここには「UTF-8」は無いようです。
ですので、一度保存した後形式を変換するか、別の方法でテキストファイルを
作成する必要があるかもしれません。
この当りのshift JISとかUTF-8とかのことについては私自身詳しくはありません。
|
|
マクロマン
- 09/2/26(木) 13:46 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
