Topc008的专栏

手机照片一般都是内存卡上的，导入电脑硬盘后，除非格式比较稀有，否则一般都能打开的。

你用什么软件打印照片？它找不到相应的文件，说明不能识别你手机里的照片格式.......

用windows自带的应该可以打开的，试试

那就用个函数来处理呗：

 Sub test()
    Dim w1 As String, Byt() As Byte, Byt1(14) As Byte, i As Integer
    w1 = "sf906=我们的祖国是个伟大的国家"
    Byt = StrConv(w1, vbFromUnicode)
    For i = 0 To 14
        Byt1(i) = Byt(i)
    Next
    Debug.Print StrConv(Byt1, vbUnicode)
End Sub

如果inputstring 都是汉字，好办啊，直接取前7个汉字+空格

ThisWorkbook.Path 在新工作簿中为空值，要注意了。

单步执行，看看问题出在哪里......

你先把这句改了：If Target.Address = "$f$5" Then
改成 If Target.Address = "$F$5" Then

呵呵，你要是经常和代码打交道的话，英语一般般，这些属性基本上一看就知道个大概。

要是想逐一弄懂都是什么意思，可以安装下面步骤：

录制一段宏（专录页面设置部分），随便设置几项内容，结束宏后查看代码然后逐一对应看是什么意思，
有不懂的属性直接在vba窗口内打开对象浏览器然后搜索相关的属性，看看是如何使用的。
比如：

Sub Macro1()
'
' Macro1 Macro
' 宏在 2015/1/9 由 MicroDDD 录制
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(3.17)
        .BottomMargin = CentimetersToPoints(3.17)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterAutomaticSheetFeed
        .OtherPagesTray = wdPrinterAutomaticSheetFeed
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub

这玩意用公式好像完成不了吧？
用vba：

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
    End If
End Sub

这个行不行？
ie属性>>高级>>勾选 禁用脚本调试

仅供参考：

 Sub test()
    Dim w1 As String
    w1 = "<table border='1'>"
    w1 = w1 & "<tr><td>dfg</td>"
    w1 = w1 & "<td style='padding-top:0px;'>"
    w1 = w1 & "<span style='margin-top:0px;background:green'>test</span>"
    w1 = w1 & "</td></tr></table>"
    WB.Document.body.innerhtml = w1
End Sub

试试类似的：... style='vertical-align:top'......

你是用代码还是手工操作？代码的话，估计不会问这问题。猜你是手工导入，按下面步骤：
创建一个备份表，删除前2行===》保存==》打开access并新建一个空库==》选中“表”==》选中“文件”菜单==》获取外部数据==》导入==》
文件类型选xls==》找到你刚保存的xls文件==》选择相应的表格（刚刚删除表头的那个表）==》下一步......(这了选择若干个下一步，根据自己的需要做相应的调整)

这个控件没怎么用过，你看看我的代码，参考一下：

 Option Explicit
Private Plays() As String, PlayIndex As Integer
Private Sub Command1_Click()
    If Text1.Text <> "" Then
        Dim w1 As String, w2 As String, i As Integer
        Plays = Split(Text1.Text, vbCrLf)
        ''去掉不存在的歌曲和空白的行
        For i = 0 To UBound(Plays)
            w2 = Trim(Plays(i))
            If w2 <> "" Then
                If Dir(w2) <> "" Then w1 = w1 & IIf(w1 <> "", vbCrLf, "") & w2
            End If
        Next
        Plays = Split(w1, vbCrLf) ''得到有效的地址
        PlayIndex = 0
        Wmp.URL = Plays(0) ''播放第一首
        Wmp.Controls.play
    Else
        MsgBox "请输入音乐地址!"
    End If
End Sub
Private Sub Timer1_Timer()
    If Wmp.playState <> wmppsPlaying Then
        Wmp.Controls.play
    Else
        Timer1.Interval = 0
    End If
