Vba 从剪贴板粘贴文件名_Vba_Ms Word

Vba 从剪贴板粘贴文件名

vba ms-word

Vba 从剪贴板粘贴文件名,vba,ms-word,Vba,Ms Word,我在MS word中有一个宏，用于在从文件头复制文件名后重命名文件我录制了宏，但在执行另存为和粘贴文件名（Ctrl+V）时，宏正在硬编码文件名。相反，我想从存储了文件名的剪贴板复制内容请根据需要帮助我更改代码 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.T

我在MS word中有一个宏，用于在从文件头复制文件名后重命名文件

我录制了宏，但在执行另存为和粘贴文件名（Ctrl+V）时，宏正在硬编码文件名。相反，我想从存储了文件名的剪贴板复制内容

请根据需要帮助我更改代码

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveDown Unit:=wdLine, count:=2
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.EscapeKey
    ChangeFileOpenDirectory "C:\Documents and Settings\ssankees\Desktop\"
    ActiveDocument.SaveAs2 FileName:= _
        "KP27 Display Plan Data for Activity Types.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0

如果是ActiveWindow.View.split，则
活动窗口。窗格（2）。关闭
如果结束
如果ActiveWindow.ActivePane.View.Type=wdNormalView或ActiveWindow_
ActivePane.View.Type=wdOutlineView然后
ActiveWindow.ActivePane.View.Type=wdPrintView
如果结束
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
Selection.MoveDown单位：=wdLine，计数：=2
Selection.EndKey单位：=wdLine
Selection.HOME键单位：=wdLine，Extend:=wdExtend
选择，复制
如果ActiveWindow.View.SplitSpecial WDPaneOne，则
活动窗口。窗格（2）。关闭
如果结束
如果ActiveWindow.ActivePane.View.Type=wdNormalView或ActiveWindow_
ActivePane.View.Type=wdOutlineView然后
ActiveWindow.ActivePane.View.Type=wdPrintView
如果结束
ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader
选择.逃逸键
ChangeFileOpenDirectory“C:\Documents and Settings\sAnkes\Desktop\”
ActiveDocument.SaveAs2文件名：=_
“KP27显示活动类型的计划数据.doc”，文件格式：=_
wdFormatDocument，LockComments:=False，密码：=“”，AddToRecentFiles:=_
True，WritePassword:=“”，ReadOnlyRecommended:=False，EmbeddedTrueTypeFonts:=_
False，SaveNativePictureFormat:=False，SaveFormsData:=False_
saveAsoceLetter:=False，兼容模式：=0

如果要保存正在处理的文件，请尝试以下操作：

Dim DataObj As New MSForms.DataObject
DataObj.GetFromClipboard
Dim my_filename as String 

my_filename = DataObj.GetText

ActiveDocument.SaveAs2 FileName:= _
    my_filename, FileFormat:= _
    wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
    SaveAsAOCELetter:=False, CompatibilityMode:=0