End Sub
Private Sub Wmp_PlayStateChange(ByVal NewState As Long)
    Select Case NewState
    Case 8
        PlayIndex = PlayIndex + 1
        If PlayIndex > UBound(Plays) Then PlayIndex = 0
        Wmp.URL = Plays(PlayIndex)
        ''Wmp.Controls.play''这里不起作用，不知为啥
        Timer1.Interval = 100 ''只好用定时器来启动了
        Timer1.Enabled = True
    End Select
End Sub

这么悲剧啊，不过现在的系统备份都是放在隐藏分区的，这你也能删除？
如果没有过保修期，建议找售后重做一份系统，否则以后可能还会有麻烦的
过了保修期，那就瞎折腾呗.......

WMI足可以满足楼主的要求

搜 微软脚本中心大全 -----反正是够全的啦

给你一个通用的方法吧：

 Sub Test()
    Dim iRow As Long, iCol As Long
    iRow = 2
    iCol = 1
    With DataGrid1
        Text1.Text = .Columns(iCol).CellValue(.GetBookmark(iRow))
    End With
End Sub

这个方法，只要指定行列（都是从0开始的）就可以读取到相应的值
本例中，设icol=0，irow=datagrid1.row即可

这样不行吗？
http://localhost/reportserver/your filepath/your filename

我是word2003的，这代码在我那很正常啊，没有出现错误，如果不能建立索引，是不是你输入的内容中根本就没有关键词啊。

测试方法：新开一个word，随便输入一些内容，但必须包含学校、编辑2个关键词，然后复制下面的代码到当前document的vba里，
运行test会立即看到效果的。

Sub Test()
    BiaoJiAll "编辑|学校" ''
End Sub
Sub BiaoJiAll(ByVal bStr As String)
    ''bStr为关键词，用|分割
    On Error Resume Next
    Dim i As Long, w1 As String, ww
    ww = Split(bStr, "|")
    If UBound(ww) >= 0 Then
        For i = 0 To UBound(ww)
            Selection.HomeKey Unit:=wdStory ''移动到开始
            With Selection.Find
                .ClearFormatting
                .Text = ww(i)
                .Execute
                If .Found Then ''如果找到了则添加到索引
                    ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, Entry:= _
                    ww(i), EntryAutoText:=ww(i), CrossReference:="", CrossReferenceAutoText _
                    :="", BookmarkName:="", Bold:=False, Italic:=False
                End If
            End With
        Next
        ''定位到最后
        Selection.EndKey Unit:=wdStory
        ''在文档最后插入索引
        ThisDocument.Indexes.Add Range:=Selection.Range, HeadingSeparator:= _
        wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _
        True, NumberOfColumns:=2, SortBy:=wdIndexSortByStroke, IndexLanguage _
        :=wdSimplifiedChinese
    End If
End Sub

这很简单嘛，有规律可循，下面是在excel的vba里测试的:

 Sub Test()
    Dim n As Integer, i As Integer, iR As Integer
    Dim iC As Integer, arr() As Integer
    n = 5 ''方格数
    ReDim arr(1 To n, 1 To n)
    iR = 1
    iC = (n + 1) \ 2
    arr(iR, iC) = 1
    For i = 2 To n ^ 2
        iR = iR - 1
        If iR < 1 Then iR = n
        iC = iC + 1
        If iC > n Then iC = 1
        If arr(iR, iC) > 0 Then
            iR = (iR + 2) Mod n
            If iR = 0 Then iR = n
            iC = iC - 1
            If iC < 1 Then iC = n
        End If
        arr(iR, iC) = i
    Next
    ''输出结果==>到excel单元格
    Cells.Clear
    Cells.HorizontalAlignment = xlCenter
    Cells.Font.Size = 16
    For i = 1 To n
        For iR = 1 To n
            Cells(i, iR) = arr(i, iR)
        Next
    Next
End Sub